From 4f1762d1213a97ba4b546e5184bea6b2e43a532c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Sun, 17 Aug 2014 20:02:30 +0200 Subject: [PATCH] elf: only open file for reading --- extra/elf/elf.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/elf/elf.factor b/extra/elf/elf.factor index d7c1524f4c..2c14faf835 100644 --- a/extra/elf/elf.factor +++ b/extra/elf/elf.factor @@ -566,7 +566,7 @@ TUPLE: segment elf-header program-header data ; TUPLE: symbol name elf-header sym data ; GENERIC: sections ( obj -- sections ) - + : ( 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>> @ - ] with-mapped-file ; inline + ] with-mapped-file-reader ; inline