shithub: MicroHs

Download patch

ref: c09586ae7ad3b9289c882896d4648c5df71b00e8
parent: 217943ad8a937b60de6c7bceabdeb328b66f12f2
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Wed Jan 3 16:00:32 EST 2024

Add missing T_DBL case.

--- a/src/runtime/eval.c
+++ b/src/runtime/eval.c
@@ -2017,6 +2017,7 @@
 {
   int r;
   value_t x, y;
+  flt_t xd, yd;
   void *f, *g;
   
  top:
@@ -2052,6 +2053,10 @@
     x = GETVALUE(p);
     y = GETVALUE(q);
     return x < y ? -1 : x > y ? 1 : 0;
+  case T_DBL:
+    xd = GETDBLVALUE(p);
+    yd = GETDBLVALUE(q);
+    return xd < yd ? -1 : xd > yd ? 1 : 0;
   case T_PTR:
     f = PTR(p);
     g = PTR(q);
--