DGL • Thema anzeigen - Lecks bei zu langer Laufzeit

Lecks bei zu langer Laufzeit

Moderator: DGL-Team

Seite 3 von 4

[ 49 Beiträge ]

Gehe zu Seite Vorherige 1, 2, 3, 4 Nächste

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Shaddow

Betreff des Beitrags:

Verfasst: Mi Okt 04, 2006 19:28

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

Ja so will ich es ja machen. eben im load meines fontmanagers, das wird nur einmal aufgerufen

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: Mi Okt 04, 2006 20:33

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

So nun hat mein Programm einen speicherverbrauch von etwa 25K und einer CPUbelastung von etwa 10%.

Ist das ok?

Edit: die restlichen Memoryleaks bekomm ich allerdings partout nicht geregelt

Nach oben

uweq

Betreff des Beitrags:

Verfasst: Mi Okt 04, 2006 22:19

DGL Member

Registriert: Fr Jul 14, 2006 13:08
Beiträge: 117
Wohnort: Berlin

hi Shaddow,

Welche Leaks sind denn noch übrig ?

schick mal die gesamte Reportdatei an meine mail.
Gruß Uwe

_________________
Die 3 Totfeinde eines Programmierers ?
a) Tageslicht
b) frische Luft
c) ..und das ständige Gebrüll der Vögel

Nach oben

uweq

Betreff des Beitrags:

Verfasst: Fr Okt 06, 2006 03:04

DGL Member

Registriert: Fr Jul 14, 2006 13:08
Beiträge: 117
Wohnort: Berlin

hi Shaddow,

keine Rückmeldung ? :cry:

Hab dir was per email zurückgeschickt. Hoffe das ist nicht im Spamfilter gelandet.
Aber vielleicht arbeitest auch noch dran

Gruß Uwe
...und gutes gelingen

_________________
Die 3 Totfeinde eines Programmierers ?
a) Tageslicht
b) frische Luft
c) ..und das ständige Gebrüll der Vögel

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: Fr Okt 06, 2006 07:04

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

Habs heute morgen gesehen, hatte gestern keine Zeit. Setze mich heut Nachmittag dran danke

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: Fr Okt 06, 2006 21:53

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

Nun nachdem ich den texturenmanager auch habe wieder löschen lassen

sind nun einige leakmsgs weniger da:

Code:

 
- 20 bytes: String x 2
- 36 bytes: Unknown x 1
- 52 bytes: TStringList x 2

Strings: kA habe hauptsächlich const strings. Ansonsten wüsste ich aber auch nich, dass man strings wieder freigeben müsse?
Unknown:.. tja ich kenns auch nich
Stringlist: benutz ich gar nich, in keiner Datei nur hashedstringlists

Nach oben

uweq

Betreff des Beitrags:

Verfasst: Sa Okt 14, 2006 16:00

DGL Member

Registriert: Fr Jul 14, 2006 13:08
Beiträge: 117
Wohnort: Berlin

hi Shaddow,

So hab jetzt mal ohne DVD-Renderimg, und komme auf 1006 fps.
(sorry, aber bei der teuren Umbau-investition :twisted:

, brauch ich mal was erfreuliches :wink:

)

Nun zu FastMM..,
Das was du noch übrig hast, kann ich nicht ohne Source zuordnen.
Ich vermute stark das es sich nur noch um ein einzigstes Object handelt.
Daher auch die Strings, welche nicht freigegeben werden.( wie auch, macht doch delphi ).

Ein construct wie folgender ...

Code:

type
  TMyObject = object
    str1    : string;
    str2    : string;
    StrL1  : TStrings;
    StrL2  : TStrings;
  end;
 

...würde nach vergessener Freigabe in etwa dieselbe Fehlermeldung präsentieren.
Dein "Unknown" repräsentiert das Object selbst, und daraus resultieren die mitgeführten strings und StringList(en) als "nicht freigegeben".

So etwas musst du suchen, und dann bist du es Los.
schaue in deiner Protokolldatei, wo TStringlist(en) erzeugt werden. Meist handelt es sich dann genau um dieses object, welches die TStrings beinhaltet.
Deklariert als TStrings oder TStringlist, aber erzeugt wird immer mit xxx := TStringList.Create

Gruß Uwe

_________________
Die 3 Totfeinde eines Programmierers ?
a) Tageslicht
b) frische Luft
c) ..und das ständige Gebrüll der Vögel

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: Sa Okt 14, 2006 17:33

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

ja danke nur das prob ist, ich habe GAR keine stringlisten mehr drin sondern nur noch hashedstringlisten udn die habe ich schon alle durchgechecked. ich sehe gleich nochmal durch und poste dann die codefragmente, von denen ich denke dass sie vllt was verursachen. ma schaun

Nach oben

uweq

Betreff des Beitrags:

Verfasst: Sa Okt 14, 2006 17:55

DGL Member

Registriert: Fr Jul 14, 2006 13:08
Beiträge: 117
Wohnort: Berlin

na HashedStringListen sind doch nix anderes.
hier mal den Auszug aus der Hilfe

THashedStringList verwaltet eine Stringliste mit einer internen Hash-Tabelle.

Zitat:

Unit

IniFiles

Beschreibung

Ein THashedStringList-Objekt ist eine Stringliste, die intern eine Hash-Tabelle verwendet, um die Suche nach Strings zu beschleunigen. Es wird intern von TMemIniFile verwendet, um die Strings in einer INI-Datei zu verwalten. Das Objekt kann jedoch wie jede andere Stringliste genutzt werden. Insbesondere bei Listen mit einer großen Anzahl von Strings kann die Leistung durch die Verwendung der Klasse THashedStringList anstelle von TStringList optimiert werden.

Uwe

_________________
Die 3 Totfeinde eines Programmierers ?
a) Tageslicht
b) frische Luft
c) ..und das ständige Gebrüll der Vögel

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: Sa Okt 14, 2006 18:08

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

Ja danke ich weiss was Hashedstringlists sind

Aber wie ich bereits sagte, sind alle Hashedstringlisten durchgechecked

Habe in meinem Fontmanager eine Hashedstringlist:

Code:

 
constructor TFontManager.Create();
begin
  inherited Create;
  FontNames := THashedStringList.Create;
  NumFonts := 0;
end;
 

und wird brav im destructor zerstört (,der auch aufgerufen wird):

Code:

 
destructor TFontManager.Destroy();
var i:Integer;
begin
  try
    FontNames.Free;                
    BugTracker.AddBugReport('# TFontManager.Destroy: FontNames destroyed successfully');
  except
    BugTracker.AddBugReport('> TFontManager.Destroy: Failed to destroy FontNames');
  end;
  try
    for i:=0 to Length(Fonts)-1 do
      Fonts[i].Free;
    BugTracker.AddBugReport('# TFontManager.Destroy: Font destroyed successfully');
  except
    BugTracker.AddBugReport('> TFontManager.Destroy: Failed to destroy Font');
  end;
  inherited Destroy;
end;
 

Hatte auch schon Destroy statt Free

Auch im Bugtracker nutz ich ne HashedStringList:

Code:

 
constructor TBugTracker.Create(const NFileName: string);
var i:Integer;
begin
  inherited Create;
  FileName := NFileName;
  NumBugReports := 0;
 
  if FileExists(FileName) = FALSE then FileCreate(FileName);
 
  Content := THashedStringList.Create;
end;
 

und fein zerstören

Code:

 
destructor TBugTracker.Destroy;
begin
  Content.SaveToFile(ExtractFilePath(ParamStr(0))+FileName);
  Content.Free;
  inherited Destroy;
end;
 

Es werden alle Destructoren fein aufgerufen im Destructor meines Formulars. Nur leider bleiben die Leaklogs...

Nach oben

uweq

Betreff des Beitrags:

Verfasst: Sa Okt 14, 2006 18:51

DGL Member

Registriert: Fr Jul 14, 2006 13:08
Beiträge: 117
Wohnort: Berlin

hi Shaddow,

So aus der Ferne wird dann nicht mehr viel Diagnosemöglichkeit machbar sein.
wie geagt, alle "Create"s suchen, mit Haltepunkt vllt. Name aufschreiben,
den passenden Free suchen ....

Am Ende MUSS was übrigbleiben :wink:

ist ne echte schei..-arbeit, aber da musst du durch. Ich hab mal 14 Tage gebraucht, und seit dem bastel ich den FastMM gleich zu Anfang rein, und baue dann das Prog weiter. Zum schluss die Compilereinstellung (T32debug) rausgenommen und FastMM ausgeremmt, und dann hast auch wieder ne kleine EXE.

Gruß Uwe

PS : versuche einzelne Objecte aus deinem Programm vorrübergehen auszukommentieren.
dann neu Compilieren. Ändert sich nix, dann wars das falsche, und dann nimmst das nächste usw.

gutes Gelingen :wink:

_________________
Die 3 Totfeinde eines Programmierers ?
a) Tageslicht
b) frische Luft
c) ..und das ständige Gebrüll der Vögel

Nach oben

The-Winner

Betreff des Beitrags:

Verfasst: So Okt 15, 2006 21:49

DGL Member

Registriert: Di Jun 06, 2006 09:59
Beiträge: 474

Folgendermaßen kann man mit FastMM4 die Lecks recht gut finden:
1. FullDebugMode in der FastMM Konfig (FastMMOptions.inc) aktivieren
2. In den Projektoptionen der zu debuggenden Anwendung in den Projektoptionen unter Linker Map-Datei auf detailliert stellen (vllt gehts auch mit ner niedrigeren Einstellung, ich habs jedoch nur mit detailliert getestet)
3. In der ProjektName_MemoryManager_EventLog.txt stehen nur die Speicherlecks mit Inhalt und Daten darüber wo du der Speicher reserviert wurde.

Zitat:

...
A memory block has been leaked. The size is: 4

Stack trace of when this block was allocated (return addresses):
402942 [System][@GetMem]
402ED9 [System][TObject.NewInstance]
403212 [System][@ClassCreate]
402F18 [System][TObject.Create]
46D32B [Main.pas][Main][Init][50]
46D337 [Main.pas][Main][Init][52]
46D3B5 [Main.pas][Main][TForm1.FormCreate][74]
437AE7 [Forms][TCustomForm.DoCreate]
43782A [Forms][TCustomForm.AfterConstruction]

The block is currently used for an object of class: TObject
...

Nach oben

Shaddow

Betreff des Beitrags:

Verfasst: Fr Okt 27, 2006 22:11

DGL Member

Registriert: So Aug 20, 2006 23:19
Beiträge: 564

Also ich habs mir jetz nochma angesehen und es hat sich herausgestellt, dass in meinem Texturemanager 5 Stringleaks und 1 Stringlistleak sind.
Hier mal der Code, ich find den fehler partout nicht:

Code:

unit TextureManager;
{TStringlist, 5xStrings, Unknown Memoryleak}
interface
 
uses EasySDLTextures,
     BugTracker,
     Tools,Dialogs;
 
type TTextureManager = class(TObject)
  private
    Textures: TEasySDLTextures;
    BugTracker: TBugTracker;
  public
    constructor Create;                           overload;
    constructor Create(NBugTracker: TBugTracker); overload;
    procedure   Load(const NTexturePath, NTextureName: string);
    procedure   Bind(const NTextureName: string);
    destructor  Destroy;
end;
 
implementation
 
constructor TTextureManager.Create;
begin
  Textures := TEasySDLTextures.Create;
end;
 
constructor TTextureManager.Create(NBugTracker: TBugTracker);
begin
  inherited Create;
  try
    Textures := TEasySDLTextures.Create;
    BugTracker := NBugTracker;
    BugTracker.AddBugReport('# TTextureManager.Create: Texturemanager initialized successfully');
  except
    BugTracker.AddBugReport('> TTextureManager.Create: Failed to initialize Texturemanager');
  end;
end;
 
procedure TTextureManager.Load(const NTexturePath, NTextureName: string);
begin
  try
    Textures.Load(NTexturePath, NTextureName);
    BugTracker.AddBugReport('# TTextureManager.Load: ' + NTextureName + '(' + NTexturePath + ') loaded successfully');
  except
    BugTracker.AddBugReport('> TTextureManager.Load: Failed to load ' + NTextureName + '(' + NTexturePath + ')');
  end;
end;
 
procedure TTextureManager.Bind(const NTextureName: string);
begin
  Textures.Bind(NTextureName);
end;
 
destructor TTextureManager.Destroy;
begin
  Textures.Free;
  inherited Destroy;
end;
 
end.
 

Nach oben

uweq

Betreff des Beitrags:

Verfasst: Fr Okt 27, 2006 22:18

DGL Member

Registriert: Fr Jul 14, 2006 13:08
Beiträge: 117
Wohnort: Berlin

hi Shaddow,

zwischen 24 und 25 sollte benfalls ein "inherited create" rein.
Soweit alles io, aber wie ist dein TBugTracker aufgebaut ?
der ist ja auch enthalten ?
Ist der deine Fehlerquelle?

Gruß Uwe

Beitrag wurde kommplett editiert, da zuvor falsche Aussage
((hoffe jetzt ist richtig)

_________________
Die 3 Totfeinde eines Programmierers ?
a) Tageslicht
b) frische Luft
c) ..und das ständige Gebrüll der Vögel

Nach oben

uweq

Betreff des Beitrags:

Verfasst: Fr Okt 27, 2006 23:00

DGL Member

Registriert: Fr Jul 14, 2006 13:08
Beiträge: 117
Wohnort: Berlin

so , hab jetzt mal was nachgebastelt.

Code:

 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;//, easySDLTextures;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 
var
  Form1: TForm1;
  //x : TEasySDLTextures;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 // x := TEasySDLTextures.Create;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  //x.free;
end;
 
end.
 

es reicht schon aus, die uses-Anweisung wieder in Betrieb zu nehmen, also die EasySDLTextures einzubinden.
Du brauchst nicht einmal das x im Programm "an"zuschalten, das kann alles auskommentiert bleiben.

Und schon zeigt dir FastMM4 eine verlorene TStringList beim beenden des Programms an.

Da stimmt wohl dann mit der EasySDLTextures was nicht.

Gruß Uwe

_________________
Die 3 Totfeinde eines Programmierers ?
a) Tageslicht
b) frische Luft
c) ..und das ständige Gebrüll der Vögel

Nach oben

Seite 3 von 4

[ 49 Beiträge ]

Gehe zu Seite Vorherige 1, 2, 3, 4 Nächste

Foren-Übersicht » Programmierung » OpenGL

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.