fix type of return value

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

source/FoxAMDBackend.Mod

@@ -211,7 +211,7 @@ TYPE
 		VAR i,sizeInBits,length, form: LONGINT;
 
 			PROCEDURE GetGPHint(offset: LONGINT): LONGINT;
-			VAR res: WORD;
+			VAR res: LONGINT;
 			BEGIN
 				IF (hint # none) & (hint >= AL) & (hint <= EDI) & (toVirtual[hint MOD 32 + offset]=free) & ~Reserved(hint) THEN res := hint MOD 32 + offset ELSE res := none END;
 				hint := none;
@@ -219,7 +219,7 @@ TYPE
 			END GetGPHint;
 
 			PROCEDURE GetHint(from,to: LONGINT): LONGINT;
-			VAR res: WORD;
+			VAR res: LONGINT;
 			BEGIN
 				IF (hint # none) & (hint >= from) & (hint <= to) & (toVirtual[hint]=free) & ~Reserved(hint) THEN res := hint ELSE res := none END;
 				hint := none;
@@ -422,7 +422,7 @@ TYPE
 		VAR i: LONGINT;
 
 			PROCEDURE GetGPHint(offset: LONGINT): LONGINT;
-			VAR res: WORD;
+			VAR res: LONGINT;
 			BEGIN
 				IF (hint # none) & (hint >= AL) & (hint <= R15) & (toVirtual[hint MOD 32 + offset]=free) & ~Reserved(hint) THEN res := hint MOD 32 + offset ELSE res := none END;
 				hint := none;