enlarged the ProtOfs constant for 64-bit UnixAos

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

source/Unix.Heaps.Mod

@@ -56,7 +56,7 @@ CONST
 	
 	MaxCandidates = 1024;
 	
-	ProtOfs = 2*BlockSize + 16;	(*! p mod 32 = 16 ! *)
+	ProtOfs = (AddrSize DIV 4)*(2*BlockSize) + 16;	(*! p mod 32 = 16 ! *)
 	SysOfs = 24;  	(*! p mod 16 = 8 ! *)
 	ProtTypeBit* = 31;   (** flags in TypeDesc, low bits reserved for extLevel *)
 
@@ -1094,4 +1094,4 @@ VAR
 
 BEGIN
 	Init;
-END Heaps.
+END Heaps.