emit-set-alien-cell ( block node -- block' )

Vocabulary

compiler.cfg.intrinsics.alien

Inputs

block	an object
node	an object

Outputs

block'

an object

Definition

USING: accessors alien compiler.cfg.hats cpu.architecture kernel
sequences ;

IN: compiler.cfg.intrinsics.alien

: emit-set-alien-cell ( block node -- block' )
    int-rep f [
        [ first class>> ] [ prepare-store-memory ] bi
        [ swap ^^unbox-c-ptr ] 2dip
    ] [ pinned-c-ptr ] (emit-store-memory) ;