mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 01:08:07 +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 -
24 lines
262 B
ObjectPascal
24 lines
262 B
ObjectPascal
{ %NORUN }
|
|
|
|
{ this checks that the basic type helper syntax is parsed correctly }
|
|
|
|
program tthlp1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
{$modeswitch typehelpers}
|
|
|
|
type
|
|
TTest = type helper for LongInt
|
|
procedure Test;
|
|
end;
|
|
|
|
procedure TTest.Test;
|
|
begin
|
|
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|
|
|