Merged revisions 3590 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

r3590 (florian)
* allow assembler labels to be used in typed consts

git-svn-id: branches/fixes_2_0@3591 -

compiler/symsym.pas

@@ -72,6 +72,7 @@ interface
 {$ifdef GDB}
           function  stabstring : pchar;override;
 {$endif GDB}
+          function mangledname:string;
        end;
 
        tunitsym = class(Tstoredsym)
@@ -558,6 +559,16 @@ implementation
 {$endif GDB}
 
 
+    function tlabelsym.mangledname:string;
+      begin
+        if not(defined) then
+          begin
+            defined:=true;
+            objectlibrary.getlabel(asmblocklabel);
+          end;
+        result:=asmblocklabel.getname;
+      end;
+
 {****************************************************************************
                                   TUNITSYM
 ****************************************************************************}