Zugriff auf Aufrufstack

[u-boot]

Hätte gern gewusst ob man zur Laufzeit den Aufrufstack auslesen lassen kann und falls ja wie das geht.
P.S. Ich meine nicht beim Debuggen.

[martin_frb]

Kopie aus gdbmidebugger.pp

Ohne debug info gibt es einfach die Addressen.

Code: Alles auswählen

on e: Exception do begin
      try
        debugln(['ERROR: Exception occured in ',ClassName+'.DoExecute ',
                  e.ClassName, ' Msg="', e.Message, '" Addr=', dbgs(ExceptAddr),
                  ' Dbg.State=', dbgs(FTheDebugger.State)]);
        Report :=  BackTraceStrFunc(ExceptAddr);
        Report2 := Report;
        Frames := ExceptFrames;
        for I := 0 to ExceptFrameCount - 1 do begin
          Report := Report + LineEnding + BackTraceStrFunc(Frames[I]);
          if i < 5
          then Report2 := Report;
        end;
      except
      end;
      debugln(Report);

there is also getframe() search it in the sources, to see how to get the current stack

[Socke]

Kopie aus gdbmidebugger.pp

Ohne debug info gibt es einfach die Addressen.

Ich habe das Gefühl, dass eine ähnliche Funktion auch in den LCL-Methoden gibt (LCLProc/LCLIntf?). Ansonsten schau dir mal den Quelltext von T(Custom)Application.HandleException (oder so ähnlich) an, die macht das ja auch...

Edit:
Schreibt das ganze nur in eine Datei: http://lazarus-ccr.sourceforge.net/docs ... stack.html; mir scheint, als ob diese Aufgabe innerhalb von Free Pascal und Lazarus nicht nur einmal gelöst wurde...