Przeglądaj źródła

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

git-svn-id: trunk@15754 -
florian 15 lat temu
rodzic
commit
9365eb48c0
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      compiler/nflw.pas

+ 1 - 1
compiler/nflw.pas

@@ -1830,7 +1830,7 @@ implementation
 
 
         include(current_procinfo.flags,pi_has_label);
         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);
           include(current_procinfo.flags,pi_has_interproclabel);
 
 
         if assigned(left) then
         if assigned(left) then