diff --git a/src/cpfront/posix/generic/System/Mod/Kernel.cp b/src/cpfront/posix/generic/System/Mod/Kernel.cp
index a3f6d712bf86c35e95adf33de2d7de72e3e7957a..8d4c334f2896df1262b8371a0fef66ecfbfcb3c2 100644 (file)
MODULE Kernel;
- IMPORT S := SYSTEM, stdlib := C99stdlib, stdio := C99stdio,
- time := C99time, wctype := C99wctype, sysmman := C99sys_mman,
- dlfcn := C99dlfcn, fcntl := C99fcntl, types := C99types,
- unistd := C99unistd, signal := C99signal, setjmp := C99setjmp;
+ IMPORT S := SYSTEM, stdlib := PosixCstdlib, stdio := PosixCstdio,
+ time := PosixCtime, wctype := PosixCwctype, sysmman := PosixCsys_mman,
+ dlfcn := PosixCdlfcn, fcntl := PosixCfcntl, types := PosixCtypes,
+ unistd := PosixCunistd, signal := PosixCsignal, setjmp := PosixCsetjmp;
(* init fpu? *)
(* add signal blocking to avoid race conditions in Try/Trap/TrapHandler *)
PROCEDURE AllocHeapMem (size: INTEGER; VAR c: Cluster);
CONST N = 65536; (* cluster size for dll *)
- VAR adr, allocated: INTEGER;
+ VAR adr, allocated, newsize: INTEGER;
BEGIN
INC(size, 16);
ASSERT(size > 0, 100); adr := 0;
- IF size < N THEN adr := stdlib.malloc(N) END;
- IF adr = 0 THEN adr := stdlib.malloc(size); allocated := size ELSE allocated := N END;
+ IF size < N THEN
+ adr := AllocMem(N, newsize);
+ allocated := newsize
+ END;
+ IF adr = 0 THEN
+ adr := AllocMem(size, newsize);
+ allocated := newsize
+ END;
IF adr = 0 THEN c := NIL
ELSE
c := S.VAL(Cluster, (adr + 15) DIV 16 * 16); c.max := adr;
PROCEDURE FreeHeapMem (c: Cluster);
BEGIN
DEC(used, c.size); DEC(total, c.size);
- stdlib.free(S.VAL(ADDRESS, c.max))
+ FreeMem(S.VAL(ADDRESS, c.max), c.size)
END FreeHeapMem;
PROCEDURE HeapFull (size: INTEGER): BOOLEAN;