paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 11:19:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* tbits.create is now supported

Browse Source
This commit is contained in:
peter 2003-10-30 16:25:07 +00:00
parent 19727a3609
commit bf708e1de0
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/classes/bits.inc
View File

@ -101,7 +101,7 @@ end;
{ ******************** TBits ***************************** }
constructor TBits.Create(theSize : longint);
constructor TBits.Create(theSize : longint {$ifndef VER1_0} = 0 {$endif});
begin
FSize := 0;
FBits := nil;
@ -380,7 +380,10 @@ end;
{
$Log$
Revision 1.1 2003-10-06 21:01:06 peter
Revision 1.2 2003-10-30 16:25:07 peter
* tbits.create is now supported
Revision 1.1 2003/10/06 21:01:06 peter
* moved classes unit to rtl
Revision 1.9 2003/05/25 16:05:18 jonas