diff options
author | bd <bdunahu@operationnull.com> | 2025-01-29 22:11:47 -0500 |
---|---|---|
committer | bd <bdunahu@operationnull.com> | 2025-01-29 22:11:47 -0500 |
commit | a27138cd3fb680b616c04fed02b73d630b681451 (patch) | |
tree | ffbdc54a80046a27f38a5d804d667ed66a51ebf9 /src/backend/ast/ir.scm | |
parent | 64a11c10aeb8ea331a9408708cf85b6750524d61 (diff) |
Add fixup rules new binary operators
Diffstat (limited to 'src/backend/ast/ir.scm')
-rw-r--r-- | src/backend/ast/ir.scm | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/src/backend/ast/ir.scm b/src/backend/ast/ir.scm index 23bc87b..73911ab 100644 --- a/src/backend/ast/ir.scm +++ b/src/backend/ast/ir.scm @@ -1,20 +1,24 @@ (define-module (backend ast ir) #:export (prog-ir srout-ir - instr-ir + instr-ir mov-ir stack-ir reg-ir imm-ir tmp-ir ret-ir + cdq-ir neg-ir not-ir plus-ir minus-ir mult-ir div-ir - mod-ir)) + mod-ir + + def-ir-nodes + def-ir-syms)) ;;; Commentary: ;;; @@ -34,16 +38,18 @@ ((_ names ...) (begin (define names - 'names) ...)))) + 'names) ...)))) (def-ir-nodes prog-ir srout-ir instr-ir + mov-ir stack-ir reg-ir imm-ir - tmp-ir) + tmp-ir + cdq-ir) (def-ir-syms neg-ir @@ -53,5 +59,4 @@ mult-ir div-ir mod-ir - ret-ir - mov-ir) + ret-ir) |