paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-05 05:48:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@162 -
This commit is contained in:
peter 2005-06-01 06:50:52 +00:00
parent d6fcfb0a1e
commit 87fe5d9b98
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/except.inc
View File

@ -152,7 +152,8 @@ begin
frames:=nil; frames:=nil;
framebufsize:=0; framebufsize:=0;
framecount:=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 Begin
caller_addr := get_caller_addr(curr_frame); caller_addr := get_caller_addr(curr_frame);
caller_frame := get_caller_frame(curr_frame); caller_frame := get_caller_frame(curr_frame);