* ttypenode.dogetcopy added

git-svn-id: trunk@5080 -

compiler/nld.pas

@@ -106,6 +106,7 @@ interface
           procedure derefimpl;override;
           function pass_1 : tnode;override;
           function pass_typecheck:tnode;override;
+          function  dogetcopy : tnode;override;
           function docompare(p: tnode): boolean; override;
        end;
        ttypenodeclass = class of ttypenode;
@@ -1126,6 +1127,17 @@ implementation
       end;
 
 
+    function ttypenode.dogetcopy : tnode;
+      var
+         n : ttypenode;
+      begin
+         n:=ttypenode(inherited dogetcopy);
+         n.allowed:=allowed;
+         n.typedef:=typedef;
+         result:=n;
+      end;
+
+
     function ttypenode.docompare(p: tnode): boolean;
       begin
         docompare :=