From 14b2600bd58b0a4b09c6647c1d78ab7bccd4c1aa Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 18 Jan 2025 02:07:40 -0700 Subject: set modules folder to modules path --- src/modules/generator/expansion.scm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'src/modules/generator/expansion.scm') diff --git a/src/modules/generator/expansion.scm b/src/modules/generator/expansion.scm index 3beb6db..5bfa878 100644 --- a/src/modules/generator/expansion.scm +++ b/src/modules/generator/expansion.scm @@ -1,6 +1,6 @@ -(define-module (modules generator expansion) - #:use-module (modules ast ir) - #:use-module (modules utils merge-instructions) +(define-module (generator expansion) + #:use-module (ast ir) + #:use-module (utils merge-instructions) #:export (instrs not neg @@ -11,13 +11,13 @@ #f (list 'instrs (cons 'list (merge-instr lst)))) -(define (not dst src) (unary 'not dst src)) -(define (neg dst src) (unary 'neg dst src)) +(define (not src dst) (unary 'not src dst)) +(define (neg src dst) (unary 'neg src dst)) (define (ret src) - (list (list 'mov (list 'reg "eax") src) + (list (list 'mov src (list 'reg "eax")) (list 'ret))) -(define (unary op dst src) - (list (list 'mov dst src) +(define (unary op src dst) + (list (list 'mov src dst) (list op dst))) -- cgit v1.2.3