1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: namespaces layouts sequences kernel
4 accessors compiler.tree.propagation.info
5 compiler.cfg.stacks compiler.cfg.hats
6 compiler.cfg.instructions compiler.cfg.utilities ;
7 IN: compiler.cfg.intrinsics.misc
10 ds-pop tag-mask get ^^and-imm ^^tag-fixnum ds-push ;
12 : emit-getenv ( node -- )
13 "userenv" ^^vm-field-ptr
14 swap node-input-infos first literal>>
15 [ ds-drop 0 ^^slot-imm ] [ ds-pop ^^offset>slot ^^slot ] if*