Merged revisions 7699,7713,7779 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

........
  r7699 | florian | 2007-06-17 12:47:05 +0300 (Вс, 17 июн 2007) | 2 lines
  
  * fixed copying of remaining elements
........
  r7713 | jonas | 2007-06-17 18:07:52 +0300 (Вс, 17 июн 2007) | 2 lines
  
    * fix for fpc_copy on 64 bit systems from Florian
........
  r7779 | florian | 2007-06-23 12:16:21 +0300 (Сб, 23 июн 2007) | 2 lines
  
  * comment fixed
........

git-svn-id: branches/fixes_2_2@7862 -

rtl/inc/rtti.inc

@@ -148,7 +148,7 @@ begin
   case PByte(TypeInfo)^ of
     tkAstring :
       begin
-       fpc_AnsiStr_Decr_Ref(PPointer(Data)^);
+        fpc_AnsiStr_Decr_Ref(PPointer(Data)^);
         PPointer(Data)^:=nil;
       end;
     tkWstring :
@@ -255,9 +255,11 @@ begin
         namelen:=Temp^;
         inc(temp,namelen+1);
         temp:=aligntoptr(temp);
+
         { Element size }
         size:=PSizeInt(Temp)^;
         inc(Temp,sizeof(Size));
+
         { Element count }
         Count:=PSizeInt(Temp)^;
         inc(Temp,sizeof(Count));
@@ -278,14 +280,14 @@ begin
         inc(temp,namelen+1);
         temp:=aligntoptr(temp);
 
-        { copy data }
         Result:=plongint(temp)^;
 
         { Skip size }
         inc(Temp,4);
+
         { Element count }
         Count:=PLongint(Temp)^;
-        inc(Temp,sizeof(Count));
+        inc(Temp,sizeof(longint));
         expectedoffset:=0;
         { Process elements with rtti }
         for i:=1 to count Do
@@ -295,10 +297,13 @@ begin
             Offset:=PLongint(Temp)^;
             if Offset>expectedoffset then
               move((Src+expectedoffset)^,(Dest+expectedoffset)^,Offset-expectedoffset);
-            inc(Temp,sizeof(Offset));
+            inc(Temp,sizeof(longint));
             copiedsize:=fpc_Copy_internal(Src+Offset,Dest+Offset,Info);
             expectedoffset:=Offset+copiedsize;
           end;
+        { elements remaining? }
+        if result>expectedoffset then
+          move((Src+expectedoffset)^,(Dest+expectedoffset)^,Result-expectedoffset);
       end;
     tkDynArray:
       begin