Explorar o código

fix type of the returning value

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8479 8c9fc860-2736-0410-a75d-ab315db34111
eth.metacore %!s(int64=6) %!d(string=hai) anos
pai
achega
c8b6e9b323
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      source/I386.MPEGUtilities.Mod

+ 1 - 1
source/I386.MPEGUtilities.Mod

@@ -681,7 +681,7 @@ TYPE
 		PROCEDURE ReadMotionCode*(): LONGINT;
 		VAR
 			bits: LONGINT;
-			res: WORD;
+			res: LONGINT;
 
 		BEGIN
 			IF eof THEN RETURN 0 END;