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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2009-09-22 23:54:49 -05:00
parent 74a72ce17c 6d4e5af088
commit 854c81e17f
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> PRIVATE>
: sse-version ( -- n ) MEMO: sse-version ( -- n )
sse_version sse_version
"sse-version" get string>number [ min ] when* ; foldable "sse-version" get string>number [ min ] when* ;
: sse? ( -- ? ) sse-version 10 >= ; foldable [ \ sse-version reset-memoized ] "cpu.x86.features" add-init-hook
: sse2? ( -- ? ) sse-version 20 >= ; foldable
: sse3? ( -- ? ) sse-version 30 >= ; foldable : sse? ( -- ? ) sse-version 10 >= ;
: ssse3? ( -- ? ) sse-version 33 >= ; foldable : sse2? ( -- ? ) sse-version 20 >= ;
: sse4.1? ( -- ? ) sse-version 41 >= ; foldable : sse3? ( -- ? ) sse-version 30 >= ;
: sse4.2? ( -- ? ) sse-version 42 >= ; foldable : ssse3? ( -- ? ) sse-version 33 >= ;
: sse4.1? ( -- ? ) sse-version 41 >= ;
: sse4.2? ( -- ? ) sse-version 42 >= ;
: sse-string ( version -- string ) : sse-string ( version -- string )
{ {