tests/webtbs/tw2259.pp


1
2
3
4
5
6
7
8
9
10
11

{ Source provided for Free Pascal Bug Report 2259 }
{ Submitted by "Sergey Kosarevsky" on  2002-12-14 }
{ e-mail: netsurfer@au.ru }

Type tObject=Object
        ClassFlags:Longint;Static;
     End;

Begin
   tObject.ClassFlags:=255;
End.