picolisp

commit 5c57ff2ecacc9b41c12d5ef9d4cf3f5f8801873f
parent fbe1150d2a47f4843bf242aea22b0520f5513e42
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun, 17 Apr 2011 19:27:02 +0200

Minor formatting corrections
Diffstat:
M
src64/lib/asm.l
 | 
10
+++++-----

1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/src64/lib/asm.l b/src64/lib/asm.l
@@ -1,4 +1,4 @@
-# 15apr11abu
+# 17apr11abu
 # (c) Software Lab. Alexander Burger
 
 # *LittleEndian *Registers optimize
@@ -518,10 +518,10 @@
    (prinst ".short" (glue ", " (mapcar hex Lst))) )
 
 (asm ascii (Str)
-   (prinst ".ascii " (pack "\"" Str "\"")) )
+   (prinst ".ascii" (pack "\"" Str "\"")) )
 
 (asm asciz (Str)
-   (prinst ".asciz " (pack "\"" Str "\"")) )
+   (prinst ".asciz" (pack "\"" Str "\"")) )
 
 (asm initFun (Lbl Name Val)
    (initSym Lbl Name Val (boxfun Val)) )
@@ -551,13 +551,13 @@
                (chain L) ) ) ) )
    (if (nth Name 9)
       (prinst ".quad" ".+20")
-      (prinl "   .byte    " (glue ", " Name))
+      (prinst ".byte" (glue ", " Name))
       (off Name) )
    (when Lbl
       (label Lbl) )
    (prinst ".quad" Val)
    (while Name
-      (prinl "   .byte    " (glue ", " (cut 8 'Name))) ) )
+      (prinst ".byte" (glue ", " (cut 8 'Name))) ) )
 
 (de warn (Msg)
    (out 2