diff options
| author | cinap_lenrek <cinap_lenrek@felloff.net> | 2020-04-10 23:11:25 +0200 |
|---|---|---|
| committer | cinap_lenrek <cinap_lenrek@felloff.net> | 2020-04-10 23:11:25 +0200 |
| commit | 1d3644a1684bd191f3a36568d94c2587c2d9f24f (patch) | |
| tree | d846fb9fe81f38078db378a7264a9f02321f477d /sys/src/cmd/ql | |
| parent | e610ffaf1b7847e82c18a1b9c687cdd7676f86c2 (diff) | |
cc, ?l: fix gethunk() to actually grow allocation
the compilers and linkers use ther own memory allocator.
free memory is between hunk and hunk+nhunk. allocation
works by checking if nhunk is bigger or equal to the
amount needed, and if not, repeatedly call gethunk()
until there is. after that, the allocated amount is added
from hunk and subtracted from nhunk by the user.
the problem was when the needed amount was bigger than
the default NHUNK size gethunk() allocates per call.
gethunk() would not actually grow nhunk, but instead
just set hunk and nhunk variables to the last allocated
block. this resulted in a infinite loop of calls to
gethunk() until sbrk() would hit the maximum size for
the BSS segment.
this change makes gethunk() actually grow the hunk space,
increasing nhunk, and only updating hunk when nhunk was
previously zero. we assume that mysbrk() retuns increasing
addresses and that the space between the previous hunk+nhunk
and the new block base returned by mysbrk() is usable.
Diffstat (limited to 'sys/src/cmd/ql')
| -rw-r--r-- | sys/src/cmd/ql/l.h | 2 | ||||
| -rw-r--r-- | sys/src/cmd/ql/obj.c | 16 |
2 files changed, 10 insertions, 8 deletions
diff --git a/sys/src/cmd/ql/l.h b/sys/src/cmd/ql/l.h index e7822d01e..ec364d0fd 100644 --- a/sys/src/cmd/ql/l.h +++ b/sys/src/cmd/ql/l.h @@ -234,7 +234,7 @@ EXTERN long symsize; EXTERN long staticgen; EXTERN Prog* textp; EXTERN long textsize; -EXTERN uintptr tothunk; +EXTERN uintptr thunk; EXTERN char xcmp[C_NCLASS][C_NCLASS]; EXTERN int version; EXTERN Prog zprg; diff --git a/sys/src/cmd/ql/obj.c b/sys/src/cmd/ql/obj.c index dba56bd46..c74d240f2 100644 --- a/sys/src/cmd/ql/obj.c +++ b/sys/src/cmd/ql/obj.c @@ -273,7 +273,7 @@ main(int argc, char *argv[]) out: if(debug['v']) { Bprint(&bso, "%5.2f cpu time\n", cputime()); - Bprint(&bso, "%zud memory used\n", tothunk); + Bprint(&bso, "%zud memory used\n", thunk); Bprint(&bso, "%d sizeof adr\n", sizeof(Adr)); Bprint(&bso, "%d sizeof prog\n", sizeof(Prog)); } @@ -1117,9 +1117,9 @@ gethunk(void) long nh; nh = NHUNK; - if(tothunk >= 5L*NHUNK) { + if(thunk >= 5L*NHUNK) { nh = 5L*NHUNK; - if(tothunk >= 25L*NHUNK) + if(thunk >= 25L*NHUNK) nh = 25L*NHUNK; } h = mysbrk(nh); @@ -1127,10 +1127,12 @@ gethunk(void) diag("out of memory"); errorexit(); } - - hunk = h; - nhunk = nh; - tothunk += nh; + if(nhunk == 0) + hunk = h; + else + nh += (h - hunk) - nhunk; + nhunk += nh; + thunk += nh; } void |