Discussion :

[secretman]

J'utilise un code trouvé sur internet pour extraire les infos concernant les instructions (SSE, MMX, etc) supportées par le processeur.
Ce code fonctionne bien mais j'aimerais y intégrer un test pour SSE 3.
Le code pour SSE3, je l'ai trouvé mais sous une forme bien différente que j'aimerais traduire dans la même syntaxe (forme) que ma routine ci-dessous :

Voici le code que j'utilise :

function getCPUInfo: TCPUInfo;
type
TRegChar = array[0..3] of char;
var
lvCPUID : TCPUIDResult;
I : Integer;
begin
lvCPUID := CPUID(0);
Result.Vendor := TRegChar(lvCPUID.EBX) + TRegChar(lvCPUID.EDX) +
TRegChar(lvCPUID.ECX);
lvCPUID := CPUID(1);
// Result.Frequency := GetCPUSpeed;
Result.Family := (lvCPUID.EAX and $F00) shr 8;
Result.Model := (lvCPUID.EAX and $78) shr 4;
Result.Stepping := (lvCPUID.EAX and $F);
Result.EFamily := (lvCPUID.EAX and $7800000) shr 20;
Result.EModel := (lvCPUID.EAX and $78000) shr 16;
Result.EStepping := (lvCPUID.EAX and $F);
Result.APIC := (lvCPUID.EBX and $1FE00000) shr 23;
Result.Brand := lvCPUID.EBX and $7F;
Result.FXSAVE := (lvCPUID.EDX and $01000000) = $01000000;
Result.MMX := (lvCPUID.EDX and $800000) = $800000;
Result.SSE := (lvCPUID.EDX and $2000000) = $2000000;
Result.SSE2 := (lvCPUID.EDX and $4000000) = $4000000;
Result.IA64 := (lvCPUID.EDX and $40000000) = $40000000;
lvCPUID := CPUID($80000001);
Result.MMXPlus := (lvCPUID.EDX and $800000) = $800000;
Result.AMD3DNow := (lvCPUID.EDX and $10000000) = $10000000;
if (Result.Vendor = 'GenuineIntel') and ((Result.Family <> 15) or
(Result.EFamily <> 0)) then
Result.Name := Result.Vendor + ' Processor'
else
begin
Result.Name := '';
for i := 2 to 4 do
begin
lvCPUID := CPUID($80000000 + i);
Result.Name := Result.Name +
TRegChar(lvCPUID.EAX) +
TRegChar(lvCPUID.EBX) +
TRegChar(lvCPUID.ECX) +
TRegChar(lvCPUID.EDX);
end;
Result.Name := Trim(Result.Name);
end;

et voici le code SSE3 a convertir et intégrer dans la syntaxe ci-dessus :

var
CPUInfo,
CPUSSE3: Integer;
begin
asm
MOV EAX, 01H;
CPUID;
MOV CPUInfo, EDX;
MOV CPUSSE3, ECX;
end;

// SSE
if (CPUInfo shr 25) and $1 = 1 then
WriteLn('SSE: Enabled')
else
WriteLn('SSE: Disabled');
// SSE2
if (CPUInfo shr 26) and $1 = 1 then
WriteLn('SSE2: Enabled')
else
WriteLn('SSE2: Disabled');
// SSE3
if CPUSSE3 and $1 = 1 then
WriteLn('SSE3: Enabled')
else
WriteLn('SSE3: Disabled');

[sjrd]

Si tu mettais des balises [code] autour ce ton code, on aurait peut-être une chance de pouvoir le lire, et ainsi de t'aider.

[secretman]

oui excuse moi ! pour la balise [code]
Pourquoi n'y a t-il pas un bouton "Code " pour l'insérer automatiquement ?
comme ca on ne l'oublierais pas

Daniel

[droggo]

Koe,

oui excuse moi ! pour la balise [code]
Pourquoi n'y a t-il pas un bouton "Code " pour l'insérer automatiquement ?

Ce bouton existe #

comme ca on ne l'oublierais pas

C'est une autre histoire, sinon prouve-le.