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

* check if labsym is assigned before testing if it's used globally

Browse Source 
git-svn-id: trunk@15754 -
This commit is contained in:
florian 2010-08-08 17:31:15 +00:00
parent 66571ee4c8
commit 9365eb48c0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nflw.pas
View File

@ -1830,7 +1830,7 @@ implementation
include(current_procinfo.flags,pi_has_label);
if labsym.nonlocal then
if assigned(labsym) and labsym.nonlocal then
include(current_procinfo.flags,pi_has_interproclabel);
if assigned(left) then