diff options
Diffstat (limited to 'src/modules/ast')
-rw-r--r-- | src/modules/ast/ir.scm | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/src/modules/ast/ir.scm b/src/modules/ast/ir.scm deleted file mode 100644 index 50e9e29..0000000 --- a/src/modules/ast/ir.scm +++ /dev/null @@ -1,50 +0,0 @@ -(define-module (ast ir) - #:export (prog - srout - neg - not - mov - stack - reg - imm - tmp - ret)) - -;;; Commentary: -;;; -;;; Nodes which exist to do nothing when evaluated. -;;; -;;; Code: - -(define (ir-node type . args) - (cons type args)) - -(define (prog func) - (ir-node 'prog func)) - -(define (srout label instrs) - (ir-node 'srout label instrs)) - -(define (neg dst) - (ir-node 'neg dst)) - -(define (not dst) - (ir-node 'not dst)) - -(define (mov src dst) - (ir-node 'mov src dst)) - -(define (stack val) - (ir-node 'stack val)) - -(define (reg val) - (ir-node 'reg val)) - -(define (imm val) - (ir-node 'imm val)) - -(define (tmp num) - (ir-node 'tmp num)) - -(define (ret) - (ir-node 'ret)) |