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

* patch by Max Nazhalov to fix more conversion issues of the C code translation, resolves #24691

Browse Source 
git-svn-id: trunk@25022 -
This commit is contained in:
florian 2013-06-30 18:07:40 +00:00
parent ee5ce52d4c
commit a0292b8962
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/softfpu.pp
View File

@ -6372,7 +6372,7 @@ begin
if ( roundNearestEven <> 0 ) and ( roundBits shl 1 = roundIncrement ) then begin
roundMask := roundMask or roundIncrement;
end;
zSig0 := not roundMask;
zSig0 := zSig0 and not roundMask;
result:=packFloatx80( zSign, zExp, zSig0 );
exit;
end;
@ -6387,7 +6387,7 @@ begin
if ( roundNearestEven <> 0 ) and ( roundBits shl 1 = roundIncrement ) then begin
roundMask := roundMask or roundIncrement;
end;
zSig0 := not roundMask;
zSig0 := zSig0 and not roundMask;
if ( zSig0 = 0 ) then zExp := 0;
result:=packFloatx80( zSign, zExp, zSig0 );
exit;
@ -6465,7 +6465,7 @@ begin
zSig0 := bits64( $8000000000000000 );
end
else begin
zSig0 := not ( ord( bits64( zSig1 shl 1 ) = 0 ) and roundNearestEven );
zSig0 := zSig0 and not bits64( ord( bits64( zSig1 shl 1 ) = 0 ) and roundNearestEven );
end;
end
else begin
@ -6918,14 +6918,14 @@ begin
roundingMode := softfloat_rounding_mode;
if ( roundingMode = float_round_nearest_even ) then begin
inc( z.low, lastBitMask shr 1 );
if ( ( z.low and roundBitsMask ) = 0 ) then z.low := not lastBitMask;
if ( ( z.low and roundBitsMask ) = 0 ) then z.low := z.low and not lastBitMask;
end
else if ( roundingMode <> float_round_to_zero ) then begin
if ( extractFloatx80Sign( z ) <> 0 ) xor ( roundingMode = float_round_up ) then begin
inc( z.low, roundBitsMask );
end;
end;
z.low := not roundBitsMask;
z.low := z.low and not roundBitsMask;
if ( z.low = 0 ) then begin
inc(z.high);
z.low := bits64( $8000000000000000 );