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

* forgot to commit extension to tspecializenode

Browse Source 
git-svn-id: trunk@39788 -
This commit is contained in:
svenbarth 2018-09-21 15:17:52 +00:00
parent 9a99ab9dda
commit 116230f759
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nbas.pas
View File

@ -51,7 +51,9 @@ interface
tspecializenode = class(tunarynode)
sym:tsym;
getaddr:boolean;
inheriteddef:tdef;
constructor create(l:tnode;g:boolean;s:tsym);virtual;
constructor create_inherited(l:tnode;g:boolean;s:tsym;i:tdef);virtual;
function pass_1:tnode;override;
function pass_typecheck:tnode;override;
end;
@ -430,6 +432,12 @@ implementation
getaddr:=g;
end;
constructor tspecializenode.create_inherited(l:tnode;g:boolean;s:tsym;i:tdef);
begin
create(l,g,s);
inheriteddef:=i;
end;
function tspecializenode.pass_typecheck:tnode;
begin