prepare-accessor ( base offset info -- base offset )

Vocabulary

compiler.cfg.intrinsics.alien

Inputs

base	an object
offset	an object
info	an object

Outputs

base	an object
offset	an object

Definition

USING: accessors compiler.cfg.hats kernel ;

IN: compiler.cfg.intrinsics.alien

: prepare-accessor ( base offset info -- base offset )
    class>> swap [ ^^unbox-c-ptr ] dip ^^add 0 ;