Преглед изворни кода

Fixed compilation after r43281

git-svn-id: trunk@43282 -
marcus пре 6 година
родитељ
комит
e833876f05
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      rtl/inc/iso7185.pp

+ 1 - 1
rtl/inc/iso7185.pp

@@ -256,7 +256,7 @@ unit iso7185;
       begin
         if c>=0.0 then
           Round:=Trunc(c+0.5)
-        else R
+        else
           Round:=Trunc(c-0.5);
       end;
 {$endif FPUNONE}