Aufrufer / Stack ermitteln aus einer Funktion heraus

[Elrond]

Hallo Zusammen,

ich möchte gerne für ein Loggingsystem ermitteln welche Methoden/Units für die einzelnen Einträge verantwortlich sind.

Mein Grundgedanke war, die physischen Adressen der Aufrufer in virtuelle umzuwandeln und anschließend in der passenden Map Datei nachzuschlagen (ggf. nicht live sondern nachträgliche Bearbeitung des Logs).

Das umrechnen der Adressen und nachschlagen in der Map Datei hat bereits damit funktioniert:

Code:

var
  aCaller: LongWord;
.
.
    asm
      mov eax,[ebp+4]    // top stack
      mov aCaller,eax
    end;
    // minus offset aus der map datei, #401000
    VirtualAddress := (aCaller - 4198400).ToHexString;

Das Problem ist nur das ich keine Ahnung habe wie ich jetzt den Aufrufer des Aufrufers usw. ermitteln kann. Bin mit Assembler alles andere als fit und mehr habe ich nach einen Tutorial nicht hinbekommen. Mir ist auch bewusst das dieses Problem in MadExcept und JCL bereits irgendwie gelöst wurde, jedoch möchte ich zuerst eine einfache eigene Lösung haben.

[himitsu]

Delphi-Quellcode:

aCaller := ReturnAddress;

Macht aber intern auch soein Assembler, aber das kann dir ja egal sein. :)

Nicht Offset aus der Map-Datei.
Die DLL könnte ja beim Laden verschoben sein, vorallem da fast niemand die StartAdresse einstellt und alle Delphi-DLLs somit auf der selben Stelle liegen würden.
Über VirtualQuery könntest du den Anfang des Speicherbereichs zur Adresse aCaller abfragen.

[Zacherl]

Reicht dir die Verwendung von StackWalk64 als "eigene" Lösung aus? Würde dir zumindest dringend raten zumindest darauf aufzubauen.

Das was du versuchst ist alles andere als trivial. Theoretisch liegen die Rücksprungadressen der vorherigen Calls ebenfalls auf dem Stack, aber das Problem ist, dass neben Parametern der eigenen Funktion (abhängig von Anzahl und Calling-Convention!) auch noch manuell wild Werte auf den Stack gepusht werden können. Eine naive Möglichkeit für dich wäre es, den Stack weiter abzuarbeiten und sämtliche Werte auf eine valide Adresse zu prüfen und danach zu prüfen, ob an dieser Adresse ein Call zum Begin der vorherigen Funktion zu finden ist.

Die Windows API nimmt dir hier viel Arbeit ab und behandelt zudem etliche Edgecases, an die weder du noch ich im Moment auch nur denken würden. Vermutlich ist die Strategie zum Finden der Adressen auch deutlich ausgefeilter, als mein spontaner Einfall.

[himitsu]

Wenn er eh nur den vorherrigen Aufrufer haben will, dann reicht ReturnAddress vermutlich zu 99,99%
was wohl dem ersten Eintrag in StackWalk64 entsprechen würde.

Das Umwandeln von Adresse zu Name nimmt dir aber keine der beiden Funktionen ab.



Delphi selber und auch ich nehmen ReturnAddress gern für Exceptions und das funktioniert eigentlich ganz gut. (von Inline-Methoden mal abgesehn)
Also wo man innerhalb einer Methode eine Exception auslöst, aber der Verursacher eigentlich der Aufrufer ist.

Delphi-Quellcode:

raise Exception.Create('...') at ReturnAddress;

Da zeigen dann der Debugger und z.B. Eurekalog nicht die Zeile des Raise-Exception, sondern des Aufrufers/Verursachers an.

[Zacherl]

Zitat:

Zitat von himitsu (Beitrag 1386260)

Wenn er eh nur den vorherrigen Aufrufer haben will, dann reicht ReturnAddress vermutlich zu 99,99%

Ja das stimmt, aber er fragt ja extra nach den vorherigen Callern:

Zitat:

Zitat von Elrond (Beitrag 1386232)

Das Problem ist nur das ich keine Ahnung habe wie ich jetzt den Aufrufer des Aufrufers usw.

[Elrond]

Danke für die schnellen Antworten. Ich werde mir erstmal das StackWalk64 im Detail anschauen.

Womöglich reicht mir aber sogar das ReturnAddress. Die Notwendigkeit am Stack weiter entlangzugehen war darin begründet, das ich die Ermittlung der Adresse in eine eigene Funktion auslagern wollte. Sprich MyFunction() --> Log() --> GetAddress(). Wenn ich es richtig verstanden habe gibt ReturnAddress mir bereits die Adresse des letzten Aufrufers.

[Zacherl]

Zitat:

Zitat von Elrond (Beitrag 1386289)

Wenn ich es richtig verstanden habe gibt ReturnAddress mir bereits die Adresse des letzten Aufrufers.

Zumindest die Adresse an der die

Delphi-Quellcode:

call

Instruction zu deiner aktuellen Funktion steht (bzw. zeigt die ReturnAddress tatsächlich auf die nächste Instruction nach dem Call). Daraus solltest du anhand der Map-Datei aber auch den Begin und den Namen der Callers ermitteln können.

[freimatz]

http://help.madshi.net/madStackTraceUnit.htm