blob: 1a51f055c5b817178055213123ded48ca177d084 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ %fail }
{ Source provided for Free Pascal Bug Report 2724 }
{ Submitted by "marco" on 2003-10-08 }
{ e-mail: }
{$ifdef fpc}{$Mode delphi}{$endif}
type
TBitSet = class(TBits)
constructor Create(aSize: integer);
end;
{ TBitSet }
constructor TBitSet.Create(aSize: integer);
begin
inherited Create;
Size := aSize;
end;
begin
end.
|
