paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:29:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ensure insert_self_and_vmt_para can deal with a preexisting self symbol as long as it has the expected type

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-05-23 23:03:10 +02:00
parent 39f5534969
commit 90eabdd6b4
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pparautl.pas
View File

@ -286,8 +286,12 @@ implementation
vsp:=vs_var;
hdef:=selfdef;
end;
vs:=cparavarsym.create('$self',paranr_self,vsp,hdef,[vo_is_self,vo_is_hidden_para]);
pd.parast.insertsym(vs);
vs:=tparavarsym(pd.parast.find('self'));
if not assigned(vs) or (vs.typ<>paravarsym) or (vs.vardef<>hdef) then
begin
vs:=cparavarsym.create('$self',paranr_self,vsp,hdef,[vo_is_self,vo_is_hidden_para]);
pd.parast.insertsym(vs);
end;
current_tokenpos:=storepos;
end;