* fixed range check errors

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13736 3ad0048d-3df7-0310-abae-a5850022a9f2

2 files changed, 7 insertions, 1 deletions

diff --git a/packages/fcl-base/src/ascii85.pp b/packages/fcl-base/src/ascii85.pp
index 7aa68482a0..4099b6a85e 100644
--- a/packages/fcl-base/src/ascii85.pp
+++ b/packages/fcl-base/src/ascii85.pp
@@ -76,8 +76,8 @@ type
   TASCII85EncoderStream = class(TOwnerStream)
   private
     FPos,
-    FCount,
     FTuple : Cardinal;
+    FCount,
     FWidth : Integer;
     FBoundary : Boolean;
   protected  
diff --git a/packages/fcl-xml/src/xpath.pp b/packages/fcl-xml/src/xpath.pp
index a41b9dbc28..cdb6e66e4a 100644
--- a/packages/fcl-xml/src/xpath.pp
+++ b/packages/fcl-xml/src/xpath.pp
@@ -523,8 +523,11 @@ var
   Code: Integer;
 begin
   Val(s, Result, Code);
+{$push}
+{$r-}
   if Code <> 0 then
     Result := NaN;
+{$pop}
 end;
 
 procedure TranslateWideString(var S: DOMString; const SrcPat, DstPat: DOMString);
@@ -758,7 +761,10 @@ begin
         opDivide:
           NumberResult := Op1 / Op2;
         opMod: if IsNan(Op1) or IsNan(Op2) then
+{$push}
+{$r-}
           NumberResult := NaN
+{$pop}
         else
           NumberResult := Trunc(Op1) mod Trunc(Op2);
       end;