Fix doubles

16 files changed, 32 insertions, 3 deletions

diff --git a/include/lcq/pit/runtime.h b/include/lcq/pit/runtime.h
index 4132231..f946a71 100644
--- a/include/lcq/pit/runtime.h
+++ b/include/lcq/pit/runtime.h
@@ -9,7 +9,7 @@ struct pit_runtime;
 
 /* nil is always the symbol with index 0 */
 #define PIT_NIL 0xfff4000000000000 /* 0b1111111111110100000000000000000000000000000000000000000000000000 */
-#define PIT_T   (PIT_NIL+sizeof(pit_symtab_entry))
+#define PIT_T   (PIT_NIL+1)
 
 enum pit_value_sort {
     PIT_VALUE_SORT_DOUBLE  = 0, /* 0b00 - double */
diff --git a/src/runtime.c b/src/runtime.c
index a77fbf4..6f3759f 100644
--- a/src/runtime.c
+++ b/src/runtime.c
@@ -212,10 +212,14 @@ double pit_as_double(pit_runtime *rt, pit_value v) {
         pit_error(rt, "invalid use of value as double");
         return 0.0;
     }
-    return (double) v;
+    union { double dval; u64 ival; } x;
+    x.ival = v;
+    return x.dval;
 }
 pit_value pit_double_new(pit_runtime *rt, double d) {
-    return pit_value_new(rt, PIT_VALUE_SORT_DOUBLE, (u64) d);
+    union { double dval; u64 ival; } x;
+    x.dval = d;
+    return pit_value_new(rt, PIT_VALUE_SORT_DOUBLE, x.ival);
 }
 
 i64 pit_as_integer(pit_runtime *rt, pit_value v) {
diff --git a/array.lisp b/test/array.lisp
index 976f70d..976f70d 100644
--- a/array.lisp
+++ b/test/array.lisp
diff --git a/test/bif.pit b/test/bif.pit
new file mode 100644
index 0000000..81a1248
--- /dev/null
+++ b/test/bif.pit
@@ -0,0 +1,12 @@
+(print! nil)
+(print! nil)
+(print! t)
+(print! (eq? 1 1))
+(diagnostics!)
+(defun! bif (x)
+  (cons x x))
+(diagnostics!)
+(setq! foo (print! (bif (bif (bif 67)))))
+(print! (eq? (car foo) (cdr foo)))
+(diagnostics!)
+(print! foo)
diff --git a/broken.lisp b/test/broken.lisp
index 09f4afc..09f4afc 100644
--- a/broken.lisp
+++ b/test/broken.lisp
diff --git a/fold.lisp b/test/fold.lisp
index 89031d0..89031d0 100644
--- a/fold.lisp
+++ b/test/fold.lisp
diff --git a/gc.pit b/test/gc.pit
index 28eed50..28eed50 100644
--- a/gc.pit
+++ b/test/gc.pit
diff --git a/nonbroken.lisp b/test/nonbroken.lisp
index 350f64f..350f64f 100644
--- a/nonbroken.lisp
+++ b/test/nonbroken.lisp
diff --git a/struct.lisp b/test/struct.lisp
index 9e35654..9e35654 100644
--- a/struct.lisp
+++ b/test/struct.lisp
diff --git a/test.lisp b/test/test.lisp
index ef13abb..ef13abb 100644
--- a/test.lisp
+++ b/test/test.lisp
diff --git a/test2.lisp b/test/test2.lisp
index 79a9791..79a9791 100644
--- a/test2.lisp
+++ b/test/test2.lisp
diff --git a/test3.lisp b/test/test3.lisp
index 2febb75..2febb75 100644
--- a/test3.lisp
+++ b/test/test3.lisp
diff --git a/thebug.lisp b/test/thebug.lisp
index ad87bd7..ad87bd7 100644
--- a/thebug.lisp
+++ b/test/thebug.lisp
diff --git a/test/thebug2.lisp b/test/thebug2.lisp
new file mode 100644
index 0000000..2376ff8
--- /dev/null
+++ b/test/thebug2.lisp
@@ -0,0 +1,13 @@
+
+(setq! z 40)
+(setq! f
+  (lambda (x)
+    (lambda (y)
+      (lambda (w)
+        (+
+          (funcall (lambda (z) (+ x y z)) 3)
+          w
+          z)))))
+(let ((z 20))
+  (print! (funcall (funcall (funcall f 1) 2) 3)))
+
diff --git a/x86.pit b/test/x86.pit
index 2aa8d89..2aa8d89 100644
--- a/x86.pit
+++ b/test/x86.pit
diff --git a/y.lisp b/test/y.lisp
index 5e9218b..5e9218b 100644
--- a/y.lisp
+++ b/test/y.lisp