X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=Trurl-based%2F_Linux_%2FSystem%2FMod%2FKernel.txt;h=46c55e247346c4e90da94a64350a64e26cbd452a;hb=279637bd4bf7341c7a53ab74ab80946cf8a14cae;hp=f4cb9493aa9f7ad173e5bf779583bc63ecaa3a5e;hpb=02a3486a4adb7964c73018e2702ae19e0811e06e;p=bbcp.git

diff --git a/Trurl-based/_Linux_/System/Mod/Kernel.txt b/Trurl-based/_Linux_/System/Mod/Kernel.txt
index f4cb949..46c55e2 100644
--- 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;