adaptation to 64bit

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

source/Unix.UnixFiles.Mod

@@ -466,7 +466,7 @@ TYPE
 				PROCEDURE SetX( VAR r: Files.Rider;  p: LONGINT );
 				VAR  org, offset, i, n, res: LONGINT;  buf: Buffer;
 				BEGIN 
-					IF p > fsize THEN  p := fsize
+					IF p > fsize THEN  p := LONGINT(fsize)
 					ELSIF p < 0 THEN  p := 0
 					END;
 					offset := p MOD Bufsize;  org := p - offset;  
@@ -593,7 +593,7 @@ TYPE
 
 				PROCEDURE Length*( ): LONGINT;
 				BEGIN
-					RETURN fsize
+					RETURN LONGINT(fsize)
 				END Length;