Explorar o código

fix result type

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

+ 1 - 1
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