소스 검색

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


git-svn-id: trunk@162 -

peter 20 년 전
부모
커밋
87fe5d9b98
1개의 변경된 파일2개의 추가작업 그리고 1개의 파일을 삭제
  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);