vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 21:32:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Integrate jtempl heap allocation recursion fix.

Browse source
This commit is contained in:
David Brown 2016-12-22 17:16:42 +00:00
parent 37fc052d95
commit 535f80d91c
1 changed files with 8 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/runtime/Heap.Mod
View file

@ -266,18 +266,15 @@ MODULE Heap;
IF adr = 0 THEN (* Nothing free *)
IF firstTry THEN
GC(TRUE); INC(blksz, Unit);
IF uLT(heapsize - allocated, blksz)
OR uLT((heapsize - allocated - blksz) * 4, heapsize) THEN
(* heap would still be more than 3/4 full; expand to avoid thrashing *)
ExtendHeap((allocated + blksz) DIV (3*Unit) * (4*Unit) - heapsize)
END;
firstTry := FALSE; new := NEWREC(tag); firstTry := TRUE;
IF new = NIL THEN
(* depending on the fragmentation, the heap may not have been extended by
the anti-thrashing heuristics above *)
ExtendHeap((allocated + blksz) DIV (3*Unit) * (4*Unit) - heapsize);
new := NEWREC(tag); (* will find a free block if heap has been expanded properly *)
(* Anti-thrashing heuristics: ensure 1/4 of the heap will not be allocated. *)
t := (allocated + blksz) DIV (3*Unit) * (4*Unit); (* Minimum required new heapsize *)
IF uLT(heapsize, t) THEN ExtendHeap(t - heapsize) END;
firstTry := FALSE; new := NEWREC(tag);
IF new = NIL THEN (* Fragmentation prevented allocation, heap is 1/4 free *)
ExtendHeap(blksz);
new := NEWREC(tag) (* Will find a free block if heap has been expanded successfully *)
END;
firstTry := TRUE;
Unlock(); RETURN new
ELSE
Unlock(); RETURN NIL