浏览代码

* 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 ppuload(ppufile:tcompilerppufile);
           procedure ppuwrite(ppufile:tcompilerppufile);override;
-          function mangledname:string;
+          function mangledname:string;override;
        end;
 
        tunitsym = class(Tstoredsym)