Преглед изворни кода

* declared tlabelsym.mangledname as override

git-svn-id: trunk@4184 -
Jonas Maebe пре 19 година
родитељ
комит
4861472e7b
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      compiler/symsym.pas

+ 1 - 1
compiler/symsym.pas

@@ -63,7 +63,7 @@ interface
           constructor create(const n : string);
           constructor create(const n : string);
           constructor ppuload(ppufile:tcompilerppufile);
           constructor ppuload(ppufile:tcompilerppufile);
           procedure ppuwrite(ppufile:tcompilerppufile);override;
           procedure ppuwrite(ppufile:tcompilerppufile);override;
-          function mangledname:string;
+          function mangledname:string;override;
        end;
        end;
 
 
        tunitsym = class(Tstoredsym)
        tunitsym = class(Tstoredsym)