Fix EqFloat to actually work correctly

gap-system · May 30, 2017 · c98b2ed · c98b2ed
1 parent 27bd4b1
commit c98b2ed
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/src/macfloat.c b/src/macfloat.c
@@ -94,6 +94,7 @@ Int EqMacfloat (
 }
 
 Obj FuncEqMacfloat (
+    Obj                 self,
     Obj                 macfloatL,
     Obj                 macfloatR )
 {

diff --git a/tst/testinstall/float.tst b/tst/testinstall/float.tst
@@ -145,6 +145,18 @@ gap> -MakeFloat(1.0, infinity) = neginf;
 true
 gap> MakeFloat(1.0, -infinity) = neginf;
 true
+
+#
+gap> EqFloat(1.0, 1.1);
+false
+gap> EqFloat(1.0, 1.0);
+true
+gap> EqFloat(0.0/0.0,0.0/0.0);
+false
+gap> EqFloat(0.0,0.0/0.0);
+false
+
+#
 gap> STOP_TEST( "float.tst", 1);
 
 #############################################################################