patched compilation problem

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

source/FoxArrayBase.Mod

@@ -10283,7 +10283,7 @@ TYPE
 		IF dest.ptr # NIL THEN Heaps.SetPC(dest.ptr) END;
 	END AllocateArrayA;
 
-	PROCEDURE AllocateTensorX*( VAR dest: UnsafeArrayT; CONST a: ARRAY [ * ] OF SIZE;  Size: SIZE; tag: ADDRESS );
+	PROCEDURE DoAllocateTensorX*( VAR dest: UnsafeArrayT; CONST a: ARRAY [ * ] OF SIZE;  Size: SIZE; tag: ADDRESS );
 	VAR data: ANY;  same: BOOLEAN;  i: SIZE;  dim: SIZE;
 
 		PROCEDURE NewData;
@@ -10334,7 +10334,13 @@ TYPE
 			ELSE ClearData
 			END;
 		END;
+	END DoAllocateTensorX;
+	
+	PROCEDURE AllocateTensorX( VAR dest: ARRAY {UNSAFE} [?] OF SIZE; CONST a: ARRAY [ * ] OF SIZE;  Size: SIZE; tag: ADDRESS );
+	BEGIN
+		DoAllocateTensorX(dest,a,Size,tag);
 	END AllocateTensorX;
+	
 
 	PROCEDURE LenA*( VAR dest: ARRAY [ * ] OF SIZE;  src: ADDRESS );
 	VAR dim, i: SIZE;