track f64 offsets in Literal (#1190)

2022-05-04 21:54:46 -06:00
parent 0f502fff84
commit 6030fae685
13 changed files with 163 additions and 71 deletions
--- a/src/machine/dispatch.rs
+++ b/src/machine/dispatch.rs
@@ -415,7 +415,7 @@ impl Machine {
                            Literal::Fixnum(n)
                        }
                        (HeapCellValueTag::F64, f) => {
-                            Literal::Float(f)
+                            Literal::Float(f.as_offset())
                        }
                        (HeapCellValueTag::Atom, (atom, arity)) => {
                            debug_assert_eq!(arity, 0);