d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

use value parameters when VAR not needed

Browse source
This commit is contained in:
ceriel 1989-03-20 12:46:25 +00:00
parent a432f84eb0
commit 9379157da7
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/m2/libm2/RealConver.mod
View file

@ -139,7 +139,7 @@ IMPLEMENTATION MODULE RealConversions;
RETURN;
END;
str[ind1] := 'E'; INC(ind1);
DEC(pointpos);
IF r # 0.0D THEN DEC(pointpos); END;
IF pointpos < 0 THEN
pointpos := -pointpos;
str[ind1] := '-';

2
lang/m2/libm2/Streams.def
View file

@ -119,7 +119,7 @@ DEFINITION MODULE Streams;
*)
PROCEDURE WriteBytes(stream: Stream;
VAR bytes: ARRAY OF BYTE;
bytes: ARRAY OF BYTE;
VAR result: StreamResult);
(* writes bytes to the stream. No character translations occur.
The number of bytes written is equal to the size of the parameter.

2
lang/m2/libm2/Streams.mod
View file

@ -304,7 +304,7 @@ IMPLEMENTATION MODULE Streams;
END;
END WriteByte;
PROCEDURE WriteBytes(stream: Stream; VAR bytes: ARRAY OF BYTE; VAR result: StreamResult);
PROCEDURE WriteBytes(stream: Stream; bytes: ARRAY OF BYTE; VAR result: StreamResult);
VAR i: CARDINAL;
BEGIN
FOR i := 0 TO HIGH(bytes) DO