Removed obsolete integer truncation

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

source/FoxSemanticChecker.Mod

@@ -6244,9 +6244,9 @@ TYPE
 				ELSIF HasFlag(modifiers,Global.NameAbstract,position) THEN procedure.SetAbstract(TRUE)
 				END;
 				IF HasValue(modifiers, Global.NameFingerprint, position, value) THEN 
-					fp.shallow := LONGINT(value); (* TODO: fix explicit integer truncation *)
-					fp.public := LONGINT(value); (* TODO: fix explicit integer truncation *)
-					fp.private := LONGINT(value); (* TODO: fix explicit integer truncation *)
+					fp.shallow := value;
+					fp.public := value;
+					fp.private := value;
 					fp.shallowAvailable := TRUE;
 					procedure.SetFingerprint(fp);
 				END;