with-small-register ( dst exclude size quot: ( new-dst -- ) -- )

Vocabulary

cpu.x86

Inputs

dst	an object
exclude	an object
size	an object
quot	a quotation with stack effect ( new-dst -- )

Outputs

None

Definition

USING: kernel ;

IN: cpu.x86

:: with-small-register
    ( dst exclude size quot: ( new-dst -- ) -- )
    dst size has-small-reg?
    [ dst quot call ] [
        exclude small-reg-that-isn't
        [ quot call ] with-save/restore
    ] if ; inline