paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-26 15:58:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* copy and compare the typesym inside type nodes as well

Browse Source 
git-svn-id: trunk@49062 -
This commit is contained in:
svenbarth 2021-03-27 09:34:59 +00:00
parent 2d255cec91
commit 067b9b2922
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nld.pas
View File

@ -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;