mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 18:10:29 +02:00
1bbcc08a8b
ptype.pas: * read_named_type: change hadtypetoken from a value to a var parameter and set it to false if a type helper is parsed so that calling code does not handle it as unique * read_anon_type: handle that hadtypetoken is now a var parameter pgenutil.pas, generate_specialization: * handle that hadtypetoken of read_named_type is now a var parameter + added test git-svn-id: trunk@27870 -
17 lines
231 B
ObjectPascal
17 lines
231 B
ObjectPascal
{ %fail }
|
|
|
|
program tw26176;
|
|
|
|
{$MODE OBJFPC}
|
|
{$MODESWITCH TYPEHELPERS}
|
|
|
|
type
|
|
TIH = type helper for Int32
|
|
// NO (!) error - Forward declaration not solved "Foo(TObject);"
|
|
procedure Foo(Sender: TObject);
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|