make-disassembly ( from to -- lines )

Vocabulary

tools.disassembler.zydis.private

Inputs

from	an object
to	an object

Outputs

lines

an object

Definition

USING: accessors alien alien.data alien.strings arrays
classes.struct hex-strings kernel make math
tools.disassembler.zydis ;

IN: tools.disassembler.zydis.private

:: make-disassembly ( from to -- lines )
    check-zydis-version ZydisDisassembledInstruction <struct>
    :> instruction from :> address! [
        [ address to < ] [
            zydis-machine-mode address address <alien> to
            address - instruction ZydisDisassembleIntel
            2147483648 bitand zero? [
                instruction info>> length>> :> size address
                address <alien> size memory>byte-array
                bytes>hex-string instruction text>>
                alien>native-string 3array , address size +
                address!
            ] [ to address! ] if
        ] while
    ] { } make ;