mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Remove assembler exports for old-style predicates and branches

Browse source 
* module/system/vm/assembler.scm: Remove emit-br, emit-br-if-true, etc,
  as these all now use new-style instructions.
This commit is contained in:
Andy Wingo 2017-10-30 10:21:41 +01:00
parent 0d42f5467f
commit 5fb9b7d542
1 changed files with 0 additions and 64 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -151,33 +151,6 @@
emit-br-if-npos-gt
emit-bind-kwargs
emit-bind-rest
emit-br
emit-br-if-true
emit-br-if-null
emit-br-if-nil
emit-br-if-pair
emit-br-if-struct
emit-br-if-char
emit-br-if-tc7
emit-br-if-eq
emit-br-if-eqv
emit-br-if-=
emit-br-if-<
emit-br-if-<=
emit-br-if-logtest
emit-br-if-u64-=
emit-br-if-u64-<
emit-br-if-u64-<=
emit-br-if-u64-<-scm
emit-br-if-u64-<=-scm
emit-br-if-u64-=-scm
emit-br-if-u64->=-scm
emit-br-if-u64->-scm
emit-br-if-f64-=
emit-br-if-f64-<
emit-br-if-f64-<=
emit-br-if-f64->
emit-br-if-f64->=
emit-box
emit-box-ref
emit-box-set!
@ -1247,43 +1220,6 @@ returned instead."
(visit-heap-tags define-heap-tag=?-macro-assembler)
(define-syntax-rule (define-tc7-macro-assembler name tc7)
(define-macro-assembler (name asm slot invert? label)
(emit-br-if-tc7 asm slot invert? tc7 label)))
;; Keep in sync with tags.h. Part of Guile's ABI. Currently unused
;; macro assemblers are commented out. See also
;; *branching-primcall-arities* in (language cps primitives), the set of
;; macro-instructions in assembly.scm, and
;; disassembler.scm:code-annotation.
;;
;; FIXME: Define all tc7 values in Scheme in one place, derived from
;; tags.h.
(define-tc7-macro-assembler br-if-symbol #x05)
(define-tc7-macro-assembler br-if-variable #x07)
(define-tc7-macro-assembler br-if-vector #x0d)
;(define-tc7-macro-assembler br-if-weak-vector 13)
(define-tc7-macro-assembler br-if-string #x15)
;(define-tc7-macro-assembler br-if-heap-number 23)
;(define-tc7-macro-assembler br-if-stringbuf 39)
(define-tc7-macro-assembler br-if-bytevector #x4d)
;(define-tc7-macro-assembler br-if-pointer 31)
;(define-tc7-macro-assembler br-if-hashtable 29)
;(define-tc7-macro-assembler br-if-fluid 37)
;(define-tc7-macro-assembler br-if-dynamic-state 45)
;(define-tc7-macro-assembler br-if-frame 47)
(define-tc7-macro-assembler br-if-keyword #x35)
;(define-tc7-macro-assembler br-if-syntax #x3d)
;(define-tc7-macro-assembler br-if-vm 55)
;(define-tc7-macro-assembler br-if-vm-cont 71)
;(define-tc7-macro-assembler br-if-rtl-program 69)
;(define-tc7-macro-assembler br-if-weak-set 85)
;(define-tc7-macro-assembler br-if-weak-table 87)
;(define-tc7-macro-assembler br-if-array 93)
(define-tc7-macro-assembler br-if-bitvector #x5f)
;(define-tc7-macro-assembler br-if-port 125)
;(define-tc7-macro-assembler br-if-smob 127)
(define-macro-assembler (begin-program asm label properties)
(emit-label asm label)
(let ((meta (make-meta label properties (asm-start asm))))