paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 11:18:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use dyn array for bitset

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-17 17:15:00 +01:00
parent c74c4ad9ad
commit 58df41dcf0
1 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/cclasses.pas
View File

@ -453,6 +453,7 @@ type
Next : pdynamicblock;
data : tdynamicblockdata;
end;
tdynamicblockarray = array of tdynamicblock;
const
dynamicblockbasesize = sizeof(tdynamicblock)-sizeof(tdynamicblockdata);
@ -566,10 +567,12 @@ type
tbitset
*******************************************************************}
{ tbitset }
tbitset = class
private
fdata: pbyte;
fdatasize: longint;
fdata: TByteDynArray;
function getdatasize: longint;
public
constructor create(initsize: longint);
constructor create_bytesize(bytesize: longint);
@ -586,8 +589,8 @@ type
procedure addset(aset: tbitset);
procedure subset(aset: tbitset);
property data: pbyte read fdata;
property datasize: longint read fdatasize;
property data: TByteDynArray read fdata;
property datasize: longint read getdatasize;
end;
@ -3228,6 +3231,11 @@ end;
tbitset
****************************************************************************}
function tbitset.getdatasize: longint;
begin
result:=length(fdata);
end;
constructor tbitset.create(initsize: longint);
begin
create_bytesize((initsize+7) div 8);
@ -3236,30 +3244,27 @@ end;
constructor tbitset.create_bytesize(bytesize: longint);
begin
fdatasize:=bytesize;
getmem(fdata,fdataSize);
setLength(fdata,bytesize);
clear;
end;
destructor tbitset.destroy;
begin
freemem(fdata,fdatasize);
fdata:=Nil;
inherited destroy;
end;
procedure tbitset.clear;
begin
fillchar(fdata^,fdatasize,0);
fillchar(fdata[0],length(fdata),0);
end;
procedure tbitset.grow(nsize: longint);
begin
reallocmem(fdata,nsize);
fillchar(fdata[fdatasize],nsize-fdatasize,0);
fdatasize:=nsize;
setlength(fdata,nsize);
end;