From 0f9d67c5893d1593ca4067bc2a73adce9c068f68 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 28 Apr 2018 21:58:52 -0700
Subject: asm: improve bad immediate diagnostic.

* share/txr/stdlib/asm.tl (bits-to-obj): Show the bad
immediate operand in hex.
---
 share/txr/stdlib/asm.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3