mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +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
274 B
ObjectPascal
22 lines
274 B
ObjectPascal
{ %FAIL }
|
|
|
|
{ constructors without arguments are not allowed }
|
|
|
|
program tthlp15;
|
|
|
|
{$mode objfpc}
|
|
{$modeswitch typehelpers}
|
|
|
|
type
|
|
TLongIntHelper = type helper for LongInt
|
|
constructor Create;
|
|
end;
|
|
|
|
constructor TLongIntHelper.Create;
|
|
begin
|
|
Self := 2;
|
|
end;
|
|
|
|
begin
|
|
end.
|