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

Default exception handler also needs to call FPC_CATCHES

Browse Source
This commit is contained in:
michael 1998-07-31 11:36:34 +00:00
parent d207893bde
commit 9fed2b39d0
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/cg386flw.pas
View File

@ -604,7 +604,13 @@ do_jmp:
emitl(A_LABEL,lastonlabel); emitl(A_LABEL,lastonlabel);
{ default handling } { default handling }
if assigned(p^.t1) then if assigned(p^.t1) then
secondpass(p^.t1) begin
// FPC_CATCHES must be called with
// 'default handler' flag (=-1)
push_int (-1);
emitcall('FPC_CATCHES',true);
secondpass(p^.t1);
end
else else
emitcall('FPC_RERAISE',true); emitcall('FPC_RERAISE',true);
emitl(A_LABEL,endexceptlabel); emitl(A_LABEL,endexceptlabel);
@ -730,7 +736,10 @@ do_jmp:
end. end.
{ {
$Log$ $Log$
Revision 1.8 1998-07-30 13:30:32 florian Revision 1.9 1998-07-31 11:36:34 michael
Default exception handler also needs to call FPC_CATCHES
Revision 1.8 1998/07/30 13:30:32 florian
* final implemenation of exception support, maybe it needs * final implemenation of exception support, maybe it needs
some fixes :) some fixes :)