Fix shift128Right in rtl/inc/softfpu.pp

The old code would always return 0 if the shiftamount was more than 63.

git-svn-id: trunk@25291 -

rtl/inc/softfpu.pp

@@ -762,7 +762,7 @@ begin
     end
     else
     begin
-         if ( count < 64 ) then
+         if ( count < 128 ) then
           z1 := a0 shr ( count and 63 )
         else
           z1 := 0;