Changeset 219 for Generics/TemplateGenerics/Generic/GenericList.inc

Timestamp:

Mar 24, 2011, 6:50:50 AM (13 years ago)

Author:

george

Message:

• Modified: Optimized TGList.IndexOf.
• Used better compiler optimization level 3 for library.

File:

• Generics/TemplateGenerics/Generic/GenericList.inc (modified) (2 diffs)

Generics/TemplateGenerics/Generic/GenericList.inc

@@ -25 +25 @@
     procedure QuickSort(L, R : TGListIndex; Compare: TGListSortCompare);
   public
+    function CompareMem(P1, P2: Pointer; Length: cardinal): Boolean; inline;
     function Add(Item: TGListItem): TGListIndex;
     procedure AddArray(Values: array of TGListItem);
@@ -208 +209 @@
 end;
 
+function TGList.CompareMem(P1, P2: Pointer; Length: cardinal): Boolean;
+var
+  I: Cardinal;
+begin
+  Result := True;
+  I := 0;
+  if (P1) <> (P2) then
+    while Result and (I < Length) do
+    begin
+      Result := PByte(P1)^ = PByte(P2)^;
+      Inc(I);
+      Inc(pchar(P1));
+      Inc(pchar(P2));
+    end;
+end;
+
 function TGList.IndexOf(Item: TGListItem; Start: TGListIndex): TGListIndex;
 begin
   Result := Start;
   while (Result < FCount) and
-  not CompareMem(Addr(FItems[Result]), Addr(Item), SizeOf(TGListItem)) do
+  not CompareMem(@FItems[Result], @Item, SizeOf(TGListItem)) do
+//  not (CompareByte(FItems[Result], Item, SizeOf(TGListItem)) = 0) do
     Result := Result + 1;
   if Result = FCount then Result := -1;