summaryrefslogtreecommitdiff
path: root/src/parse.lisp
diff options
context:
space:
mode:
authorbd <bdunahu@operationnull.com>2025-04-11 03:32:24 -0400
committerbd <bdunahu@operationnull.com>2025-04-11 03:32:24 -0400
commit1904e4e800dcf37becb3bba17c3a3aaca3c7a47c (patch)
treed639d0d37216071462c008345d361358db24b171 /src/parse.lisp
parent1161354f5dbb9648f90edb3ffb16dc9daad7d966 (diff)
Add a few new test files
Diffstat (limited to 'src/parse.lisp')
-rw-r--r--src/parse.lisp10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/parse.lisp b/src/parse.lisp
index 2e1cf55..f435c0a 100644
--- a/src/parse.lisp
+++ b/src/parse.lisp
@@ -51,14 +51,14 @@
(esrap:defrule variable alphanumeric
(:lambda (e) (list 'emit::var e)))
-(esrap:defrule dereference (and integer #\( register #\))
- (:destructure (i1 w1 r w2)
- (declare (ignore w1 w2))
- (list r (list 'emit::imm i1))))
-
(esrap:defrule immediate (or integer variable)
(:lambda (e) (list 'emit::imm e)))
+(esrap:defrule dereference (and immediate #\( register #\))
+ (:destructure (i1 w1 r w2)
+ (declare (ignore w1 w2))
+ (list r i1)))
+
;;; defines rules to parse labels
(esrap:defrule label alphanumeric