picolisp

commit 89263c9a9c2f5008bf14dfd03f6aa7311bb4aaac
parent e0a034639c77ad540b0b5c35ce85e11cc74c0c0d
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri,  7 Oct 2011 18:33:46 +0200

Add decimal short directive
Diffstat:
M
src64/lib/asm.l
 | 
6
+++++-

1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/src64/lib/asm.l b/src64/lib/asm.l
@@ -1,4 +1,4 @@
-# 23sep11abu
+# 07oct11abu
 # (c) Software Lab. Alexander Burger
 
 # *LittleEndian *AlignedCode *Registers optimize
@@ -423,6 +423,7 @@
       (cmpn (destination) "*Mode" (source) "*Mode" (source) "*Mode")
       (cnt (source) "*Mode")
       (dbg)
+      (dc2 (read))
       (dec (destination) "*Mode")
       (div (source) "*Mode")
       (drop)
@@ -530,6 +531,9 @@
 (asm bytes (Lst)
    (prinst ".byte" (glue ", " Lst)) )
 
+(asm dc2 (Lst)
+   (prinst ".short" (glue ", " Lst)) )
+
 (asm hx2 (Lst)
    (prinst ".short" (glue ", " (mapcar hex Lst))) )