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

Fixed compilation after r43281 2nd try, some more "R"s

Browse Source 
git-svn-id: trunk@43283 -
This commit is contained in:
marcus 2019-10-21 07:51:59 +00:00
parent e833876f05
commit d90741d2f2
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/iso7185.pp
View File

@ -267,7 +267,7 @@ unit iso7185;
begin begin
if c>=0.0 then if c>=0.0 then
round:=Trunc(c+0.5) round:=Trunc(c+0.5)
else R else
round:=Trunc(c-0.5); round:=Trunc(c-0.5);
end; end;
{$else not cpujvm} {$else not cpujvm}
@ -275,7 +275,7 @@ unit iso7185;
begin begin
if c>=0.0 then if c>=0.0 then
round_comp:=Trunc(c+0.5) round_comp:=Trunc(c+0.5)
else R else
round_comp:=Trunc(c-0.5); round_comp:=Trunc(c-0.5);
end; end;
{$endif cpujvm} {$endif cpujvm}