Reenable asm packarray for fpc > 3.1. Recent fpc now have the same behavior as delphi

Author: blikblum

Source/VTConfig.inc

@@ -44,7 +44,7 @@
 {$ifdef Windows}
   {$define EnableThreadSupport}
 {$endif}
-{$if (FPC_FULLVERSION >= 30100) or defined(CPU64) or defined(LCLCarbon)}
+{$if defined(CPU64) or defined(LCLCarbon)}
   {$define PACKARRAYPASCAL}
 {$endif}
 

Source/VirtualTrees.pas

@@ -13794,8 +13794,12 @@ function TBaseVirtualTree.PackArray(TheArray: TNodeArray; Count: Integer): Integ
         PUSH    EBX
         PUSH    EDI
         PUSH    ESI
-        MOV     ECX, EDX               //fpc: count is in EDX. Move to ECX
-        MOV     ESI, [EBP+8]           //fpc: TheArray is in EBP+8
+        {$if FPC_FULLVERSION >= 30100}
+        MOV     ESI, EDX
+        {$else}
+        MOV     ECX, EDX               //fpc < 3.1: count is in EDX. Move to ECX
+        MOV     ESI, [EBP+8]           //fpc < 3.1: TheArray is in EBP+8
+        {$endif}
         MOV     EDX, -1
         JCXZ    @@Finish               // Empty list?
         INC     EDX                    // init remaining entries counter