mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 10:48:30 +02:00
159 lines
5.2 KiB
ObjectPascal
159 lines
5.2 KiB
ObjectPascal
{ Source provided for Free Pascal Bug Report 3435 }
|
|
{ Submitted by "Michalis Kamburelis" on 2004-12-06 }
|
|
{ e-mail: michalis@camelot.homedns.org }
|
|
{$mode objfpc}
|
|
|
|
type
|
|
TSomeLongLongLongTypeName = 0..1;
|
|
|
|
TSomeClass = class
|
|
public
|
|
constructor Create(
|
|
Param1 : TSomeLongLongLongTypeName;
|
|
Param2 : TSomeLongLongLongTypeName;
|
|
Param3 : TSomeLongLongLongTypeName;
|
|
Param4 : TSomeLongLongLongTypeName;
|
|
Param5 : TSomeLongLongLongTypeName;
|
|
Param6 : TSomeLongLongLongTypeName;
|
|
Param7 : TSomeLongLongLongTypeName;
|
|
Param8 : TSomeLongLongLongTypeName;
|
|
Param9 : TSomeLongLongLongTypeName;
|
|
Param10: TSomeLongLongLongTypeName;
|
|
Param11: TSomeLongLongLongTypeName;
|
|
Param12: TSomeLongLongLongTypeName;
|
|
Param13: TSomeLongLongLongTypeName;
|
|
Param14: TSomeLongLongLongTypeName;
|
|
Param15: TSomeLongLongLongTypeName;
|
|
Param16: TSomeLongLongLongTypeName;
|
|
Param17: TSomeLongLongLongTypeName;
|
|
Param18: TSomeLongLongLongTypeName;
|
|
Param19: TSomeLongLongLongTypeName);
|
|
constructor Create(
|
|
Param1 : TSomeLongLongLongTypeName;
|
|
Param2 : TSomeLongLongLongTypeName;
|
|
Param3 : TSomeLongLongLongTypeName;
|
|
Param4 : TSomeLongLongLongTypeName;
|
|
Param5 : TSomeLongLongLongTypeName;
|
|
Param6 : TSomeLongLongLongTypeName;
|
|
Param7 : TSomeLongLongLongTypeName;
|
|
Param8 : TSomeLongLongLongTypeName;
|
|
Param9 : TSomeLongLongLongTypeName;
|
|
Param10: TSomeLongLongLongTypeName;
|
|
Param11: TSomeLongLongLongTypeName;
|
|
Param12: TSomeLongLongLongTypeName;
|
|
Param13: TSomeLongLongLongTypeName;
|
|
Param14: TSomeLongLongLongTypeName;
|
|
Param15: TSomeLongLongLongTypeName;
|
|
Param16: TSomeLongLongLongTypeName;
|
|
Param17: TSomeLongLongLongTypeName;
|
|
Param18: TSomeLongLongLongTypeName;
|
|
Param19: TSomeLongLongLongTypeName;
|
|
Param20: TSomeLongLongLongTypeName);
|
|
end;
|
|
|
|
constructor TSomeClass.Create(
|
|
Param1 : TSomeLongLongLongTypeName;
|
|
Param2 : TSomeLongLongLongTypeName;
|
|
Param3 : TSomeLongLongLongTypeName;
|
|
Param4 : TSomeLongLongLongTypeName;
|
|
Param5 : TSomeLongLongLongTypeName;
|
|
Param6 : TSomeLongLongLongTypeName;
|
|
Param7 : TSomeLongLongLongTypeName;
|
|
Param8 : TSomeLongLongLongTypeName;
|
|
Param9 : TSomeLongLongLongTypeName;
|
|
Param10: TSomeLongLongLongTypeName;
|
|
Param11: TSomeLongLongLongTypeName;
|
|
Param12: TSomeLongLongLongTypeName;
|
|
Param13: TSomeLongLongLongTypeName;
|
|
Param14: TSomeLongLongLongTypeName;
|
|
Param15: TSomeLongLongLongTypeName;
|
|
Param16: TSomeLongLongLongTypeName;
|
|
Param17: TSomeLongLongLongTypeName;
|
|
Param18: TSomeLongLongLongTypeName;
|
|
Param19: TSomeLongLongLongTypeName);
|
|
|
|
procedure Nested(
|
|
Param1 : TSomeLongLongLongTypeName;
|
|
Param2 : TSomeLongLongLongTypeName;
|
|
Param3 : TSomeLongLongLongTypeName;
|
|
Param4 : TSomeLongLongLongTypeName;
|
|
Param5 : TSomeLongLongLongTypeName;
|
|
Param6 : TSomeLongLongLongTypeName;
|
|
Param7 : TSomeLongLongLongTypeName;
|
|
Param8 : TSomeLongLongLongTypeName;
|
|
Param9 : TSomeLongLongLongTypeName;
|
|
Param10: TSomeLongLongLongTypeName;
|
|
Param11: TSomeLongLongLongTypeName;
|
|
Param12: TSomeLongLongLongTypeName;
|
|
Param13: TSomeLongLongLongTypeName;
|
|
Param14: TSomeLongLongLongTypeName;
|
|
Param15: TSomeLongLongLongTypeName;
|
|
Param16: TSomeLongLongLongTypeName;
|
|
Param17: TSomeLongLongLongTypeName;
|
|
Param18: TSomeLongLongLongTypeName;
|
|
Param19: TSomeLongLongLongTypeName;
|
|
Param20: TSomeLongLongLongTypeName);
|
|
begin
|
|
end;
|
|
|
|
const
|
|
SomeConstant1: array[0..1]of Integer = (0, 1);
|
|
SomeConstant2: array[0..1]of Integer = (0, 1);
|
|
begin
|
|
end;
|
|
|
|
constructor TSomeClass.Create(
|
|
Param1 : TSomeLongLongLongTypeName;
|
|
Param2 : TSomeLongLongLongTypeName;
|
|
Param3 : TSomeLongLongLongTypeName;
|
|
Param4 : TSomeLongLongLongTypeName;
|
|
Param5 : TSomeLongLongLongTypeName;
|
|
Param6 : TSomeLongLongLongTypeName;
|
|
Param7 : TSomeLongLongLongTypeName;
|
|
Param8 : TSomeLongLongLongTypeName;
|
|
Param9 : TSomeLongLongLongTypeName;
|
|
Param10: TSomeLongLongLongTypeName;
|
|
Param11: TSomeLongLongLongTypeName;
|
|
Param12: TSomeLongLongLongTypeName;
|
|
Param13: TSomeLongLongLongTypeName;
|
|
Param14: TSomeLongLongLongTypeName;
|
|
Param15: TSomeLongLongLongTypeName;
|
|
Param16: TSomeLongLongLongTypeName;
|
|
Param17: TSomeLongLongLongTypeName;
|
|
Param18: TSomeLongLongLongTypeName;
|
|
Param19: TSomeLongLongLongTypeName;
|
|
Param20: TSomeLongLongLongTypeName);
|
|
const
|
|
SomeConstant1: array[0..1]of Integer = (0, 1);
|
|
SomeConstant2: array[0..1]of Integer = (0, 1);
|
|
|
|
procedure Nested(
|
|
Param1 : TSomeLongLongLongTypeName;
|
|
Param2 : TSomeLongLongLongTypeName;
|
|
Param3 : TSomeLongLongLongTypeName;
|
|
Param4 : TSomeLongLongLongTypeName;
|
|
Param5 : TSomeLongLongLongTypeName;
|
|
Param6 : TSomeLongLongLongTypeName;
|
|
Param7 : TSomeLongLongLongTypeName;
|
|
Param8 : TSomeLongLongLongTypeName;
|
|
Param9 : TSomeLongLongLongTypeName;
|
|
Param10: TSomeLongLongLongTypeName;
|
|
Param11: TSomeLongLongLongTypeName;
|
|
Param12: TSomeLongLongLongTypeName;
|
|
Param13: TSomeLongLongLongTypeName;
|
|
Param14: TSomeLongLongLongTypeName;
|
|
Param15: TSomeLongLongLongTypeName;
|
|
Param16: TSomeLongLongLongTypeName;
|
|
Param17: TSomeLongLongLongTypeName;
|
|
Param18: TSomeLongLongLongTypeName;
|
|
Param19: TSomeLongLongLongTypeName;
|
|
Param20: TSomeLongLongLongTypeName);
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|