mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 01:09:35 +02:00
8c95ea039f
ptype.pas:
* read_named_type:
after reading the type we're pointing to we need to make sure that
we didn't get a generic dummy symbol; this can happen when parsing
a pointer declaration as the type in a constant or variable
declaration
* resolve_forward_types:
when resolving forward types we need to make sure that we weren't
given a generic dummy to which no non-generic definition was
given (possible in Delphi mode); for non-Delphi modes we can not
rely on the generic dummy flag as the typedef of the symbol will
the generic def
+ added test from the bug reports as well as three additional ones to
make sure that nothing breaks regarding to forward pointer
declarations
git-svn-id: trunk@21687 -
17 lines
181 B
ObjectPascal
17 lines
181 B
ObjectPascal
{ %FAIL }
|
|
|
|
program tw22219;
|
|
{$MODE DELPHI}
|
|
|
|
type
|
|
TWrapper<P, Q> = record end;
|
|
TWrapper<R> = record end;
|
|
AmbiguousPointer = ^TWrapper;
|
|
|
|
var
|
|
Z: AmbiguousPointer;
|
|
|
|
begin
|
|
|
|
end.
|