diff --git a/compiler/nbas.pas b/compiler/nbas.pas index 5610bd153f..359b1bd69f 100644 --- a/compiler/nbas.pas +++ b/compiler/nbas.pas @@ -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