Преглед на файлове

* forgot to commit extension to tspecializenode

git-svn-id: trunk@39788 -
svenbarth преди 6 години
родител
ревизия
116230f759
променени са 1 файла, в които са добавени 8 реда и са изтрити 0 реда
  1. 8 0
      compiler/nbas.pas

+ 8 - 0
compiler/nbas.pas

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