fix result type

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

source/DiskCaches.Mod

@@ -37,7 +37,7 @@ IMPORT SYSTEM, Disks;
 		END Init;
 
 		(* LONGINTs for compatibility -- should be largely replaced by SIZEs ! *)
-		PROCEDURE Transfer* (op: LONGINT; block, num: LONGINT; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: LONGINT);
+		PROCEDURE Transfer* (op: LONGINT; block, num: LONGINT; VAR data: ARRAY OF CHAR; ofs: LONGINT; VAR res: WORD);
 		VAR globalIndex, lineIndex, lineOfs, lineFirstBlock, lineBlocks: LONGINT;
 		BEGIN
 			WHILE num > 0 DO