(emit-load-memory) ( block node rep c-type quot -- block' )


Vocabulary
compiler.cfg.intrinsics.alien

Inputs
blockan object
nodean object
repan object
c-typean object
quotan object


Outputs
block'an object


Definition
USING: compiler.cfg.hats compiler.cfg.stacks kernel ;

IN: compiler.cfg.intrinsics.alien

: (emit-load-memory)
( block node rep c-type quot -- block' )
[
[ [ [ prepare-load-memory ] ] dip ] dip
[ ^^load-memory-imm ] 2curry compose
] dip [ ds-push ] compose compose
[ inline-load-memory? ] inline-accessor ; inline