paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-31 09:22:38 +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;
z: int32;
begin
roundingMode := softsoftfloat_rounding_mode;
roundingMode := softfloat_rounding_mode;
roundNearestEven := ord( roundingMode = float_round_nearest_even );
roundIncrement := $40;
if ( roundNearestEven=0 ) then