mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 19:00:58 +02:00
ece13bcc5a
+ added test (Note: the test fails due to missing = operator, but without the fix there was a stack overflow) git-svn-id: trunk@35508 -
26 lines
298 B
ObjectPascal
26 lines
298 B
ObjectPascal
{ %FAIL }
|
|
|
|
program tw31465;
|
|
|
|
{$MODE DELPHI}
|
|
|
|
uses
|
|
FGL;
|
|
|
|
type
|
|
THWAddr = record
|
|
public type
|
|
THWBytes = array [0..5] of Byte;
|
|
private
|
|
FValue: THWBytes;
|
|
public
|
|
class var Empty: THWAddr;
|
|
class var Broadcast: THWAddr;
|
|
end;
|
|
|
|
TGWCache = class(TFPGList<THWAddr>);
|
|
|
|
begin
|
|
|
|
end.
|