From 6359441045eda155407a3f16ce5a1d2de1c89e4d Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 10 Nov 2013 10:24:54 +0000
Subject: [PATCH]   * force shl operations to be 32 bit on 16/8 bit platforms
 (patch by     Max Nazhalov, mantis #25241)

git-svn-id: trunk@26005 -
---
 rtl/inc/flt_core.inc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/inc/flt_core.inc b/rtl/inc/flt_core.inc
index 84a0d902b5..f7914f4666 100644
--- a/rtl/inc/flt_core.inc
+++ b/rtl/inc/flt_core.inc
@@ -1387,7 +1387,7 @@ begin
     if ( one_e <= - 64 ) then
     begin
         l := qword( -1 );
-        h := ( {$ifdef VALREAL_128} qword {$endif} ( 1 ) shl ( - one_e - 64 ) ) - 1;
+        h := ( {$ifdef VALREAL_128} qword {$else} dword {$endif} ( 1 ) shl ( - one_e - 64 ) ) - 1;
     end
     else
     begin
@@ -1480,7 +1480,7 @@ begin
         if plus then
         begin
           {$if defined(VALREAL_32) or defined(VALREAL_64)}
-            mask_one := ( {$ifdef VALREAL_64} qword {$endif} ( 1 ) shl ( - z.e ) ) - 1;
+            mask_one := ( {$ifdef VALREAL_64} qword {$else} dword {$endif} ( 1 ) shl ( - z.e ) ) - 1;
             round_up := ( z.f and mask_one <> 0 );
           {$else VALREAL_80 | VALREAL_128}
             make_frac_mask( mask_oneh, mask_one, z.e );