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

cpu.x86.features: Unbiased CPUID test.

db4
Doug Coleman 2012-09-19 08:48:14 -07:00
parent 9c0a8b3250
commit d52c0b1987
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/cpu/x86/features/features-tests.factor
View File

@ -5,5 +5,8 @@ IN: cpu.x86.features.tests
[ t ] [ sse-version 0 42 between? ] unit-test
[ t ] [ [ 10000 [ ] times ] count-instructions integer? ] unit-test
{ "GenuineIntel" }
[ 0 cpuid [ 4 >le ] map { 1 3 2 } swap nths concat >string ] unit-test
{ t }
[
0 cpuid [ 4 >le ] map { 1 3 2 } swap nths concat >string
{ "GenuineIntel" "AuthenticAMD" } member?
] unit-test