Nur 1 CPU-Kern belastet trotz Threads

FrEaKY · Beiträge: 235 D7

jaenicke hat folgendes geschrieben :

FrEaKY hat folgendes geschrieben :

Es ist doch allgemein bekannt, dass die VCL nicht threadsicher ist...

Schon, aber wo siehst du hier einen Zugriff darauf? :gruebel:

Naja, offensichtlich muss es einen geben, weil wenn er die Zeile ausklammert geht es ja. Vielleicht liegt es am inherited Create; :?:

Martok · Verfasst: So 03.04.11 06:32

FrEaKY hat folgendes geschrieben :

Naja, offensichtlich muss es einen geben, weil wenn er die Zeile ausklammert geht es ja. Vielleicht liegt es am inherited Create; :?:

Ich würde sagen, du hast es.

markieren

Delphi-Quelltext

1:
2:
3:
4:

class function TObject.NewInstance: TObject;
begin
  Result := InitInstance(_GetMem(InstanceSize));
end;

_GetMem mappt auf MemoryManager.GetMem mappt auf SysGetMem welches in grausamer Formatierung dieses tut:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function SysGetMem(size: Integer): Pointer;
// Allocate memory block.
begin
{...}
  try
    if IsMultiThread then EnterCriticalSection(heapLock);
{...}
  finally
    if IsMultiThread then LeaveCriticalSection(heapLock);
  end;
end;

Solltest du also nicht FastMM verwenden, dürfte das das Problem sein. Diese wäre dann nämlich mit Lock-Free Structures, soweit ich das sehe. Und damit ist das eine ziemlich böse Stolperfalle :shock:

Ich frag mich grade, bei wie vielen Programmen ich das Problem ungesehen auch habe. Man gut, dass FastMM auf neueren Delphis der Standard-MM ist...

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

jaenicke · Verfasst: So 03.04.11 08:10

Gut, das erklärt das dann. Da konnte ich leider nicht nachschauen, weil ich von den alten Delphiversionen nur noch die D7 PE (also ohne Quelltexte) im virtuellen PC habe.

Bergmann89 · Verfasst: So 03.04.11 17:03

Hey,

ich hab das hinzufügen zum Suchbaum mal in ein neues Projekt ausgelagert und 5 Threads erstellt die Zufallswerte ihn ihren eigenen Baum einfügen. Da läuft jeder Thread auf seinem eigenen Kern. Es ist zum Haare ausreißen -.-

MfG Bergmann.

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

Delphi-Laie · Verfasst: So 03.04.11 17:31

Bergmann89 hat folgendes geschrieben :

Da läuft jeder Thread auf seinem eigenen Kern. Es ist zum Haare ausreißen -.-

Warum, das wolltest Du doch?! Oder ist es zum Verzweifeln, daß es beim Suchbaum funktioniert, jedoch nicht mit dem Anliegen, womit Du diese Diskussion eröffnetest?

Bergmann89 · Verfasst: So 03.04.11 17:41

Hey,

ich benutz den Suchbaum in meinem Programm, da geht er nicht. In dem Testprojekt geht er aber. Das ist zum Haare ausreißen...

MfG Bergmann

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme