Browse Source

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

Alexander Shiryaev 12 years ago
parent
commit
5423f5ce0e

BIN
BlackBox/_Linux_/System/Mod/Kernel.odc


+ 2 - 2
BlackBox/_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
BlackBox/_Linux_/libBB.so


BIN
BlackBox/_Linux_/libBB0.so


BIN
BlackBox/_OpenBSD_/System/Mod/Kernel.odc


+ 2 - 2
BlackBox/_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
BlackBox/_OpenBSD_/libBB.so


BIN
BlackBox/_OpenBSD_/libBB0.so