compiler.tree.dead-code.simple: undo e1b22e0af4
(#1513)
This will likely cause some test failures. mac32 hopefully won't crash.char-rename
parent
9d1edc62c7
commit
5a0e583279
|
@ -9,10 +9,10 @@ IN: compiler.tree.dead-code.simple
|
||||||
|
|
||||||
: flushable-call? ( #call -- ? )
|
: flushable-call? ( #call -- ? )
|
||||||
dup word>> dup flushable? [
|
dup word>> dup flushable? [
|
||||||
word>input-infos [
|
"input-classes" word-prop dup [
|
||||||
[ node-input-infos ] dip
|
[ node-input-infos ] dip
|
||||||
[ value-info<= ] 2all?
|
[ [ class>> ] dip class<= ] 2all?
|
||||||
] [ drop t ] if*
|
] [ 2drop t ] if
|
||||||
] [ 2drop f ] if ;
|
] [ 2drop f ] if ;
|
||||||
|
|
||||||
M: #call mark-live-values*
|
M: #call mark-live-values*
|
||||||
|
|
Loading…
Reference in New Issue