paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-01 19:42:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed copy&paste typo

Browse Source 
git-svn-id: trunk@11228 -
This commit is contained in:
florian 2008-06-14 13:07:17 +00:00
parent 6433f8c38b
commit 2a5c3a3c14
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/softfpu.pp
View File

@ -507,7 +507,7 @@ var
roundIncrement, roundBits: int8; roundIncrement, roundBits: int8;
z: int32; z: int32;
begin begin
roundingMode := softsoftfloat_rounding_mode; roundingMode := softfloat_rounding_mode;
roundNearestEven := ord( roundingMode = float_round_nearest_even ); roundNearestEven := ord( roundingMode = float_round_nearest_even );
roundIncrement := $40; roundIncrement := $40;
if ( roundNearestEven=0 ) then if ( roundNearestEven=0 ) then