diff options
author | bd <bdunahu@operationnull.com> | 2025-04-11 03:32:24 -0400 |
---|---|---|
committer | bd <bdunahu@operationnull.com> | 2025-04-11 03:32:24 -0400 |
commit | 1904e4e800dcf37becb3bba17c3a3aaca3c7a47c (patch) | |
tree | d639d0d37216071462c008345d361358db24b171 /src/parse.lisp | |
parent | 1161354f5dbb9648f90edb3ffb16dc9daad7d966 (diff) |
Add a few new test files
Diffstat (limited to 'src/parse.lisp')
-rw-r--r-- | src/parse.lisp | 10 |
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 |