paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 16:39:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ placeholder function to check whether two tdynamicarray instances have the same contents (needs to be implemented for COMDAT selection with same content to work)

Browse Source 
git-svn-id: trunk@36196 -
This commit is contained in:
svenbarth 2017-05-12 15:52:07 +00:00
parent a7ca75a4b6
commit b74b3b0047
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cclasses.pas
View File

@ -470,6 +470,7 @@ type
procedure writestr(const s:string); {$ifdef CCLASSESINLINE}inline;{$endif}
procedure readstream(f:TCStream;maxlen:longword);
procedure writestream(f:TCStream);
function equal(other:tdynamicarray):boolean;
property CurrBlockSize : longword read FCurrBlocksize;
property FirstBlock : PDynamicBlock read FFirstBlock;
property Pos : longword read FPosn;
@ -2791,6 +2792,14 @@ end;
end;
end;
function tdynamicarray.equal(other:tdynamicarray):boolean;
begin
result:=false;
{ TODO }
end;
{****************************************************************************
thashset
****************************************************************************}