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

* softfpu.pp: clean up.

Browse Source 
git-svn-id: trunk@27283 -
This commit is contained in:
sergei 2014-03-25 14:45:41 +00:00
parent 14ee9d52aa
commit 5c1f404631
1 changed files with 2 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/inc/softfpu.pp
View File

@ -1692,18 +1692,6 @@ End;
{*
-------------------------------------------------------------------------------
Returns 1 if the 64-bit value formed by concatenating `a0' and `a1' is
equal to the 64-bit value formed by concatenating `b0' and `b1'. Otherwise,
returns 0.
-------------------------------------------------------------------------------
*}
Function eq64( a0: bits32; a1:bits32 ;b0:bits32; b1:bits32 ): flag;
Begin
eq64 := flag( a0 = b0 ) and flag( a1 = b1 );
End;
{* {*
------------------------------------------------------------------------------- -------------------------------------------------------------------------------
Returns 1 if the 64-bit value formed by concatenating `a0' and `a1' is less Returns 1 if the 64-bit value formed by concatenating `a0' and `a1' is less
@ -1730,18 +1718,6 @@ Begin
lt64 := flag( a0 < b0 ) or flag( ( a0 = b0 ) and ( a1 < b1 ) ); lt64 := flag( a0 < b0 ) or flag( ( a0 = b0 ) and ( a1 < b1 ) );
End; End;
{*
-------------------------------------------------------------------------------
Returns 1 if the 64-bit value formed by concatenating `a0' and `a1' is not
equal to the 64-bit value formed by concatenating `b0' and `b1'. Otherwise,
returns 0.
-------------------------------------------------------------------------------
*}
Function ne64( a0: bits32; a1:bits32 ;b0:bits32; b1:bits32 ): flag;
Begin
ne64:= flag( a0 <> b0 ) or flag( a1 <> b1 );
End;
const const
float128_default_nan_high = qword($FFFFFFFFFFFFFFFF); float128_default_nan_high = qword($FFFFFFFFFFFFFFFF);
float128_default_nan_low = qword($FFFFFFFFFFFFFFFF); float128_default_nan_low = qword($FFFFFFFFFFFFFFFF);
@ -2724,7 +2700,7 @@ Procedure
Begin Begin
if (( $7FD < zExp ) if (( $7FD < zExp )
or (( zExp = $7FD ) or (( zExp = $7FD )
and (eq64( $001FFFFF, $FFFFFFFF, zSig0, zSig1 )<>0) and (zSig0=$001FFFFF) and (zSig1=$FFFFFFFF)
and (increment<>0) and (increment<>0)
) )
) then ) then