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

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@36196 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 9 insertions, 0 deletions

diff --git a/compiler/cclasses.pas b/compiler/cclasses.pas
index cc3ac9622c..b58b8e6380 100644
--- a/compiler/cclasses.pas
+++ b/compiler/cclasses.pas
@@ -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
 ****************************************************************************}