mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 20:29:23 +02:00
* also allow conversion of niln to forward-defined pointerdef
(mantis #22593) git-svn-id: trunk@22026 -
This commit is contained in:
parent
a63a603cc1
commit
4d31fbc31d
@ -1222,7 +1222,8 @@ implementation
|
|||||||
if assigned(def_to.typesym) and
|
if assigned(def_to.typesym) and
|
||||||
(tpointerdef(def_to).pointeddef.typ=forwarddef) then
|
(tpointerdef(def_to).pointeddef.typ=forwarddef) then
|
||||||
begin
|
begin
|
||||||
if (def_from.typesym=def_to.typesym) then
|
if (def_from.typesym=def_to.typesym) or
|
||||||
|
(fromtreetype=niln) then
|
||||||
eq:=te_equal
|
eq:=te_equal
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
|
@ -10,14 +10,19 @@ type
|
|||||||
tcc = class of tc;
|
tcc = class of tc;
|
||||||
tc3 = class;
|
tc3 = class;
|
||||||
|
|
||||||
|
tprec = ^trec;
|
||||||
|
|
||||||
tc2 = class
|
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;
|
end;
|
||||||
|
|
||||||
tc3 = class
|
tc3 = class
|
||||||
end;
|
end;
|
||||||
|
|
||||||
constructor tc2.create(c: tcc = nil; c3: tc3 = nil);
|
constructor tc2.create(c: tcc = nil; c3: tc3 = nil; r: tprec = nil);
|
||||||
begin
|
begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user