[Wisp-cvs] wisp/users/dig elf.py,1.63,1.64

[<di...@us...>]

Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv11678

Modified Files:
	elf.py 
Log Message:
avoid usage of interpret_single

Index: elf.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/elf.py,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -d -r1.63 -r1.64
--- elf.py	18 May 2003 16:50:25 -0000	1.63
+++ elf.py	22 May 2003 19:30:03 -0000	1.64
@@ -322,11 +322,13 @@
         NUM        = 11
 
 from linkie import Linkie
-from tran import interpret_single, Integer_Literal
+from tran import interpret_single, Integer_Literal, Interpreter
 
 def make_ELF32_header (byte_order, reloc = 0):
     h = Linkie(byte_order)
-    interpret_single('make-elf32-header', h, include = 'elf')
+    do = Interpreter(h).do
+    do('needs elf')
+    do('make-elf32-header')
     if byte_order == '<':   h.place_symbol('#elf/byte-order', ELFDATA.TWOLSB)
     elif byte_order == '>': h.place_symbol('#elf/byte-order', ELFDATA.TWOMSB)
     else: raise 'Invalid byte order', byte_order