d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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 9379157da7
commit 346bc839a3
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); openinput(filename);
END OpenInputFile; END OpenInputFile;
PROCEDURE openinput(VAR namebuf: ARRAY OF CHAR); PROCEDURE openinput(namebuf: ARRAY OF CHAR);
BEGIN BEGIN
IF (namebuf[0] = '-') AND (namebuf[1] = 0C) THEN IF (namebuf[0] = '-') AND (namebuf[1] = 0C) THEN
CurrIn := Streams.InputStream; CurrIn := Streams.InputStream;
@ -106,7 +106,7 @@ IMPLEMENTATION MODULE InOut ;
openoutput(filename); openoutput(filename);
END OpenOutputFile; END OpenOutputFile;
PROCEDURE openoutput(VAR namebuf: ARRAY OF CHAR); PROCEDURE openoutput(namebuf: ARRAY OF CHAR);
BEGIN BEGIN
IF (namebuf[1] = '-') AND (namebuf[2] = 0C) THEN IF (namebuf[1] = '-') AND (namebuf[2] = 0C) THEN
CurrOut := Streams.OutputStream; CurrOut := Streams.OutputStream;