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
 ****************************************************************************}