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

Restore 4*Unit heap allocation multiple.

Browse source
This commit is contained in:
David Brown 2016-12-28 13:05:16 +00:00
parent 66b7ea0be0
commit 265ac23f6e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/runtime/Heap.Mod
View file

@ -270,7 +270,7 @@ MODULE Heap;
IF firstTry THEN IF firstTry THEN
GC(TRUE); INC(blksz, Unit); GC(TRUE); INC(blksz, Unit);
(* Anti-thrashing heuristics: ensure 1/5 of the heap will not be allocated. *) (* Anti-thrashing heuristics: ensure 1/5 of the heap will not be allocated. *)
t := S.LSH(allocated + blksz, -2) (*uDIV 4*) * 5 ; (* Minimum preferred heapsize *) t := S.LSH(allocated + blksz, -(ldUnit+2)) (*uDIV 4*Unit*) * (5*Unit) ; (* Minimum preferred heapsize *)
IF uLT(heapsize, t) THEN ExtendHeap(t - heapsize) END; IF uLT(heapsize, t) THEN ExtendHeap(t - heapsize) END;
firstTry := FALSE; new := NEWREC(tag); firstTry := FALSE; new := NEWREC(tag);
IF new = NIL THEN (* Heap is 1/5 free but fragmentation prevented allocation *) IF new = NIL THEN (* Heap is 1/5 free but fragmentation prevented allocation *)