mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 21: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 -
20 lines
250 B
ObjectPascal
20 lines
250 B
ObjectPascal
{ %FAIL }
|
|
|
|
{ this tests that procedure variables (among others) can not be extended }
|
|
|
|
program tthlp11;
|
|
|
|
{$mode delphi}
|
|
{$modeswitch typehelpers}
|
|
|
|
type
|
|
TProcedure = procedure;
|
|
|
|
TProcedureHelper = record helper for TProcedure
|
|
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|