17 lines
555 B
Factor
17 lines
555 B
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: namespaces layouts sequences kernel
|
|
accessors compiler.tree.propagation.info
|
|
compiler.cfg.stacks compiler.cfg.hats
|
|
compiler.cfg.instructions compiler.cfg.utilities ;
|
|
IN: compiler.cfg.intrinsics.misc
|
|
|
|
: emit-tag ( -- )
|
|
ds-pop tag-mask get ^^and-imm ^^tag-fixnum ds-push ;
|
|
|
|
: emit-getenv ( node -- )
|
|
"userenv" f ^^alien-global
|
|
swap node-input-infos first literal>>
|
|
[ ds-drop 0 ^^slot-imm ] [ ds-pop ^^offset>slot 0 ^^slot ] if*
|
|
ds-push ;
|