Browse Source

* limit backtraces to values inside the stack, patch by Vincent Snijders


git-svn-id: trunk@162 -

peter 20 years ago
parent
commit
87fe5d9b98
1 changed files with 2 additions and 1 deletions
  1. 2 1
      rtl/inc/except.inc

+ 2 - 1
rtl/inc/except.inc

@@ -152,7 +152,8 @@ begin
   frames:=nil;
   framebufsize:=0;
   framecount:=0;
-  while (framecount<RaiseMaxFrameCount) and (curr_frame > prev_frame) Do
+  while (framecount<RaiseMaxFrameCount) and (curr_frame > prev_frame) and
+        (curr_frame<(StackBottom + StackLength)) do
    Begin
      caller_addr := get_caller_addr(curr_frame);
      caller_frame := get_caller_frame(curr_frame);