diff options
Diffstat (limited to 'module/system')
-rw-r--r-- | module/system/vm/assembler.scm | 1 | ||||
-rw-r--r-- | module/system/vm/debug.scm | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index babe4796f..21f4353c8 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -1895,6 +1895,7 @@ procedure with label @var{rw-init}. @var{rw-init} may be false. If (let ((tag (case representation ((scm) 0) ((f64) 1) + ((u64) 2) (else (error "what!" representation))))) (put-uleb128 names-port (logior (ash slot 2) tag))) (lp definitions)))))) diff --git a/module/system/vm/debug.scm b/module/system/vm/debug.scm index 4d9a047fe..78bf13a50 100644 --- a/module/system/vm/debug.scm +++ b/module/system/vm/debug.scm @@ -386,6 +386,7 @@ section of the ELF image. Returns an ELF symbol, or @code{#f}." (representation (case (logand slot+representation #x3) ((0) 'scm) ((1) 'f64) + ((2) 'u64) (else 'unknown)))) (cons (vector name def-offset slot representation) (lp pos names))))))))))) |