#!/usr/bin/env perl
-push(@INC,"perlasm");
+$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
+push(@INC, "${dir}perlasm", "perlasm");
require "x86asm.pl";
&asm_init($ARGV[0],"x86cpuid");
&pop ("eax");
&xor ("ecx","eax");
&bt ("ecx",21);
- &jnc (&label("nocpuid"));
+ &jnc (&label("done"));
&xor ("eax","eax");
&cpuid ();
&xor ("eax","eax");
&or ("ebp","eax");
&mov ("eax",1);
&cpuid ();
- &bt ("edx",28); # test hyper-threading bit
- &jnc (&label("nocpuid"));
&cmp ("ebp",0);
- &jne (&label("notintel"));
+ &jne (&label("notP4"));
+ &and (&HB("eax"),15); # familiy ID
+ &cmp (&HB("eax"),15); # P4?
+ &jne (&label("notP4"));
&or ("edx",1<<20); # use reserved bit to engage RC4_CHAR
-&set_label("notintel");
+&set_label("notP4");
+ &bt ("edx",28); # test hyper-threading bit
+ &jnc (&label("done"));
&shr ("ebx",16);
&cmp (&LB("ebx"),1); # see if cache is shared(*)
- &ja (&label("nocpuid"));
+ &ja (&label("done"));
&and ("edx",0xefffffff); # clear hyper-threading bit if not
-&set_label("nocpuid");
+&set_label("done");
&mov ("eax","edx");
&mov ("edx","ecx");
&function_end("OPENSSL_ia32_cpuid");