paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 08:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

- remove no longer required readonly functionality from tparasymtable

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-12-30 22:52:40 +01:00
parent e1288897f3
commit 4b659175d9
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/symtable.pas
View File

@ -229,10 +229,8 @@ interface
tparasymtable = class(tabstractlocalsymtable)
public
readonly: boolean;
constructor create(adefowner:tdef;level:byte);
function checkduplicate(var hashedid:THashedIDString;sym:TSymEntry):boolean;override;
procedure insertdef(def:TDefEntry);override;
end;
tabstractuniTSymtable = class(tstoredsymtable)
@ -2504,7 +2502,6 @@ implementation
constructor tparasymtable.create(adefowner:tdef;level:byte);
begin
inherited create('');
readonly:=false;
defowner:=adefowner;
symtabletype:=parasymtable;
symtablelevel:=level;
@ -2528,14 +2525,6 @@ implementation
result:=tprocdef(defowner).struct.symtable.checkduplicate(hashedid,sym);
end;
procedure tparasymtable.insertdef(def: TDefEntry);
begin
if readonly then
defowner.owner.insertdef(def)
else
inherited insertdef(def);
end;
{****************************************************************************
TAbstractUniTSymtable