large-struct? ( type -- ? )

Vocabulary

classes.struct

Inputs

type

an object

Outputs

?

an object

Definition

USING: alien.c-types combinators cpu.architecture kernel ;

IN: classes.struct

: large-struct? ( type -- ? )
    {
        { [ dup void? ] [ drop f ] }
        { [ dup base-type struct-c-type? not ] [ drop f ] }
        [ return-struct-in-registers? not ]
    } cond ;