Linux CommTCP implementation added

[bbcp.git] / Trurl-based / _Linux_ / System / Mod / Kernel.txt

diff --git a/Trurl-based/_Linux_/System/Mod/Kernel.txt b/Trurl-based/_Linux_/System/Mod/Kernel.txt
index f4cb9493aa9f7ad173e5bf779583bc63ecaa3a5e..46c55e247346c4e90da94a64350a64e26cbd452a 100644 (file)
--- a/Trurl-based/_Linux_/System/Mod/Kernel.txt
+++ b/Trurl-based/_Linux_/System/Mod/Kernel.txt
@@ -562,8 +562,8 @@ MODULE Kernel;
        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;