(infer-alien-callback) ( varargs? -- )

Vocabulary

stack-checker.alien

Inputs

varargs?

an object

Outputs

None

Definition

USING: accessors kernel stack-checker.backend
stack-checker.visitor system ;

IN: stack-checker.alien

:: (infer-alien-callback) ( varargs? -- )
    pop-literal :> quot alien-callback-params new varargs?
    >>varargs?
    pop-abi pop-params pop-return :> params varargs? cpu arm.64?
    not and [ variadic-callback-architecture-unsupported ] when
    params callback-bottom
    params dup dup quot wrap-callback-quot infer-callback-quot
    #alien-callback, ;