paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 09:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* force shl operations to be 32 bit on 16/8 bit platforms (patch by

Browse Source 
Max Nazhalov, mantis #25241)

git-svn-id: trunk@26005 -
This commit is contained in:
Jonas Maebe 2013-11-10 10:24:54 +00:00
parent a0f0d0de40
commit 6359441045
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/flt_core.inc
View File

@ -1387,7 +1387,7 @@ begin
if ( one_e <= - 64 ) then if ( one_e <= - 64 ) then
begin begin
l := qword( -1 ); 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 end
else else
begin begin
@ -1480,7 +1480,7 @@ begin
if plus then if plus then
begin begin
{$if defined(VALREAL_32) or defined(VALREAL_64)} {$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 ); round_up := ( z.f and mask_one <> 0 );
{$else VALREAL_80 | VALREAL_128} {$else VALREAL_80 | VALREAL_128}
make_frac_mask( mask_oneh, mask_one, z.e ); make_frac_mask( mask_oneh, mask_one, z.e );