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

cpu.x86.features: don't fold away sse-version, instead memoize it and recompute on startup

db4
Slava Pestov 2009-09-23 05:13:15 -05:00
parent f017f8904b
commit 6d4e5af088
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
basis/cpu/x86/features/features.factor
View File

@ -13,16 +13,18 @@ FUNCTION: longlong read_timestamp_counter ( ) ;
PRIVATE>
: sse-version ( -- n )
MEMO: sse-version ( -- n )
sse_version
"sse-version" get string>number [ min ] when* ; foldable
"sse-version" get string>number [ min ] when* ;
: sse? ( -- ? ) sse-version 10 >= ; foldable
: sse2? ( -- ? ) sse-version 20 >= ; foldable
: sse3? ( -- ? ) sse-version 30 >= ; foldable
: ssse3? ( -- ? ) sse-version 33 >= ; foldable
: sse4.1? ( -- ? ) sse-version 41 >= ; foldable
: sse4.2? ( -- ? ) sse-version 42 >= ; foldable
[ \ sse-version reset-memoized ] "cpu.x86.features" add-init-hook
: sse? ( -- ? ) sse-version 10 >= ;
: sse2? ( -- ? ) sse-version 20 >= ;
: sse3? ( -- ? ) sse-version 30 >= ;
: ssse3? ( -- ? ) sse-version 33 >= ;
: sse4.1? ( -- ? ) sse-version 41 >= ;
: sse4.2? ( -- ? ) sse-version 42 >= ;
: sse-string ( version -- string )
{