* give an error when trying to take address of a global label declared in

    another scope instead of crashing (mantis #21078)

git-svn-id: trunk@20508 -

.gitattributes

@@ -11316,6 +11316,7 @@ tests/webtbf/tw20721b.pp svneol=native#text/pascal
 tests/webtbf/tw20721c.pp svneol=native#text/pascal
 tests/webtbf/tw20907.pp svneol=native#text/plain
 tests/webtbf/tw20907a.pp svneol=native#text/plain
+tests/webtbf/tw21078.pp svneol=native#text/plain
 tests/webtbf/tw21087.pp svneol=native#text/plain
 tests/webtbf/tw2128.pp svneol=native#text/plain
 tests/webtbf/tw2129.pp svneol=native#text/plain

compiler/nld.pas

@@ -425,7 +425,11 @@ implementation
                      end;
                 end;
            labelsym :
-             ;
+             begin
+               if not assigned(tlabelsym(symtableentry).asmblocklabel) and
+                  not assigned(tlabelsym(symtableentry).code) then
+                 Message(parser_e_label_outside_proc);
+             end
            else
              internalerror(200104143);
          end;

tests/webtbf/tw21078.pp

@@ -0,0 +1,14 @@
+{ %fail }
+
+{$goto on}
+label x;
+var p:pointer;
+
+procedure Foo();
+begin
+  x:
+end;
+
+begin
+	p:=@x;
+end.