virtual-address-section ( elf: Elf32/64_Ehdr address -- section-header/f )

Vocabulary

elf

Inputs

elf	a Elf32/64_Ehdr
address	an object

Outputs

section-header/f

an object

Definition

USING: accessors kernel math math.intervals sequences typed ;

IN: elf

TYPED:: virtual-address-section
    ( elf: Elf32/64_Ehdr address -- section-header/f )
    elf address virtual-address-segment
    :> segment segment elf elf-section-headers
    elf-segment-sections :> sections address segment p_vaddr>> -
    segment p_offset>> + :> faddress sections [
        [ sh_offset>> dup ] [ sh_size>> + ] bi [a,b)
        faddress swap interval-contains?
    ] find nip ;