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

Don't need known-tag templates any more

db4
Slava Pestov 2008-10-11 14:08:00 -05:00
parent 048d8daf09
commit 68c9b22cef
2 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/stacks/stacks.factor
View File

@ -9,8 +9,6 @@ IN: compiler.cfg.stacks
! Converting stack operations into register operations, while ! Converting stack operations into register operations, while
! doing a bit of optimization along the way. ! doing a bit of optimization along the way.
SYMBOL: known-tag
PREDICATE: small-slot < integer cells small-enough? ; PREDICATE: small-slot < integer cells small-enough? ;
PREDICATE: small-tagged < integer tag-fixnum small-enough? ; PREDICATE: small-tagged < integer tag-fixnum small-enough? ;

6
basis/compiler/cfg/templates/templates.factor
View File

@ -73,11 +73,7 @@ TUPLE: template input output scratch clobber gc ;
} cond ; } cond ;
: class-matches? ( actual expected -- ? ) : class-matches? ( actual expected -- ? )
{ dup [ class<= ] [ 2drop t ] if ;
{ f [ drop t ] }
{ known-tag [ dup [ class-tag >boolean ] when ] }
[ class<= ]
} case ;
: spec-matches? ( value spec -- ? ) : spec-matches? ( value spec -- ? )
2dup first value-matches? 2dup first value-matches?