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 12:46:25 +00:00
parent 8a75c997c8
commit 448fdf4a58
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; RETURN;
END; END;
str[ind1] := 'E'; INC(ind1); str[ind1] := 'E'; INC(ind1);
DEC(pointpos); IF r # 0.0D THEN DEC(pointpos); END;
IF pointpos < 0 THEN IF pointpos < 0 THEN
pointpos := -pointpos; pointpos := -pointpos;
str[ind1] := '-'; str[ind1] := '-';

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

@ -119,7 +119,7 @@ DEFINITION MODULE Streams;
*) *)
PROCEDURE WriteBytes(stream: Stream; PROCEDURE WriteBytes(stream: Stream;
VAR bytes: ARRAY OF BYTE; bytes: ARRAY OF BYTE;
VAR result: StreamResult); VAR result: StreamResult);
(* writes bytes to the stream. No character translations occur. (* writes bytes to the stream. No character translations occur.
The number of bytes written is equal to the size of the parameter. 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;
END WriteByte; 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; VAR i: CARDINAL;
BEGIN BEGIN
FOR i := 0 TO HIGH(bytes) DO FOR i := 0 TO HIGH(bytes) DO