mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
c623824374
symtable.pas, search_objectpascal_helper: * handle more symbol types than just properties and methods; afterall helpers can have types, static variables and constants as well + added test git-svn-id: trunk@27534 -
19 lines
230 B
ObjectPascal
19 lines
230 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw25605; // Fatal: Compilation aborted
|
|
|
|
{$MODE DELPHI}
|
|
{$modeswitch typehelpers}
|
|
|
|
type
|
|
TValueInt32Helper = record helper for Int32
|
|
const
|
|
C: Int32 = 0;
|
|
end;
|
|
|
|
var
|
|
I: Int32;
|
|
begin
|
|
I := Int32.C;
|
|
end.
|