Selaa lähdekoodia

* copy and compare the typesym inside type nodes as well

git-svn-id: trunk@49062 -
svenbarth 4 vuotta sitten
vanhempi
commit
067b9b2922
1 muutettua tiedostoa jossa 2 lisäystä ja 0 poistoa
  1. 2 0
      compiler/nld.pas

+ 2 - 0
compiler/nld.pas

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