Просмотр исходного кода

+ 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: trunk@36196 -
svenbarth 8 лет назад
Родитель
Сommit
b74b3b0047
1 измененных файлов с 9 добавлено и 0 удалено
  1. 9 0
      compiler/cclasses.pas

+ 9 - 0
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
 ****************************************************************************}