From 9e09767e23a4edb6b31540195bfe885f83e080d7 Mon Sep 17 00:00:00 2001 From: bd Date: Tue, 28 Jan 2025 14:39:47 -0500 Subject: [Ongoing] Rewrite frontend to use Flex/Bison This is a merge of another experiment, so the changes are large: - separated "modules" directory into frontend/backend - adjusted module names and moved files for this to happen - removed modules lexer & parser - removed all the unit tests (most were outdated) - added Bison, flex, and C development tools to manifest.scm - added lexer.l, a source file used by the flex utility with a functioning lexing implementation - added parser.y, a source file used by the bison utility with a functioning parser implementation - added node.c and node.h, which parser.y uses to construct an AST of a C source file (up to binary ops) - added driver.c, a Guile-C interface that provides a module to scheme programs - added a Makefile to make all of this - added stuff to .gitignore --- src/backend/generator/assembly.scm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 src/backend/generator/assembly.scm (limited to 'src/backend/generator/assembly.scm') diff --git a/src/backend/generator/assembly.scm b/src/backend/generator/assembly.scm new file mode 100644 index 0000000..8a110f3 --- /dev/null +++ b/src/backend/generator/assembly.scm @@ -0,0 +1,18 @@ +(define-module (backend generator assembly) + #:use-module (backend ast ir) + #:use-module (backend utils assign-stack) + #:use-module (backend utils merge-instructions) + #:export (instrs + mov)) + + +(define (instrs lst) + (cons 'list (cons (list 'alloc (abs (get-frame-size))) + (merge-instr lst)))) + +(define (mov src dst) + (if (and (eq? 'stack (car dst)) + (eq? 'stack (car src))) + (append (list (list 'mov src (reg "r10d"))) + (list (list 'mov (reg "r10d") dst))) + (list 'mov src dst))) -- cgit v1.2.3