Changeset 167 for ExceptionLogger/UStackTrace.pas

Timestamp:

Feb 10, 2011, 4:07:44 PM (14 years ago)

Author:

george

Message:

• Added: Method for obtaining call stack from specified address.

File:

• ExceptionLogger/UStackTrace.pas (modified) (3 diffs)

ExceptionLogger/UStackTrace.pas

@@ -24 +24 @@
     MaxDepth: Integer;
     procedure GetExceptionBackTrace;
-    procedure GetCallStack;
+    procedure GetCallStack(BP: Pointer);
+    procedure GetCurrentCallStack;
     constructor Create;
   end;
@@ -54 +55 @@
 end;
 
-procedure TStackTrace.GetCallStack;
+procedure TStackTrace.GetCallStack(BP: Pointer);
 var
   I: Longint;
   prevbp: Pointer;
-  CallerFrame,
-  CallerAddress,
-  bp: Pointer;
+  CallerFrame: Pointer;
+  CallerAddress: Pointer;
   StackFrameInfo: TStackFrameInfo;
 begin
   Clear;
-  //routine adapted from fpc source
-
-  bp := get_frame;
-  //This trick skip SendCallstack item
-  // bp := get_caller_frame(get_frame);
   try
-    prevbp := bp - 1;
     I := 0;
-    //is_dev:=do_isdevice(textrec(f).Handle);
-    while bp > prevbp do begin
-       CallerAddress := get_caller_addr(bp);
-       CallerFrame := get_caller_frame(bp);
-       if (CallerAddress = nil) then
-         Break;
-       StackFrameInfo := TStackFrameInfo.Create;
-       StackFrameInfo.GetFrameInfo(CallerAddress);
-       StackFrameInfo.Index := I + 1;
-       Add(StackFrameInfo);
-       Inc(I);
-       if (I >= MaxDepth) or (CallerFrame = nil) then
-         Break;
-       prevbp := bp;
-       bp := CallerFrame;
-     end;
-   except
-     { prevent endless dump if an exception occured }
-   end;
+    while (BP <> nil) and (I < MaxDepth) do begin
+      CallerAddress := TStackFrameInfo(get_caller_addr(BP));
+      StackFrameInfo := TStackFrameInfo.Create;
+      StackFrameInfo.GetFrameInfo(CallerAddress);
+      StackFrameInfo.Index := I + 1;
+      Add(StackFrameInfo);
+      Inc(I);
+      BP := TStackFrameInfo(get_caller_frame(BP));
+    end;
+  except
+    { prevent endless dump if an exception occured }
+  end;
 end;
 
@@ -122 +109 @@
 end;
 
-
+procedure TStackTrace.GetCurrentCallStack;
+begin
+  GetCallStack(get_frame);
+end;
 
 end.