diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-04-28 21:58:52 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-04-28 21:58:52 -0700 |
| commit | 0f9d67c5893d1593ca4067bc2a73adce9c068f68 (patch) | |
| tree | 7dd1750782adab3b78e07c39bed8710dec4c180b | |
| parent | b920c143c893dc029c37d511f4270110ba07c17c (diff) | |
| download | txr-0f9d67c5893d1593ca4067bc2a73adce9c068f68.tar.gz txr-0f9d67c5893d1593ca4067bc2a73adce9c068f68.tar.bz2 txr-0f9d67c5893d1593ca4067bc2a73adce9c068f68.zip | |
asm: improve bad immediate diagnostic.
* share/txr/stdlib/asm.tl (bits-to-obj): Show the bad
immediate operand in hex.
| -rw-r--r-- | share/txr/stdlib/asm.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl index 805de9e9..a03ead4e 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -298,7 +298,7 @@ (caseq tag (1 (sign-extend val (- width 2))) (2 (chr-int val)) - (t (error "~s: bad immediate operand: ~s" 'assembler bits))))) + (t (error "~s: bad immediate operand: ~x" 'assembler bits))))) (defun small-op-p (val) (with-lev-idx (lv ix) val |