* allow assembler labels to be used in typed consts

git-svn-id: trunk@3590 -

compiler/symsym.pas

@@ -63,6 +63,7 @@ interface
           constructor create(const n : string);
           constructor ppuload(ppufile:tcompilerppufile);
           procedure ppuwrite(ppufile:tcompilerppufile);override;
+          function mangledname:string;
        end;
 
        tunitsym = class(Tstoredsym)
@@ -474,6 +475,16 @@ implementation
       end;
 
 
+   function tlabelsym.mangledname:string;
+     begin
+       if not(defined) then
+         begin
+           defined:=true;
+           current_asmdata.getjumplabel(asmblocklabel);
+         end;
+       result:=asmblocklabel.getname;
+     end;
+
 {****************************************************************************
                                   TUNITSYM
 ****************************************************************************}