* declared tlabelsym.mangledname as override

git-svn-id: trunk@4184 -
This commit is contained in:
Jonas Maebe 2006-07-14 17:33:29 +00:00
parent 90cacb4cf5
commit 4861472e7b

View File

@ -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)