소스 검색

* copy and compare the typesym inside type nodes as well

git-svn-id: trunk@49062 -
svenbarth 4 년 전
부모
커밋
067b9b2922
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      compiler/nld.pas

+ 2 - 0
compiler/nld.pas

@@ -1372,6 +1372,7 @@ implementation
          n:=ttypenode(inherited dogetcopy);
          n:=ttypenode(inherited dogetcopy);
          n.allowed:=allowed;
          n.allowed:=allowed;
          n.typedef:=typedef;
          n.typedef:=typedef;
+         n.typesym:=typesym;
          n.helperallowed:=helperallowed;
          n.helperallowed:=helperallowed;
          result:=n;
          result:=n;
       end;
       end;
@@ -1382,6 +1383,7 @@ implementation
         docompare :=
         docompare :=
           inherited docompare(p) and
           inherited docompare(p) and
           (typedef=ttypenode(p).typedef) and
           (typedef=ttypenode(p).typedef) and
+          (typesym=ttypenode(p).typesym) and
           (allowed=ttypenode(p).allowed) and
           (allowed=ttypenode(p).allowed) and
           (helperallowed=ttypenode(p).helperallowed);
           (helperallowed=ttypenode(p).helperallowed);
       end;
       end;