CPUID Test

[scp]

Habe mich mal mit dem Thema beschäftigt und ein kleines Test-Prog mit Source geschrieben. Habe darin alle Informationen kombiniert, die ich finden konnte.
Dabei ist eine Liste von über 100 Prozessoren entstanden, darunter Intel/AMD/Cyrix, aber auch Exoten wie VIA/SiS/UMC/Transmeta.
Der Athlon 64 wird auch erkannt, bei seinen Features gabe ich bis jetzt nur AA64 gefunden, das nur ein Flag für die Erkennung der Architektur darstellt.
Bei AMDs wird der Name direkt aus dem Prozessor ausgelesen, bei den anderen wird der Name aus der Liste mittels Vendor/Family/Model usw. ermittelt. Ausserdem habe ich noch bei allen Intels/AMDs die Code-/Die-Namen oder was auch immer zussamengetragen, die ich finden konnte.

Wers testen/verwenden will kann es gerne tun und eventuelle Fehler melden.

EDIT: Die Namen von Intel P4s und Verwandten Mobiles/Celerons/Xeons werden jetzt über die BrandTable ermittelt.

[micsie]

Hier der Screenshot mit den Daten.
Die Taktrate wird wie beim Pentium automatisch geregelt. Ich bezweifle aber, dass die 1,8 GHz CPU im Modus "minimale Batteriebelastung" immer noch mit 1,2 GHz läuft.

mfg

[scp]

Habe ihn jetzt mal eingetragen, weis allerdings nicht, ob es dann einen "normalen" Pentium 4 gibt, der diesselbe Family/Model/Ext.Family-Kennzeichnung hat.

EDIT: Habs rausgefunden und eingetragen: der "normale" hat ne andere Brand-ID.

[fiasko]

Zitat von scp:

Ah, den hatte ich noch nicht in der Liste. Weisst du zufällig den "Codenamen"?
Wie schon gesagt, an der Taktrate werde ich nichts ändern, es sei denn ich finde (zufällig) noch eine andere Funktion dafür.

Hmm, meinst du Pentium-M 755?

[scp]

Nein, ich meinte "Dothan", aber jetzt weiss ichs ja
Habe diesen CPU jetzt eingetragen und habe jetzt die richtige BrandTable für P4s eingebaut, die Namen dürften jetzt stimmen.

[DaBoss]

Wen es interessiert, hier mal ein paar c sourcen, mit denen sich die CPU frequenz exakt bestimmen lässt...

long __stdcall GetCPUFrequency(void)
{
LARGE_INTEGER ulFreq, ulTicks, ulValue, ulStartCounter, ulEAX_EDX;
QueryPerformanceFrequency(&ulFreq);
QueryPerformanceCounter(&ulTicks);
ulValue.QuadPart = ulTicks.QuadPart + ulFreq.QuadPart;
_asm
{
rdtsc
mov ulEAX_EDX.LowPart, EAX
mov ulEAX_EDX.HighPart, EDX
};
ulStartCounter.QuadPart = ulEAX_EDX.QuadPart;
do
{
QueryPerformanceCounter(&ulTicks);
} while (ulTicks.QuadPart <= ulValue.QuadPart);
_asm
{
rdtsc
mov ulEAX_EDX.LowPart, EAX
mov ulEAX_EDX.HighPart, EDX
};
ulFreq.QuadPart = ulEAX_EDX.QuadPart - ulStartCounter.QuadPart;
return (long) ulFreq.QuadPart / 1000000;
};

Das Original ist von Code-Guru, von wem weiß ich nicht. Hab es ein wenig modifiziert... braucht genau 1 sekunde und ermittelt immer die selbe frequenz...

[Muetze1]

Moin!

@scp: Dein Tool ermittelt falsche Werte beim Cache:

Zitat von TestCPUIDEx:

Instruction TLB: 4K, 2M or 4M pages, fully associative
Data Cache: Sectored, 64 byte cache line, 4 way set associative, 8K
L2 unified cache: No L2 cache
Instruction Trace Cache: 4 way set associative, 12K uOps
L1i Cache: Size 0KB, Assoc 0, Lines 0, Line Size 0, TLB 64, TLB Assoc 0

Zitat von mein Tool:

cache information
Instruction TLB: 4-KB, 2-MB or 4-MB pages, fully associative, 64 entries
Data TLB: 4-KB or 4-MB pages, fully associative, 64 entries
1st-level data cache: 8-KB, 4-way set associative, sectored cache, 64-byte line size
No 2nd-level cache or, if processor contains a valid 2nd-level cache, no 3rd-level cache
Trace cache: 12K-uops, 8-way set associative
2nd-level cache: 512-KB, 8-way set associative, sectored cache, 64-byte line size

Cache summary...
8 KB L1 cache
-> 0 KB L1 instruction cache
-> 8 KB L1 data cache
512 KB L2 cache
no L3 cache

Wobei ich glaube, das sich dein Tool vor allem beim 2nd Level Cache an dem fett markierten Eintrag in den Cache Deskriptoren verschluckt...

MfG
Muetze1

[tn249]

mein p2 , der mit 266Mhz angegeben ist kommt laut deinem programm nur auf 250Mhz

[Luckie]

Wenn ich es so aufrufe:

Delphi-Quellcode:

  sl := TStringList.Create;
  CPUInfo := GetCPUInfo(sl);

Dann lande ich wohl irgendwo in einer Endlosschleife.

Deine Demo geht aber bei mir.

Alles, was ich eigentlich brauche ist:
s := CPUInfo.Brandname + ' ' + CPUInfo.Codename; Nachtrag: Habe Mist gebaut. Geht jetzt.

Und die Features in eine StringListe zu stecken finde ich etwas unpraktisch.