godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases 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 39120c6a25
commit 69860ac7b5
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
IF x < 0.0 THEN
i := TRUNC(-x);
IF FLOAT(-i) = x THEN
IF FLOAT(i) = -x THEN
RETURN -i;
ELSE
RETURN -i -1;