Fixed offset of type descriptor (note that procedures like NewRec are not used in kernel cooperative kernel and heap objects are based on BaseTypes.Pointer)

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

source/Coop.Heaps.Mod

@@ -21,7 +21,7 @@ CONST
 	ArrayAlignment = 8;			(* first array element of ArrayBlock and first data element of SystemBlock must be aligned to 0 MOD ArrayAlignment *)
 	BlockHeaderSize* = 2 * AddressSize;
 	HeapBlockOffset* = - 2 * AddressSize;
-	TypeDescOffset* = - AddressSize;
+	TypeDescOffset* = 0;
 
 	ProtTypeBit* = 31;			(** flags in TypeDesc, RoundUp(log2(MaxTags)) low bits reserved for extLevel *)