/[gcl]/gcl/o/sbrk.c
ViewVC logotype

Diff of /gcl/o/sbrk.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:13 1999 UTC revision 1.2 by camm, Sat Jul 20 07:10:56 2002 UTC
# Line 2  Line 2 
2  extern char end;  extern char end;
3    
4  static caddr_t curbrk = &end;  static caddr_t curbrk = &end;
5  caddr_t sbrk();  caddr_t sbrk(int n);
6    
7  caddr_t  void *
8  sbrk(n)  sbrk(ptrdiff_t n) {
9       int n;    int res;
 { int res;  
10    if (n==0) return curbrk;    if (n==0) return curbrk;
11    { caddr_t x=curbrk;    {
12        void * x=curbrk;
13      char *p;      char *p;
14      p=curbrk;      p=curbrk;
15      p=p+n;      p=p+n;
16      res = brk(p);      res = brk(p);
17          
18      if (res==-1) error("can't set brk");      if (res==-1) error("can't set brk");
19      else curbrk = p;      else curbrk = p;
20      return (x);}      return (x);
21      }
22  }  }
23    
24    

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26