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

Fix regression

db4
Slava Pestov 2008-11-03 00:03:15 -06:00
parent abb02f1784
commit 0d83873174
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/compiler/tree/cleanup/cleanup-tests.factor
View File

@ -5,7 +5,7 @@ strings sbufs sequences.private slots.private combinators
definitions system layouts vectors math.partial-dispatch definitions system layouts vectors math.partial-dispatch
math.order math.functions accessors hashtables classes assocs math.order math.functions accessors hashtables classes assocs
io.encodings.utf8 io.encodings.ascii io.encodings fry slots io.encodings.utf8 io.encodings.ascii io.encodings fry slots
sorting.private sorting.private combinators.short-circuit
compiler.tree compiler.tree
compiler.tree.combinators compiler.tree.combinators
compiler.tree.cleanup compiler.tree.cleanup
@ -13,6 +13,7 @@ compiler.tree.builder
compiler.tree.recursive compiler.tree.recursive
compiler.tree.normalization compiler.tree.normalization
compiler.tree.propagation compiler.tree.propagation
compiler.tree.propagation.info
compiler.tree.checker compiler.tree.checker
compiler.tree.debugger ; compiler.tree.debugger ;
@ -494,3 +495,8 @@ cell-bits 32 = [
[ t ] [ [ t ] [
[ hashtable new ] \ new inlined? [ hashtable new ] \ new inlined?
] unit-test ] unit-test
[ t ] [
[ { array-capacity } declare 1 fixnum+ ] cleaned-up-tree
[ { [ #call? ] [ node-input-infos second literal>> 1 = ] } 1&& ] contains?
] unit-test

2
basis/compiler/tree/cleanup/cleanup.factor
View File

@ -78,7 +78,7 @@ GENERIC: cleanup* ( node -- node/nodes )
} cond ; } cond ;
: remove-overflow-check ( #call -- #call ) : remove-overflow-check ( #call -- #call )
[ in-d>> ] [ out-d>> ] [ word>> no-overflow-variant ] tri #call cleanup* ; [ no-overflow-variant ] change-word cleanup* ;
M: #call cleanup* M: #call cleanup*
{ {