paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 19:10:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

call halt(217) if get_caller_XX function generates an exception

Browse Source 
git-svn-id: trunk@22389 -
This commit is contained in:
pierre 2012-09-14 13:45:31 +00:00
parent 6ac8b6e9c7
commit 6eccf88499
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/except.inc
View File

@ -144,7 +144,7 @@ begin
prev_frame:=get_caller_frame(curr_addr, curr_frame); prev_frame:=get_caller_frame(curr_addr, curr_frame);
{$ifdef FPC_CHECK_GET_CALLER_EXCEPTIONS} {$ifdef FPC_CHECK_GET_CALLER_EXCEPTIONS}
except except
prev_frame:=nil; halt(217);
end; end;
{$endif FPC_CHECK_GET_CALLER_EXCEPTIONS} {$endif FPC_CHECK_GET_CALLER_EXCEPTIONS}
while (framecount<RaiseMaxFrameCount) and (curr_frame > prev_frame) and while (framecount<RaiseMaxFrameCount) and (curr_frame > prev_frame) and
@ -154,12 +154,12 @@ begin
try try
caller_addr := get_caller_addr(curr_frame, curr_addr); caller_addr := get_caller_addr(curr_frame, curr_addr);
except except
caller_addr := nil; halt(217);
end; end;
try try
caller_frame := get_caller_frame(curr_frame, curr_addr); caller_frame := get_caller_frame(curr_frame, curr_addr);
except except
caller_frame := nil; halt(217);
end; end;
{$else not FPC_CHECK_GET_CALLER_EXCEPTIONS} {$else not FPC_CHECK_GET_CALLER_EXCEPTIONS}
caller_addr := get_caller_addr(curr_frame, curr_addr); caller_addr := get_caller_addr(curr_frame, curr_addr);