godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

latest changes to PascalIO: Reset and Rewrite have their parameters switched

Browse Source
This commit is contained in:
ceriel
1987-07-08 16:37:23 +00:00
parent 537e64cf31
commit 2632711272
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lang/m2/libm2/PascalIO.mod
View File

@@ -30,7 +30,7 @@ IMPLEMENTATION MODULE PascalIO;
VAR ibuf, obuf: IOBuf;
head: Text;
PROCEDURE Reset(Filename: ARRAY OF CHAR; VAR InputText: Text);
PROCEDURE Reset(VAR InputText: Text; Filename: ARRAY OF CHAR);
BEGIN
doclose(InputText);
getstruct(InputText);
@@ -48,7 +48,7 @@ IMPLEMENTATION MODULE PascalIO;
END;
END Reset;
PROCEDURE Rewrite(Filename: ARRAY OF CHAR; VAR OutputText: Text);
PROCEDURE Rewrite(VAR OutputText: Text; Filename: ARRAY OF CHAR);
BEGIN
doclose(OutputText);
getstruct(OutputText);