Vocabulary
compiler.cfg.builder.alien

Inputs and outputs

params

an alien-node-params

Word description
If the last alien call returns a value, then this word will emit an instruction to the current sequence being constructed by make that boxes it.

Examples

USING: compiler.cfg.builder.alien make prettyprint ; [ T{ ##alien-invoke { reg-outputs { { 1 int-rep RAX } } } } , T{ alien-invoke-params { return pointer: void } } caller-return ] { } make . { T{ ##alien-invoke { reg-outputs { { 1 int-rep RAX } } } } T{ ##box-alien { dst 116 } { src 1 } { temp 115 } } }

Definition

USING: accessors alien.c-types compiler.cfg.builder.alien.boxing
compiler.cfg.stacks kernel make namespaces sequences ;

IN: compiler.cfg.builder.alien

: caller-return ( params -- )
return>>
[ ] [
[
building get last reg-outputs>> flip
[ { } { } ] [ first2 ] if-empty
] dip base-type box-return ds-push
] if-void ;