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

Fixing call( inline caching

db4
Slava Pestov 2009-11-13 04:32:33 -06:00
parent c4cd6e0787
commit afecb9c758
2 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/compiler/tree/propagation/call-effect/call-effect.factor
View File

@ -24,11 +24,7 @@ IN: compiler.tree.propagation.call-effect
TUPLE: inline-cache value counter ;
: inline-cache-hit? ( word/quot ic -- ? )
{
[ nip value>> ]
[ value>> eq? ]
[ nip counter>> effect-counter eq? ]
} 2&& ; inline
{ [ value>> eq? ] [ nip counter>> effect-counter eq? ] } 2&& ; inline
: update-inline-cache ( word/quot ic -- )
[ effect-counter ] dip

2
core/compiler/units/units.factor
View File

@ -132,7 +132,7 @@ M: object bump-effect-counter* drop f ;
or ;
: bump-effect-counter ( -- )
bump-effect-counter? [ 46 getenv 1 + 46 setenv ] when ;
bump-effect-counter? [ 46 getenv 0 or 1 + 46 setenv ] when ;
: notify-observers ( -- )
updated-definitions dup assoc-empty?