From babe9f9d0e84daec1015d7593a9d6c6d480662b8 Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sat, 28 Dec 2024 12:44:07 -0700
Subject: Assembly generation for trivial programs

---
 src/modules/ast/assembly-tree.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 src/modules/ast/assembly-tree.scm

(limited to 'src/modules/ast/assembly-tree.scm')

diff --git a/src/modules/ast/assembly-tree.scm b/src/modules/ast/assembly-tree.scm
new file mode 100644
index 0000000..ee3e116
--- /dev/null
+++ b/src/modules/ast/assembly-tree.scm
@@ -0,0 +1,25 @@
+(define-module (modules ast assembly-tree)
+  #:use-module (srfi srfi-9)
+  #:export (make-subroutine
+            subroutine?
+            subroutine-label
+            subroutine-instructions
+
+            make-instruction
+            instruction?
+            instruction-operator
+            instruction-operand-1
+            instruction-operand-2))
+
+(define-record-type <subroutine>
+  (make-subroutine label instrs)
+  subroutine?
+  (label subroutine-label)
+  (instrs subroutine-instructions))
+
+(define-record-type <instruction>
+  (make-instruction op oper1 oper2)
+  instruction?
+  (op instruction-operator)
+  (oper1 instruction-operand-1)
+  (oper2 instruction-operand-2))
-- 
cgit v1.2.3