(infer-alien-indirect) ( params -- )

Vocabulary

stack-checker.alien

Inputs

params

an object

Outputs

None

Definition

USING: alien kernel stack-checker.backend stack-checker.visitor
;

IN: stack-checker.alien

: (infer-alien-indirect) ( params -- )
    pop-abi pop-params pop-return prepare-varargs dup
    param-prep-quot '[ _ [ >c-ptr ] bi* ] infer-quot-here
    dup dup inputs/outputs #alien-indirect, infer-return ;