瀏覽代碼

* fixed compilation in case overflow checking is enabled, but range
checking isn't

git-svn-id: trunk@14502 -

Jonas Maebe 15 年之前
父節點
當前提交
58c7c2f636
共有 1 個文件被更改,包括 4 次插入2 次删除
  1. 4 2
      compiler/htypechk.pas

+ 4 - 2
compiler/htypechk.pas

@@ -2118,9 +2118,11 @@ implementation
                    { Give wrong sign a small penalty, this is need to get a diffrence
                      from word->[longword,longint] }
                    if is_signed(def_from)<>is_signed(def_to) then
-                   {$ifopt r+}{$define ena_rq}{$q-}{$r-}{$endif}
+{$push}
+{$r-}
+{$q-}
                      hp^.ordinal_distance:=nextafter(hp^.ordinal_distance,inf);
-                   {$ifdef ena_rq}{$r+}{$q+}{$endif}
+{$pop}
                  end
               else
               { for value and const parameters check precision of real, give