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

Vocabulary

elf

Inputs

elf	a Elf32/64_Ehdr
address	an object

Outputs

program-header/f

an object

Definition

USING: accessors kernel math math.intervals sequences typed ;

IN: elf

TYPED:: virtual-address-segment
    ( elf: Elf32/64_Ehdr address -- program-header/f )
    elf elf-program-headers elf-loadable-segments [
        [ p_vaddr>> dup ] [ p_memsz>> + ] bi [a,b)
        address swap interval-contains?
    ] find nip ;