picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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

emu64 continued
Diffstat:
Msrc64/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