Increased block size

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7736 8c9fc860-2736-0410-a75d-ab315db34111

source/Generic.Unix.AMD64.Machine.Mod

@@ -20,9 +20,9 @@ CONST
 	AddressSize = SIZEOF(ADDRESS);
 	BlockHeaderSize = 2 * AddressSize;
 	RecordDescSize = 4 * AddressSize;  (* needs to be adapted in case Heaps.RecordBlockDesc is changed *)
-	StaticBlockSize = 32;		(* static heap block size *)
+	StaticBlockSize = 8 * AddressSize;	(* static heap block size *)
 
-	BlockSize = 32;
+	BlockSize = StaticBlockSize;
 	MemBlockSize* = 64*1024*1024;
 	
 	TraceOutput* = 0;	(* Trace output *)

source/Win64.Machine.Mod

@@ -23,7 +23,7 @@ CONST
 CONST
 	TraceVerbose = FALSE; 
 	AddressSize = SIZEOF(ADDRESS);
-	StaticBlockSize = 32;		(* static heap block size *)
+	StaticBlockSize = 8*AddressSize;		(* static heap block size *)
 	BlockHeaderSize = 2 * AddressSize;
 	(* change this when Heaps.HeapBlock is modified *)
 	RecordDescSize = 4 * AddressSize;  (* needs to be adapted in case Heaps.RecordBlockDesc is changed *)