* fixed (harmless) range check errors

git-svn-id: trunk@14908 -

compiler/ninl.pas

@@ -1460,12 +1460,15 @@ implementation
                  else
                    mask:=qword(1 shl bits)-1;
               end;
+{$push}
+{$r-,q-}
               if shift=0 then
                 result:=cordconstnode.create(vl2.svalue,def,false)
               else if vl2.svalue<0 then
                 result:=cordconstnode.create(((vl2.svalue shr shift) or (mask shl (bits-shift))) and mask,def,false)
               else
                 result:=cordconstnode.create((vl2.svalue shr shift) and mask,def,false);
+{$pop}
             end
           else
         end;