c-type-for-class ( class slots size align -- c-type )

Vocabulary

classes.struct.private

Inputs

class	an object
slots	an object
size	an object
align	an object

Outputs

c-type

an object

Definition

USING: accessors byte-arrays classes.struct kernel ;

IN: classes.struct.private

:: c-type-for-class ( class slots size align -- c-type )
    struct-c-type new byte-array >>class class >>boxed-class
    slots >>fields size >>size align >>align align >>align-first
    class (unboxer-quot) >>unboxer-quot
    class (boxer-quot) >>boxer-quot ;