caller-return ( params -- )

Vocabulary

compiler.cfg.builder.alien

Inputs

params

an alien-node-params

Outputs

None

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 ;