From dad4079e0c9ff8f39e4d8518e3923b35d2a09ec9 Mon Sep 17 00:00:00 2001
From: masta <masta@idefix.freepascal.org>
Date: Sun, 18 Aug 2013 21:12:53 +0000
Subject: [PATCH] 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 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/softfpu.pp b/rtl/inc/softfpu.pp
index e4c9a9d6f1..179292565a 100644
--- a/rtl/inc/softfpu.pp
+++ b/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;