steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

elf: only open file for reading

db4
Björn Lindqvist 2014-08-17 20:02:30 +02:00 committed by Doug Coleman
parent b5147aa549
commit 4f1762d121
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/elf/elf.factor
View File

@ -566,7 +566,7 @@ TUPLE: segment elf-header program-header data ;
TUPLE: symbol name elf-header sym data ;
GENERIC: sections ( obj -- sections )
: <elf> ( c-ptr -- elf )
elf-header elf boa ;
@ -604,7 +604,7 @@ M:: segment sections ( segment -- sections )
first2 :> ( name sym )
name section elf-header>> sym f symbol boa
] { } map-as ;
:: symbol-data ( symbol -- data )
symbol [ elf-header>> ] [ sym>> st_value>> ] bi virtual-address-segment :> segment
symbol sym>> st_value>> segment p_vaddr>> - segment p_offset>> + :> faddress
@ -624,4 +624,4 @@ M:: segment sections ( segment -- sections )
: with-mapped-elf ( path quot -- )
'[
address>> <elf> @
] with-mapped-file ; inline
] with-mapped-file-reader ; inline