Explorar o código

Kernel.AllocHeapMem: start at 10000H addresses (required by StdDebug and DevDebug)

Alexander Shiryaev %!s(int64=12) %!d(string=hai) anos
pai
achega
a4bba59932

BIN=BIN
Trurl-based/_Linux_/System/Mod/Kernel.odc


+ 2 - 2
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;

BIN=BIN
Trurl-based/_Linux_/libBB.so


BIN=BIN
Trurl-based/_Linux_/libBB0.so


BIN=BIN
Trurl-based/_OpenBSD_/System/Mod/Kernel.odc


+ 2 - 2
Trurl-based/_OpenBSD_/System/Mod/Kernel.txt

@@ -560,8 +560,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;

BIN=BIN
Trurl-based/_OpenBSD_/libBB.so


BIN=BIN
Trurl-based/_OpenBSD_/libBB0.so