picolisp

commit f4e504433730cde9dde808df696ab1f9554051be
parent ab1c02cb03d08ce59514b13475b5c311d577e329
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 24 Oct 2012 08:18:47 +0200

emu64 continued
Diffstat:
M
src64/arch/emu.l
 | 
7
++++++-

1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/src64/arch/emu.l b/src64/arch/emu.l
@@ -1,4 +1,4 @@
-# 23oct12abu
+# 24oct12abu
 # (c) Software Lab. Alexander Burger
 
 # Byte order
@@ -1267,6 +1267,11 @@
       (prOpcode I (car X)) )
    (prinl "};")
    (prinl)
+   (when *FPic
+      (for S (idx '*Labels)
+         (unless (pre? "." S)  # Omit local labels
+            (prinl "uint16_t *" S " = LibCode + " (val S) ";") ) )
+      (prinl) )
    (if *FPic
       (mapc prinl
          (quote