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

! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: namespaces layouts sequences kernel math 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-special-object ( node -- )
    "special-objects" ^^vm-field-ptr
    swap node-input-infos first literal>>
    [ ds-drop 0 ^^slot-imm ] [ ds-pop ^^offset>slot ^^slot ] if*
    ds-push ;

: emit-identity-hashcode ( -- )
    ds-pop tag-mask get bitnot ^^load-immediate ^^and 0 0 ^^slot-imm
    hashcode-shift ^^shr-imm
    ^^tag-fixnum
    ds-push ;
Various optimizations leading to a 10% speedup on compiling empty EBNF parser: - open-code getenv primitive - inline tuple predicates in finalization - faster partial dispatch - faster built-in type predicates - faster tuple predicates - faster lo-tag dispatch - compile V{ } clone and H{ } clone more efficiently - add fixnum fast-path to =; avoid indirect branch if two fixnums not eq - faster >alist on hashtables 2008-12-06 10:16:29 -05:00			`! Copyright (C) 2008 Slava Pestov.`
			`! See http://factorcode.org/license.txt for BSD license.`
Faster identity-hashcode primitive; fast path now opencoded by the compiler 2009-11-11 01:50:57 -05:00			`USING: namespaces layouts sequences kernel math accessors`
			`compiler.tree.propagation.info compiler.cfg.stacks`
			`compiler.cfg.hats compiler.cfg.instructions`
			`compiler.cfg.utilities ;`
Various optimizations leading to a 10% speedup on compiling empty EBNF parser: - open-code getenv primitive - inline tuple predicates in finalization - faster partial dispatch - faster built-in type predicates - faster tuple predicates - faster lo-tag dispatch - compile V{ } clone and H{ } clone more efficiently - add fixnum fast-path to =; avoid indirect branch if two fixnums not eq - faster >alist on hashtables 2008-12-06 10:16:29 -05:00			`IN: compiler.cfg.intrinsics.misc`

			`: emit-tag ( -- )`
			`ds-pop tag-mask get ^^and-imm ^^tag-fixnum ds-push ;`

Rename kernel.private:getenv/setenv to special-object/set-special-object to mirror recent renaming on the VM side 2010-01-13 00:08:18 -05:00			`: emit-special-object ( node -- )`
			`"special-objects" ^^vm-field-ptr`
Various optimizations leading to a 10% speedup on compiling empty EBNF parser: - open-code getenv primitive - inline tuple predicates in finalization - faster partial dispatch - faster built-in type predicates - faster tuple predicates - faster lo-tag dispatch - compile V{ } clone and H{ } clone more efficiently - add fixnum fast-path to =; avoid indirect branch if two fixnums not eq - faster >alist on hashtables 2008-12-06 10:16:29 -05:00			`swap node-input-infos first literal>>`
Completing slot and set-slot changes on x86 2009-09-26 02:39:48 -04:00			`[ ds-drop 0 ^^slot-imm ] [ ds-pop ^^offset>slot ^^slot ] if*`
Various optimizations leading to a 10% speedup on compiling empty EBNF parser: - open-code getenv primitive - inline tuple predicates in finalization - faster partial dispatch - faster built-in type predicates - faster tuple predicates - faster lo-tag dispatch - compile V{ } clone and H{ } clone more efficiently - add fixnum fast-path to =; avoid indirect branch if two fixnums not eq - faster >alist on hashtables 2008-12-06 10:16:29 -05:00			`ds-push ;`
Faster identity-hashcode primitive; fast path now opencoded by the compiler 2009-11-11 01:50:57 -05:00
			`: emit-identity-hashcode ( -- )`
			`ds-pop tag-mask get bitnot ^^load-immediate ^^and 0 0 ^^slot-imm`
			`hashcode-shift ^^shr-imm`
			`^^tag-fixnum`
			`ds-push ;`