index f4cb9493aa9f7ad173e5bf779583bc63ecaa3a5e..46c55e247346c4e90da94a64350a64e26cbd452a 100644 (file)
BEGIN
INC(size, 16);
ASSERT(size > 0, 100); adr := 0;
- IF size < N THEN adr := HeapAlloc(1, N, prot) END;
- IF adr = 0 THEN adr := HeapAlloc(1, size, prot); allocated := size ELSE allocated := N END;
+ IF size < N THEN adr := HeapAlloc(65536, N, prot) END;
+ IF adr = 0 THEN adr := HeapAlloc(65536, size, prot); allocated := size ELSE allocated := N END;
IF adr = 0 THEN c := NIL
ELSE
c := S.VAL(Cluster, (adr + 15) DIV 16 * 16); c.max := adr;