From 1904e4e800dcf37becb3bba17c3a3aaca3c7a47c Mon Sep 17 00:00:00 2001 From: bd Date: Fri, 11 Apr 2025 03:32:24 -0400 Subject: Add a few new test files --- src/parse.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/parse.lisp') 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 -- cgit v1.2.3