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

use value parameters when VAR not needed

Browse Source
This commit is contained in:
ceriel 1989-03-20 13:03:34 +00:00
parent 448fdf4a58
commit 6b73c84ee1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -67,7 +67,7 @@ IMPLEMENTATION MODULE InOut ;
openinput(filename);
END OpenInputFile;
PROCEDURE openinput(VAR namebuf: ARRAY OF CHAR);
PROCEDURE openinput(namebuf: ARRAY OF CHAR);
BEGIN
IF (namebuf[0] = '-') AND (namebuf[1] = 0C) THEN
CurrIn := Streams.InputStream;
@ -106,7 +106,7 @@ IMPLEMENTATION MODULE InOut ;
openoutput(filename);
END OpenOutputFile;
PROCEDURE openoutput(VAR namebuf: ARRAY OF CHAR);
PROCEDURE openoutput(namebuf: ARRAY OF CHAR);
BEGIN
IF (namebuf[1] = '-') AND (namebuf[2] = 0C) THEN
CurrOut := Streams.OutputStream;