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

fixed entier routine: did not work properly for negative args

Browse source
This commit is contained in:
ceriel 1989-11-28 14:16:38 +00:00
parent 55a133aa3c
commit a49ffb7945
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

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