Fix a int64<->single conversion failure exposed in test/units/softfpu/sfttst.pp

git-svn-id: trunk@24864 -

rtl/inc/softfpu.pp

@@ -5367,8 +5367,8 @@ Begin
           begin
             intval.low := int64rec(AbsA).low;
             intval.high := int64rec(AbsA).high;
-            shift64RightJamming( intval.low, intval.high, - shiftCount,
-               intval.low, intval.high);
+            shift64RightJamming( intval.high, intval.low, - shiftCount,
+               intval.high, intval.low);
             int64rec(absA).low := intval.low;
             int64rec(absA).high := intval.high;
           end
@@ -5411,8 +5411,8 @@ Begin
           begin
             intval.low := int64rec(AbsA).low;
             intval.high := int64rec(AbsA).high;
-            shift64RightJamming( intval.low, intval.high, - shiftCount,
-               intval.low, intval.high);
+            shift64RightJamming( intval.high, intval.low, - shiftCount,
+               intval.high, intval.low);
             int64rec(absA).low := intval.low;
             int64rec(absA).high := intval.high;
           end