fixed defect in workaround for RSP-31615 on Win64

Author: sglienke

Source/Base/Collections/Spring.Collections.Base.pas

@@ -116,7 +116,10 @@   TEnumerableBase = class abstract(TRefCountedObject)
 
   TEnumerableBase<T> = class abstract(TEnumerableBase)
   {$IFDEF RSP31615}
-  private type FuncInternal = reference to procedure(const arg1, arg2: T; var result);
+  private type FuncInternal = reference to procedure(
+    {$IFDEF CPUX64}var result;{$ENDIF}
+    const arg1, arg2: T
+    {$IFDEF CPUX86}; var result{$ENDIF});
   {$ENDIF}
   protected
     fComparer: IComparer<T>;
@@ -1019,7 +1022,7 @@ function TEnumerableBase<T>.Aggregate(const func: Func<T, T, T>): T;
     if IsManagedType(T) then
     begin
       IEnumeratorInternal(enumerator).GetCurrent(item);
-      FuncInternal(func)(Result, item, res);
+      FuncInternal(func)({$IFDEF CPUX64}res, {$ENDIF}Result, item{$IFDEF CPUX86}, res{$ENDIF});
       Result := res;
     end
     else