--- Merging r14993 into '.':

U    rtl/inc/softfpu.pp

# revisions: 14993
------------------------------------------------------------------------
r14993 | pierre | 2010-03-08 09:00:56 +0100 (Mon, 08 Mar 2010) | 1 line
Changed paths:
   M /trunk/rtl/inc/softfpu.pp

 * shift128right last parameter should also by var type
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@17677 -

rtl/inc/softfpu.pp

@@ -648,7 +648,7 @@ End;
 | which are stored at the locations pointed to by `z0Ptr' and `z1Ptr'.
 *----------------------------------------------------------------------------*}
 
-procedure shift128Right(a0: bits64; a1: bits64; count: int16; var z0Ptr: bits64; z1Ptr : bits64);
+procedure shift128Right(a0: bits64; a1: bits64; count: int16; var z0Ptr: bits64; var z1Ptr : bits64);
 var
     z0, z1: bits64;
     negCount: int8;