mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-03 16:20:39 +02:00
Code Activity

DRAFT: Change f64->scm into an intrinsic.

Browse source
This commit is contained in:
Mark H Weaver 2019-06-05 22:23:46 -04:00
parent 87f32999b9
commit de42f12099
7 changed files with 56 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/system/vm/assembler.scm
View file

@ -210,6 +210,7 @@
emit-scm->u64
emit-scm->u64/truncate
emit-scm->s64
emit-f64->scm
emit-u64->scm
emit-s64->scm
emit-wind
@ -1336,6 +1337,9 @@ returned instead."
(define-syntax-rule (define-s64<-scm-intrinsic name)
(define-macro-assembler (name asm dst src)
(emit-call-s64<-scm asm dst src (intrinsic-name->index 'name))))
(define-syntax-rule (define-scm<-f64-intrinsic name)
(define-macro-assembler (name asm dst src)
(emit-call-scm<-f64 asm dst src (intrinsic-name->index 'name))))
(define-syntax-rule (define-scm<-u64-intrinsic name)
(define-macro-assembler (name asm dst src)
(emit-call-scm<-u64 asm dst src (intrinsic-name->index 'name))))
@ -1386,6 +1390,7 @@ returned instead."
(define-u64<-scm-intrinsic scm->u64)
(define-u64<-scm-intrinsic scm->u64/truncate)
(define-s64<-scm-intrinsic scm->s64)
(define-scm<-f64-intrinsic f64->scm)
(define-scm<-u64-intrinsic u64->scm)
(define-scm<-s64-intrinsic s64->scm)
(define-thread-scm-scm-intrinsic wind)