Procházet zdrojové kódy

* declared tlabelsym.mangledname as override

git-svn-id: trunk@4184 -
Jonas Maebe před 19 roky
rodič
revize
4861472e7b
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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)