Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
55 lines (35 sloc) 1.38 KB
;;
;; node types
;;
(declare (unit nodes))
(include "struct-syntax")
;; HLIL: A basic lambda language
(define-struct if (test conseq altern))
(define-struct lambda (name args body free-vars))
(define-struct comb (args))
(define-struct constant (value))
(define-struct variable (name))
(define-struct fix (defs body))
(define-struct prim (name args result cexp))
(define-struct nil ())
;; LLIL: A mc executable language
;;; this language borrows <constant>, <variable> , and <if> from HLIL, for they have the same semantics at this level.
;;; A label for a block of code
(define-struct label (name))
;;; Function application. The compiler overloads this operation for primitive application.
;;; This operation never returns, but merely passes control to its continuation
(define-struct app (name args))
;;; Selects a value from a record and binds it to 'name in the continuation expression 'cexp
(define-struct select (index record name cexp))
;;; Creates a record from a list of values and binds it to 'name in cexp
(define-struct record (values name cexp))
(define-struct block (label code))
(define-struct module (contexts))
(define-struct context (formals start blocks))
(define-struct arch-descriptor
(make-context
operand-format
vregs-read
vregs-written
generate-bridge-context
emit-statement))