mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:28:14 +02:00
ddb78fefdc
+ globtype.pas: add new modeswitch to modeswitch enum and name array * ptype.pas & pdecobj.pas: check for new modeswitch instead of modeswitch class * ppu.pas: increase ppu version as we've added a new modeswitch which requires correctly compiled units * adjusted tests to enabled the modeswitch when necessary + added three new tests that check for correct functionality of modeswitch typehelpers git-svn-id: trunk@26796 -
22 lines
364 B
ObjectPascal
22 lines
364 B
ObjectPascal
{ %FAIL }
|
|
|
|
{ constructors with only default arguments are not allowed }
|
|
|
|
program tthlp16;
|
|
|
|
{$mode objfpc}
|
|
{$modeswitch typehelpers}
|
|
|
|
type
|
|
TLongIntHelper = type helper for LongInt
|
|
constructor Create(aArg1: LongInt = 0; aArg2: LongInt = 0);
|
|
end;
|
|
|
|
constructor TLongIntHelper.Create(aArg1: LongInt = 0; aArg2: LongInt = 0);
|
|
begin
|
|
Self := 2;
|
|
end;
|
|
|
|
begin
|
|
end.
|