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

* made the goto checking for excpetions more fool proof against errors

Browse Source
This commit is contained in:
florian 1999-12-17 11:20:06 +00:00
parent 603de2a4bb
commit eb70ce1522
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cg386flw.pas
View File

@ -520,7 +520,10 @@ do_jmp:
begin begin
emitjmp(C_None,p^.labelnr); emitjmp(C_None,p^.labelnr);
if aktexceptblock<>ptree(p^.labsym^.code)^.exceptionblock then { the assigned avoids only crashes if the label isn't defined }
if assigned(p^.labsym) and
assigned(p^.labsym^.code) and
(aktexceptblock<>ptree(p^.labsym^.code)^.exceptionblock) then
CGMessage(cg_e_goto_inout_of_exception_block); CGMessage(cg_e_goto_inout_of_exception_block);
end; end;
@ -806,7 +809,10 @@ do_jmp:
end. end.
{ {
$Log$ $Log$
Revision 1.61 1999-12-14 09:58:41 florian Revision 1.62 1999-12-17 11:20:06 florian
* made the goto checking for excpetions more fool proof against errors
Revision 1.61 1999/12/14 09:58:41 florian
+ compiler checks now if a goto leaves an exception block + compiler checks now if a goto leaves an exception block
Revision 1.60 1999/12/01 12:36:23 peter Revision 1.60 1999/12/01 12:36:23 peter