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.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.accessors alien.data.private
arrays assocs byte-arrays byte-vectors classes classes.algebra
classes.tuple classes.tuple.private combinators
compiler.tree.comparisons compiler.tree.propagation.constraints
compiler.tree.propagation.info compiler.tree.propagation.simple
compiler.tree.propagation.slots fry generic.math hashtables
kernel kernel.private layouts locals math math.floats.private
math.functions math.integers.private math.intervals math.libm
math.parser math.partial-dispatch math.private namespaces sbufs
sequences slots.private splitting strings strings.private
vectors words ;
USE: compiler.tree.propagation.transforms ! required?
USING: effects accessors kernel kernel.private layouts math
math.private math.integers.private math.floats.private
math.partial-dispatch math.intervals math.parser math.order
math.functions math.libm math.ratios namespaces words sequences
sequences.private arrays assocs classes classes.algebra
combinators generic.math splitting fry locals classes.tuple
alien.accessors classes.tuple.private slots.private definitions
strings.private vectors hashtables generic quotations alien
alien.data alien.data.private
stack-checker.dependencies
compiler.tree.comparisons
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) ;
IN: compiler.tree.propagation.known-words
@ -234,18 +240,6 @@ generic-comparison-ops [
'[ _ swap interval>> <class/interval-info> ] "outputs" set-word-prop
] 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 }
[ [ drop integer <class-info> ] "outputs" set-word-prop ] each