toctave

commit 0feb304f9085676e01da7746b9f58d9825fd335a
parent 480ed4e59f92e0972c12a9135bf41a26ff2be2ed
Author: Mohammad-Reza Nabipoor <mnabipoor@gnu.org>
Date:   Sat, 28 May 2022 00:49:25 +0430

Move nan_unbox{,_uint} macros to VM C files

Diffstat:
M
toctave.jitter
 | 
11
++++++++++-

1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/toctave.jitter b/toctave.jitter
@@ -16,7 +16,6 @@ end
 wrapped-functions
   pow
   memcpy
-  nan_unbox
   toctave_var
   toctave_var_set
 end
@@ -54,10 +53,20 @@ union double_uint64
   double d;
   uint64_t u64;
 };
+  end
+end
 
+initial-vm1-c
+  code
 #define nan_unbox_uint(p) (((p) & /*mask*/(((uint64_t)1 << 51) - 1)) << 3)
 #define nan_unbox(dbl) nan_unbox_uint(((union double_uint64){ .d = (dbl) }).u64)
+  end
+end
 
+initial-vm2-c
+  code
+#define nan_unbox_uint(p) (((p) & /*mask*/(((uint64_t)1 << 51) - 1)) << 3)
+#define nan_unbox(dbl) nan_unbox_uint(((union double_uint64){ .d = (dbl) }).u64)
   end
 end