Fixed size issue

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

source/AMD64.FoxArrayBaseOptimized.Mod

@@ -6509,7 +6509,7 @@ VAR
 		context.arg.SkipWhitespace; context.arg.Int(nrProcesses,TRUE);
 		IF nrProcesses > maxProcesses THEN
 			nrProcesses := maxProcesses
-		ELSIF nrProcesses = 0 THEN nrProcesses := Machine.NumberOfProcessors();
+		ELSIF nrProcesses = 0 THEN nrProcesses := LONGINT (Machine.NumberOfProcessors());
 		END;
 		KernelLog.String( "BlockSize=" );  KernelLog.Int( cBlockSize, 0 );
 		KernelLog.String( ", NrProcesses = " );  KernelLog.Int( nrProcesses, 0 );  KernelLog.Ln;
@@ -6517,7 +6517,7 @@ VAR
 
 BEGIN
 	cBlockSize := 0;   (* automatic *)
-	nrProcesses := Machine.NumberOfProcessors();   (* automatic *)
+	nrProcesses := LONGINT (Machine.NumberOfProcessors());   (* automatic *)
 
 	allocT := 0;  copyT := 0;  compT := 0;
 	NEW( cachePool );

source/I386.FoxArrayBaseOptimized.Mod

@@ -6511,7 +6511,7 @@ VAR
 		context.arg.SkipWhitespace; context.arg.Int(nrProcesses,TRUE);
 		IF nrProcesses > maxProcesses THEN
 			nrProcesses := maxProcesses
-		ELSIF nrProcesses = 0 THEN nrProcesses := Machine.NumberOfProcessors();
+		ELSIF nrProcesses = 0 THEN nrProcesses := LONGINT (Machine.NumberOfProcessors());
 		END;
 		KernelLog.String( "BlockSize=" );  KernelLog.Int( cBlockSize, 0 );
 		KernelLog.String( ", NrProcesses = " );  KernelLog.Int( nrProcesses, 0 );  KernelLog.Ln;
@@ -6519,7 +6519,7 @@ VAR
 
 BEGIN
 	cBlockSize := 0;   (* automatic *)
-	nrProcesses := Machine.NumberOfProcessors();   (* automatic *)
+	nrProcesses := LONGINT (Machine.NumberOfProcessors());   (* automatic *)
 
 	allocT := 0;  copyT := 0;  compT := 0;
 	NEW( cachePool );