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

Corrected MathLib0.mod: entier was wrong on negative args

Browse source
This commit is contained in:
ceriel 1989-11-27 09:37:56 +00:00
parent 4734150614
commit 5d81b090b9
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -48,7 +48,11 @@ PROCEDURE entier(x: REAL): INTEGER;
BEGIN BEGIN
IF x < 0.0 THEN IF x < 0.0 THEN
i := TRUNC(-x); i := TRUNC(-x);
RETURN -i; IF FLOAT(-i) = x THEN
RETURN -i;
ELSE
RETURN -i -1;
END;
END; END;
RETURN TRUNC(x); RETURN TRUNC(x);
END entier; END entier;