basis/compiler/cfg/intrinsics/misc/misc.factor

   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
   8
   9 : emit-tag ( -- )
  10     ds-pop tag-mask get ^^and-imm ^^tag-fixnum ds-push ;
  11
  12 : emit-getenv ( node -- )
  13     "userenv" f ^^alien-global
  14     swap node-input-infos first literal>>
  15     [ ds-drop 0 ^^slot-imm ] [ ds-pop ^^offset>slot 0 ^^slot ] if*
  16     ds-push ;