Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
36 lines (24 sloc) 922 Bytes
(declare (unit arch)
(uses nodes arch-x86-64))
;; The default selected architecture
(define *arch* <arch-x86-64>)
;; Get all vregs that are read in this instr
(define (arch-vregs-read instr)
((arch-descriptor-vregs-read *arch*) instr))
;; Get all vregs that are written to in this instr
(define (arch-vregs-written instr)
((arch-descriptor-vregs-written *arch*) instr))
;; Generate a function to act as a bridge between the C runtime and the compiled Scheme.
;;
(define (arch-generate-bridge-context mod)
((arch-descriptor-generate-bridge-context *arch*) mod))
;; Format an operand
;;
(define (arch-operand-format op)
((arch-descriptor-operand-format *arch*) op))
;; Instruction selection
;;
(define (arch-emit-statement mc-blk tree)
((arch-descriptor-emit-statement *arch*) mc-blk tree))
(define (arch-make-context name params mod)
((arch-descriptor-make-context *arch*) name params mod))