2
0
Эх сурвалжийг харах

Fixed issue -- var parameter

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7616 8c9fc860-2736-0410-a75d-ab315db34111
eth.metacore 7 жил өмнө
parent
commit
63c4b2068a
1 өөрчлөгдсөн 1 нэмэгдсэн , 1 устгасан
  1. 1 1
      source/Files64.Mod

+ 1 - 1
source/Files64.Mod

@@ -374,7 +374,7 @@ TYPE
 
 		(** Get one entry from the enumerator. *)
 
-		PROCEDURE GetEntry*(VAR name: ARRAY OF CHAR; VAR flags: SET; VAR time, date: LONGINT; size: HUGEINT): BOOLEAN;
+		PROCEDURE GetEntry*(VAR name: ARRAY OF CHAR; VAR flags: SET; VAR time, date: LONGINT; VAR size: HUGEINT): BOOLEAN;
 		VAR len, temp: LONGINT;
 		BEGIN
 			ReadNum(r, len);