paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 22:59:51 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also allow conversion of niln to forward-defined pointerdef

Browse Source 
(mantis )

git-svn-id: trunk@22026 -
This commit is contained in:
Jonas Maebe 2012-08-07 11:23:00 +00:00
parent a63a603cc1
commit 4d31fbc31d
2 changed files with 9 additions and 3 deletions
compiler
defcmp.pas
tests/webtbs
tw22593.pp

3
compiler/defcmp.pas
View File

@ -1222,7 +1222,8 @@ implementation
if assigned(def_to.typesym) and
(tpointerdef(def_to).pointeddef.typ=forwarddef) then
begin
if (def_from.typesym=def_to.typesym) then
if (def_from.typesym=def_to.typesym) or
(fromtreetype=niln) then
eq:=te_equal
end
else

9
tests/webtbs/tw22593.pp
View File

@ -10,14 +10,19 @@ type
tcc = class of tc;
tc3 = class;
tprec = ^trec;
tc2 = class
constructor create(c: tcc = nil; c3: tc3 = nil);
constructor create(c: tcc = nil; c3: tc3 = nil; r: tprec = nil);
end;
trec = record
end;
tc3 = class
end;
constructor tc2.create(c: tcc = nil; c3: tc3 = nil);
constructor tc2.create(c: tcc = nil; c3: tc3 = nil; r: tprec = nil);
begin
end;