paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Empty destructor Tlabelsym.destroy removed

Browse Source
This commit is contained in:
daniel 2004-02-04 23:01:36 +00:00
parent 261f3e4927
commit 5db278a977
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/symsym.pas
View File

@ -67,7 +67,6 @@ interface
defined : boolean; defined : boolean;
code : pointer; { should be tnode } code : pointer; { should be tnode }
constructor create(const n : string; l : tasmlabel); constructor create(const n : string; l : tasmlabel);
destructor destroy;override;
constructor ppuload(ppufile:tcompilerppufile); constructor ppuload(ppufile:tcompilerppufile);
procedure generate_mangledname;override; procedure generate_mangledname;override;
procedure ppuwrite(ppufile:tcompilerppufile);override; procedure ppuwrite(ppufile:tcompilerppufile);override;
@ -476,13 +475,6 @@ implementation
defined:=true; defined:=true;
end; end;
destructor tlabelsym.destroy;
begin
inherited destroy;
end;
procedure tlabelsym.generate_mangledname; procedure tlabelsym.generate_mangledname;
begin begin
@ -2374,7 +2366,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.153 2004-02-04 22:54:57 daniel Revision 1.154 2004-02-04 23:01:36 daniel
* Empty destructor Tlabelsym.destroy removed
Revision 1.153 2004/02/04 22:54:57 daniel
* Tvarsym.highvarsym commented out (unused by compiler, purpose unknown) * Tvarsym.highvarsym commented out (unused by compiler, purpose unknown)
Revision 1.152 2004/02/04 22:15:15 daniel Revision 1.152 2004/02/04 22:15:15 daniel