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

* mark the current procedure if it has a non local exit, not the targetted one

Browse Source 
git-svn-id: trunk@25288 -
This commit is contained in:
florian 2013-08-18 18:55:53 +00:00
parent bb397e2b2f
commit bca6dafbc5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pexpr.pas
View File

@ -337,8 +337,8 @@ implementation
begin
if not(assigned(exit_procinfo.nestedexitlabel)) then
begin
include(exit_procinfo.flags,pi_has_nested_exit);
exclude(exit_procinfo.procdef.procoptions,po_inline);
include(current_procinfo.flags,pi_has_nested_exit);
exclude(current_procinfo.procdef.procoptions,po_inline);
exit_procinfo.nestedexitlabel:=tlabelsym.create('$nestedexit');