steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Revert "compiler.tree.propagation.known-words: adding known outputs for some words." 

This reverts commit 16d8e6555b.
db4
John Benediktsson 2013-01-22 06:42:58 -08:00
parent 7a63013916
commit f5c898734c
1 changed files with 18 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
basis/compiler/tree/propagation/known-words/known-words.factor
View File

@ -1,17 +1,23 @@
! Copyright (C) 2008, 2010 Slava Pestov. ! Copyright (C) 2008, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.accessors alien.data.private USING: effects accessors kernel kernel.private layouts math
arrays assocs byte-arrays byte-vectors classes classes.algebra math.private math.integers.private math.floats.private
classes.tuple classes.tuple.private combinators math.partial-dispatch math.intervals math.parser math.order
compiler.tree.comparisons compiler.tree.propagation.constraints math.functions math.libm math.ratios namespaces words sequences
compiler.tree.propagation.info compiler.tree.propagation.simple sequences.private arrays assocs classes classes.algebra
compiler.tree.propagation.slots fry generic.math hashtables combinators generic.math splitting fry locals classes.tuple
kernel kernel.private layouts locals math math.floats.private alien.accessors classes.tuple.private slots.private definitions
math.functions math.integers.private math.intervals math.libm strings.private vectors hashtables generic quotations alien
math.parser math.partial-dispatch math.private namespaces sbufs alien.data alien.data.private
sequences slots.private splitting strings strings.private stack-checker.dependencies
vectors words ; compiler.tree.comparisons
USE: compiler.tree.propagation.transforms ! required? compiler.tree.propagation.info
compiler.tree.propagation.nodes
compiler.tree.propagation.slots
compiler.tree.propagation.simple
compiler.tree.propagation.constraints
compiler.tree.propagation.call-effect
compiler.tree.propagation.transforms ;
FROM: alien.c-types => (signed-interval) (unsigned-interval) ; FROM: alien.c-types => (signed-interval) (unsigned-interval) ;
IN: compiler.tree.propagation.known-words IN: compiler.tree.propagation.known-words
@ -234,18 +240,6 @@ generic-comparison-ops [
'[ _ swap interval>> <class/interval-info> ] "outputs" set-word-prop '[ _ swap interval>> <class/interval-info> ] "outputs" set-word-prop
] assoc-each ] assoc-each
{
{ >array array }
{ >vector vector }
{ >string string }
{ >sbuf sbuf }
{ >byte-array byte-array }
{ >byte-vector byte-vector }
{ >hashtable hashtable }
} [
'[ drop _ <class-info> ] "outputs" set-word-prop
] assoc-each
{ numerator denominator } { numerator denominator }
[ [ drop integer <class-info> ] "outputs" set-word-prop ] each [ [ drop integer <class-info> ] "outputs" set-word-prop ] each