diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-13 22:32:11 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-13 22:32:11 -0700 |
| commit | 971833447e77fdd57ae204e8bdad9f72736999f2 (patch) | |
| tree | 2b0ea5002cdbf18f27d70b9af02ad752d9efedb1 | |
| parent | 62e9ae484fd396a882db42e9c0c861ae666450d9 (diff) | |
| download | txr-971833447e77fdd57ae204e8bdad9f72736999f2.tar.gz txr-971833447e77fdd57ae204e8bdad9f72736999f2.tar.bz2 txr-971833447e77fdd57ae204e8bdad9f72736999f2.zip | |
asm: fix nonworking setv.
* share/txr/stdlib/asm.tl (parse-args): Include the type spec
in the diagnostic for invalid type spec.
(op-setv): Fix use of invalid type spec s, which should
be rs.
| -rw-r--r-- | share/txr/stdlib/asm.tl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl index 29decc71..b9025ed7 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -127,7 +127,8 @@ (parse-compound-operand arg)) ((symbolp arg) (parse-operand (symbol-name arg))))) - (t (error "assembler: invalid arg type spec"))))) + (t (error "assembler: invalid arg type spec ~s" + type))))) (unless (or parg (eq type 'o)) oc.(synerr "argument ~a of ~s invalid; ~a expected" n syntax [me.operand-name type])) @@ -540,7 +541,7 @@ (defopcode op-setv setv auto (:method asm (me asm syntax) me.(chk-arg-count 2 syntax) - (tree-bind (reg name) asm.(parse-args me syntax '(s r)) + (tree-bind (reg name) asm.(parse-args me syntax '(rs r)) asm.(put-insn me.code reg name))) (:method dis (me asm reg name) ^(,me.symbol ,(operand-to-sym reg) ,(operand-to-sym name)))) |