From ddd448ae86e5730d5cd297f44ec89ee3fa3c0006 Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 18 Jan 2025 01:25:47 -0700 Subject: use a scheme procedures+eval to manage and transform AST Removes records for a more-managable scheme-syntax approach. Modules+overriding allows for the IR itself to be represented and evaluated as scheme code during each transformation. --- src/modules/generator/assembly.scm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 src/modules/generator/assembly.scm (limited to 'src/modules/generator/assembly.scm') diff --git a/src/modules/generator/assembly.scm b/src/modules/generator/assembly.scm new file mode 100644 index 0000000..50e158e --- /dev/null +++ b/src/modules/generator/assembly.scm @@ -0,0 +1,18 @@ +(define-module (modules generator assembly) + #:use-module (modules ast ir) + #:use-module (modules utils assign-stack) + #:use-module (modules utils merge-instructions) + #:export (instrs + mov)) + + +(define (instrs lst) + (cons 'list (cons (list 'alloc (abs (get-frame-size))) + (merge-instr lst)))) + +(define (mov dst src) + (if (and (eq? 'stack (car dst)) + (eq? 'stack (car src))) + (append (list (list 'mov (reg "r10") src)) + (list (list 'mov dst (reg "r10")))) + (list 'mov dst src))) -- cgit v1.2.3