From d90741d2f2a743f9ea98b2f13b20d3d2f6869a6b Mon Sep 17 00:00:00 2001
From: marcus <marcus@idefix.freepascal.org>
Date: Mon, 21 Oct 2019 07:51:59 +0000
Subject: [PATCH] Fixed compilation after r43281 2nd try, some more "R"s
git-svn-id: trunk@43283 -
---
rtl/inc/iso7185.pp | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/rtl/inc/iso7185.pp b/rtl/inc/iso7185.pp
index ed9658c575..d51b4b2bd1 100644
--- a/rtl/inc/iso7185.pp
+++ b/rtl/inc/iso7185.pp
@@ -267,7 +267,7 @@ unit iso7185;
begin
if c>=0.0 then
round:=Trunc(c+0.5)
- else R
+ else
round:=Trunc(c-0.5);
end;
{$else not cpujvm}
@@ -275,7 +275,7 @@ unit iso7185;
begin
if c>=0.0 then
round_comp:=Trunc(c+0.5)
- else R
+ else
round_comp:=Trunc(c-0.5);
end;
{$endif cpujvm}