Anzahl der Prozessoren ermitteln

[hschmidt]

Hallo,

da Xbase++ - Programme bei Mehrprozessorsystemen standardmäßig immer nur den 1. Prozessor benutzen, möchte ich eine Routine schreiben, mit der ich nach einem "Kreislaufverfahren" meiner Applikation einen bestimmten Prozessor zuweisen kann.
Wie so etwas funktionieren könnte, weiß ich auch schon (_sysSetCPU).
Zuerst einmal möchte ich aber feststellen, ob ich es überhaupt mit einer Mehrprozessormaschine zu tun habe und wenn ja, wieviele Prozessoren sie hat.
Geht das?

Vielen Dank und freundliche Grüße

Hans

[andreas]

Hallo Hans,

siehe dir die Beispiele von Alaska. Ich glaube, dass es da was darüber gibt.

C:\ALASKA\XPPW32\Source\samples\solution\CPULOAD

bzw.
C:\ALASKA\XPPW32\Source\samples\solution\smp

[andreas]

oder auch hier:
http://www.xbaseforum.de/viewtopic.php? ... hlight=cpu

[hschmidt]

Hallo Andreas,

siehe dir die Beispiele von Alaska. Ich glaube, dass es da was darüber gibt.

C:\ALASKA\XPPW32\Source\samples\solution\CPULOAD
bzw.
C:\ALASKA\XPPW32\Source\samples\solution\smp

das Verzeichnis CPULOAD gibt es bei mir nicht, wahrscheinlich, weil ich nicht die Professional-Version habe.
Mit dem Beispiel aus ...\smp habe ich mich befasst und kann die CPU auch zuordnen, was aus dem Beispiel aber nicht hervorgeht ist, wieviele Prozessoren überhaupt vorhanden sind.

Und genau das will ich feststellen!

Hans

[brandelh]

Hi,

also im CPULOAD Beispiel ist bei mir nur eine Textdatei.
In dem bereits genannten Thread hier im Forum wurde viel dazu geschrieben.

Was man braucht ist die ASMP10.DLL / .LIB:

Code: Alles auswählen

#pragma library('ASMP10.LIB') // DLL anfordern
...
_MPNumProcessors() -> Anzahl der verfügbaren CPUs

[Tom]

Hallo, Hubert.

Diese Variante greift auf die PDH.DLL zu, die es ab NT gibt. Diese Systematik funktioniert nicht einwandfrei, wir haben bei vielen Kunden "frozen Apps" gehabt (vor allem mit Multicore-Prozessoren) und sind deshalb wieder auf die alte Systematik umgestiegen (_sysGetCPU, _sysSetCPU). Dabei verfolgen wir inzwischen die Strategie, die Steffen beim XUG-Treffen in Berlin skizziert hat: Anzahl der CPUs ermitteln und zufällig eine verfügbare CPU wählen. Das ist in der Praxis der beste gangbare Weg.

[Jan]

Hallo Tom,

zu dem Punkt, was Steffen in Berlin gesagt hat: Ich bekomme das jetzt spontan nicht komplett zusammen. Aber war es nicht so, daß man versuchen sollte, nicht CPU 0 zu nehmen, weil da standardmäßig fast alles drauf läuft was nicht intelligent genug ist?

Jan

[brandelh]

Diese Variante greift auf die PDH.DLL zu, die es ab NT gibt. Diese Systematik funktioniert nicht einwandfrei, wir haben bei vielen Kunden "frozen Apps" gehabt (vor allem mit Multicore-Prozessoren) und sind deshalb wieder auf die alte Systematik umgestiegen (_sysGetCPU, _sysSetCPU).

jetzt bin ich aber irritiert, ist nicht _MPNumProcessors() genau der Befehl der feststellt, wieviele CPUs vorhanden sind, um dann mit _sysSetCPU() nicht einen ungültigen Wert zuzuweisen ?

Genauso hatte ich Stefen und das Ergebnis des angeführten Threads verstanden.

[hschmidt]

Hallo Tom,

Anzahl der CPUs ermitteln und zufällig eine verfügbare CPU wählen. Das ist in der Praxis der beste gangbare Weg.

Genau das habe ich auch vor.
Aber wie ermittelt man die Anzahl der CPU?

Hans

[Tom]

Code: Alles auswählen

FUNCTION _sysGetCPU()
LOCAL rc
  rc := DllCall("Xpprt1.dll",DLL_CDECL, "_sysGetCPU")
RETURN rc

FUNCTION _sysSetCPU(nCpuMask)
LOCAL rc
nCpuMask := 2 ** (nCpuMask-1)
    rc := DllCall("Xpprt1.dll",DLL_CDECL, "_sysSetCPU", nCpuMask)
RETURN rc

    nProcessor := 2
    nProcessorCount := 1
    lMultiProcessor := .F.
    do while _sysSetCPU(nProcessor) # 0
      lMultiProcessor := .T.
      nProcessorCount ++
      nProcessor ++
    enddo

[hschmidt]

Hallo Tom,

so funktioniert es!
Vielen Dank!

Hans