[GExperts-CVS] gexperts/unstable/Comps GpLists.pas,1.5,1.6

[Erik B. <eb...@us...>]

Update of /cvsroot/gexperts/gexperts/unstable/Comps
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv20889/Comps

Modified Files:
	GpLists.pas 
Log Message:
Work around Delphi 8 internal compiler error

Index: GpLists.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Comps/GpLists.pas,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- GpLists.pas	19 Jan 2007 18:02:33 -0000	1.5
+++ GpLists.pas	23 Mar 2007 09:49:08 -0000	1.6
@@ -1356,7 +1356,7 @@
 
 function TGpInt64List.IndexOf(item: int64): integer;
 begin
-  if Sorted then begin         
+  if Sorted then begin
     if not Find(item, Result) then
       Result := -1
   end
@@ -1453,13 +1453,13 @@
 }
 
 type
-  PInteger64 = ^Int64; // Workaround for Delphi 6 "Internal error: URW699" below
+  PInteger64 = ^Int64; // Workaround for Delphi 6/8 "Internal error: URW699" below
 
 function TGpInt64List.Restore(baseAddr: pointer): pointer;
 var
   iList   : integer;
   numItems: integer;
-  pList   : {$IFNDEF D7PLUS} PInteger64 {$ELSE} PLargeInteger {$ENDIF};
+  pList   : PInteger64; // Workaround for Delphi 6/8 "Internal error: URW699" below
 begin
   pList := baseAddr;
   numItems := integer(pList^);
@@ -2618,3 +2618,7 @@
 
 end.
 
+
+
+
+