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

some fixes

Browse source
This commit is contained in:
ceriel 1987-10-19 10:06:24 +00:00
parent bf0ee1f16c
commit 67cf9c4933
5 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lang/m2/libm2/CSP.mod
View file

@ -147,7 +147,7 @@ IMPLEMENTATION MODULE CSP;
PROCEDURE COEND; PROCEDURE COEND;
(* End of a COBEGIN .. COEND structure *) (* End of a COBEGIN .. COEND structure *)
VAR aux: ProcessType; (* VAR aux: ProcessType; *)
BEGIN BEGIN
IF cp^.sons > 0 THEN IF cp^.sons > 0 THEN
DoTransfer DoTransfer
@ -219,7 +219,7 @@ IMPLEMENTATION MODULE CSP;
PROCEDURE Send(data: ARRAY OF BYTE; VAR ch: Channel); PROCEDURE Send(data: ARRAY OF BYTE; VAR ch: Channel);
(* Send a message with the data to the cvhannel ch *) (* Send a message with the data to the cvhannel ch *)
VAR m: ByteAddress; VAR m: ByteAddress;
aux: ProcessType; (* aux: ProcessType; *)
i: CARDINAL; i: CARDINAL;
BEGIN BEGIN
WITH ch^ DO WITH ch^ DO
@ -295,7 +295,7 @@ IMPLEMENTATION MODULE CSP;
PROCEDURE GUARD(cond: BOOLEAN; ch: Channel; PROCEDURE GUARD(cond: BOOLEAN; ch: Channel;
VAR dest: ARRAY OF BYTE): BOOLEAN; VAR dest: ARRAY OF BYTE): BOOLEAN;
(* Evaluates a guard, including reception management *) (* Evaluates a guard, including reception management *)
VAR aux: ProcessType; (* VAR aux: ProcessType; *)
BEGIN BEGIN
IF NOT cond THEN IF NOT cond THEN
RETURN FALSE RETURN FALSE

1
lang/m2/libm2/InOut.mod
View file

@ -183,7 +183,6 @@ IMPLEMENTATION MODULE InOut ;
VAR buf : ARRAY OF CHAR); VAR buf : ARRAY OF CHAR);
VAR i : INTEGER; VAR i : INTEGER;
j : CARDINAL; j : CARDINAL;
ch: CHAR;
BEGIN BEGIN
Done := TRUE; Done := TRUE;
IF isatty(0) THEN IF isatty(0) THEN

4
lang/m2/libm2/MathLib0.mod
View file

@ -34,9 +34,11 @@ BEGIN
END exp; END exp;
PROCEDURE entier(x: REAL): INTEGER; PROCEDURE entier(x: REAL): INTEGER;
VAR i: INTEGER;
BEGIN BEGIN
IF x < 0.0 THEN IF x < 0.0 THEN
RETURN - TRUNC(-x); i := TRUNC(-x);
RETURN -i;
END; END;
RETURN TRUNC(x); RETURN TRUNC(x);
END entier; END entier;

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

@ -17,7 +17,7 @@ IMPLEMENTATION MODULE RealInOut;
BEGIN BEGIN
IF ndigits > MAXWIDTH THEN ndigits := MAXWIDTH; END; IF ndigits > MAXWIDTH THEN ndigits := MAXWIDTH; END;
IF ndigits < 10 THEN ndigits := 10; END; IF ndigits < 10 THEN ndigits := 10; END;
RealConversions.RealToString(arg, ndigits, -(ndigits - 7), buf, ok); RealConversions.RealToString(arg, ndigits, -INTEGER(ndigits - 7), buf, ok);
InOut.WriteString(buf); InOut.WriteString(buf);
END WriteReal; END WriteReal;

1
lang/m2/libm2/Strings.mod
View file

@ -53,7 +53,6 @@ PROCEDURE Delete(VAR str: ARRAY OF CHAR; inx, len: CARDINAL);
string are deleted. string are deleted.
*) *)
VAR length: CARDINAL; VAR length: CARDINAL;
i : CARDINAL;
BEGIN BEGIN
IF len = 0 THEN RETURN; END; IF len = 0 THEN RETURN; END;
length := Length(str); length := Length(str);