paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 02:30:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix crash with backtrace if invalid frame is passed

Browse Source
This commit is contained in:
peter 2005-01-29 17:01:18 +00:00
parent cd01e600b9
commit 93ec8d154c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/except.inc
View File

@ -152,7 +152,7 @@ begin
ExceptObjectStack^.refcount:=0;
{ Backtrace }
curr_frame:=AFrame;
prev_frame:=AFrame-1;
prev_frame:=get_frame;
frames:=nil;
framebufsize:=0;
framecount:=0;
@ -346,7 +346,10 @@ begin
end;
{
$Log$
Revision 1.17 2005-01-26 17:07:10 peter
Revision 1.18 2005-01-29 17:01:18 peter
* fix crash with backtrace if invalid frame is passed
Revision 1.17 2005/01/26 17:07:10 peter
* retrieve backtrace when exception is raised
* RaiseMaxFrameCount added to limit the number of backtraces, setting
it to 0 disables backtraces. Default is 16