24 lines
706 B
Factor
Executable File
24 lines
706 B
Factor
Executable File
! Copyright (C) 2006, 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel namespaces optimizer.backend optimizer.def-use
|
|
optimizer.known-words optimizer.math optimizer.control
|
|
optimizer.inlining inference.class ;
|
|
IN: optimizer
|
|
|
|
: optimize-1 ( node -- newnode ? )
|
|
[
|
|
H{ } clone class-substitutions set
|
|
H{ } clone literal-substitutions set
|
|
H{ } clone value-substitutions set
|
|
dup compute-def-use
|
|
kill-values
|
|
dup detect-loops
|
|
dup infer-classes
|
|
optimizer-changed off
|
|
optimize-nodes
|
|
optimizer-changed get
|
|
] with-scope ;
|
|
|
|
: optimize ( node -- newnode )
|
|
optimize-1 [ optimize ] when ;
|