%alien-assembly ( varargs? reg-inputs stack-inputs reg-outputs dead-outputs cleanup stack-size quot -- )

Vocabulary

cpu.architecture

Inputs

varargs?	an object
reg-inputs	an object
stack-inputs	an object
reg-outputs	an object
dead-outputs	an object
cleanup	an object
stack-size	an object
quot	an object

Outputs

None

Definition

USING: system ;

IN: cpu.architecture

HOOK: %alien-assembly cpu
    ( varargs? reg-inputs stack-inputs reg-outputs dead-outputs cleanup stack-size quot -- )

Methods

USING: cpu.architecture generalizations system ;

M: arm.64 %alien-assembly 8 ndrop ;


USING: combinators cpu.architecture cpu.x86 kernel sequences
system ;

M:: x86 %alien-assembly
    ( varargs? reg-inputs stack-inputs reg-outputs dead-outputs cleanup stack-size quot -- )
    stack-inputs [ first3 %store-stack-param ] each reg-inputs
    [ first3 %store-reg-param ] each varargs?
    [ reg-inputs %prepare-var-args ] when
    quot ( -- ) call-effect cleanup %cleanup reg-outputs
    [ first3 %load-reg-param ] each dead-outputs
    [ first2 %discard-reg-param ] each ;