picolisp

commit 1369bc48441d1be01d51296a01fc9838c7be1410
parent 97099f0cf5123774bc02b88f0dfb919928c596f7
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon, 15 Oct 2012 19:15:23 +0200

Minor clean-up
Diffstat:
M
src64/arch/ppc64.l
 | 
21
++++++++-------------

1 file changed, 8 insertions(+), 13 deletions(-)
diff --git a/src64/arch/ppc64.l b/src64/arch/ppc64.l
@@ -1,4 +1,4 @@
-# 13oct12abu
+# 15oct12abu
 # (c) Software Lab. Alexander Burger
 
 # Byte order
@@ -40,7 +40,9 @@
 
 (redef fpic ()
    (fpic)
-   (rdSym "ppc64.symtab") )
+   (in "ppc64.symtab"
+      (balance '*DataIndex (read))
+      (balance '*CodeIndex (read)) ) )
 
 (redef label (Lbl Flg)
    (ifn *FPic
@@ -94,16 +96,6 @@
                      0 ) )
                (T 4) ) ) ) ) )
 
-(de prSym (File)
-   (out File
-      (println (sort *DataLabels))
-      (println (sort *CodeLabels)) ) )
-
-(de rdSym (File)
-   (in File
-      (balance '*DataIndex (read))
-      (balance '*CodeIndex (read)) ) )
-
 (de dataOffset (Sym)
    (if (lup *DataIndex Sym)
       (cdr @)
@@ -1578,6 +1570,9 @@
 
 (de epilog (File)
    (unless *FPic
-      (prSym "ppc64.symtab") ) )
+      (out "ppc64.symtab"
+         (println (sort *DataLabels))
+         (println (sort *CodeLabels)) ) ) )
+
 
 # vi:et:ts=3:sw=3