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

Bug fix: conversion is OK if arg = 0.0

Browse source
This commit is contained in:
ceriel 1997-01-27 14:06:51 +00:00
parent 9f61a33c9f
commit ae0cde301d
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/RealConver.mod
View file

@ -57,7 +57,7 @@ IMPLEMENTATION MODULE RealConversions;
sign := r < 0.0D; sign := r < 0.0D;
IF sign THEN r := -r END; IF sign THEN r := -r END;
ok := TRUE; ok := TRUE;
IF NOT (r / 10.0D < r) THEN IF (r <> 0.0D) AND NOT (r / 10.0D < r) THEN
(* assume Nan or Infinity *) (* assume Nan or Infinity *)
r := 0.0D; r := 0.0D;
ok := FALSE; ok := FALSE;