diff options
Diffstat (limited to 'module/system/vm/assembler.scm')
-rw-r--r-- | module/system/vm/assembler.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index bbd4e5d3a..59b194d16 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -173,6 +173,9 @@ (emit-scm->u64* . emit-scm->u64) emit-load-u64 (emit-u64->scm* . emit-u64->scm) + (emit-scm->s64* . emit-scm->s64) + emit-load-s64 + (emit-s64->scm* . emit-s64->scm) (emit-bv-length* . emit-bv-length) (emit-bv-u8-ref* . emit-bv-u8-ref) (emit-bv-s8-ref* . emit-bv-s8-ref) @@ -1919,6 +1922,7 @@ procedure with label @var{rw-init}. @var{rw-init} may be false. If ((scm) 0) ((f64) 1) ((u64) 2) + ((s64) 3) (else (error "what!" representation))))) (put-uleb128 names-port (logior (ash slot 2) tag))) (lp definitions)))))) |