diff options
Diffstat (limited to 'module/system/vm/assembler.scm')
-rw-r--r-- | module/system/vm/assembler.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index ca24b03db..e949a9fc6 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -1313,9 +1313,9 @@ returned instead." (define-syntax-rule (define-scm<-scm-uimm-intrinsic name) (define-macro-assembler (name asm dst a b) (emit-call-scm<-scm-uimm asm dst a b (intrinsic-name->index 'name)))) -(define-syntax-rule (define-scm-u64-u64-intrinsic name) +(define-syntax-rule (define-scm-sz-u32-intrinsic name) (define-macro-assembler (name asm a b c) - (emit-call-scm-u64-u64 asm a b c (intrinsic-name->index 'name)))) + (emit-call-scm-sz-u32 asm a b c (intrinsic-name->index 'name)))) (define-syntax-rule (define-scm<-scm-intrinsic name) (define-macro-assembler (name asm dst src) (emit-call-scm<-scm asm dst src (intrinsic-name->index 'name)))) @@ -1369,7 +1369,7 @@ returned instead." (define-scm<-scm-scm-intrinsic logior) (define-scm<-scm-scm-intrinsic logxor) (define-scm<-scm-scm-intrinsic logsub) -(define-scm-u64-u64-intrinsic string-set!) +(define-scm-sz-u32-intrinsic string-set!) (define-scm<-scm-intrinsic string->number) (define-scm<-scm-intrinsic string->symbol) (define-scm<-scm-intrinsic symbol->keyword) |