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

logsub is intrinsic

Browse source 
* libguile/intrinsics.h:
* libguile/intrinsics.c (logsub): New intrinsic.
  (scm_bootstrap_intrinsics): Init new intrinsic.
* libguile/vm-engine.c (logsub): Disable.
* module/language/cps/reify-primitives.scm (compute-known-primitives):
  Add logsub.
* module/system/vm/assembler.scm: Update logsub intrinsic assembler.
This commit is contained in:
Andy Wingo 2018-04-12 17:10:35 +02:00
parent b2c01e5b58
commit 25a0fe8839
5 changed files with 22 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/language/cps/reify-primitives.scm
View file

@ -224,6 +224,7 @@
logand
logior
logxor
logsub
string-set!
string->number
string->symbol

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

@ -195,6 +195,7 @@
emit-logand
emit-logior
emit-logxor
emit-logsub
emit-string-set!
emit-string->number
emit-string->symbol
@ -255,7 +256,6 @@
emit-uadd/immediate
emit-usub/immediate
emit-umul/immediate
emit-logsub
emit-ulogand
emit-ulogior
emit-ulogxor
@ -1321,6 +1321,7 @@ returned instead."
(define-scm<-scm-scm-intrinsic logand)
(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<-scm-intrinsic string->number)
(define-scm<-scm-intrinsic string->symbol)