fpc/tests/webtbs/uw40183.pp

25 lines
260 B
ObjectPascal

unit uw40183;
{$mode ObjFPC}{$H+}
interface
uses
Types;
type
TBuffer = packed record
Mask: Int64;
DataArray: TObjectDynArray;
end;
var
GlobalBuffer: TBuffer;
implementation
initialization
GlobalBuffer := Default(TBuffer);
end.