tests/webtbf/tw31465.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

{ %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.