* Avoid Range checks in CalcHash

git-svn-id: trunk@14772 -

ide/wini.pas

@@ -92,6 +92,10 @@ uses
   {$Q-}
   {$DEFINE REENABLE_Q}
 {$ENDIF}
+{$IFOPT R+}
+  {$R-}
+  {$DEFINE REENABLE_R}
+{$ENDIF}
 
 function CalcHash(const s: String): Cardinal;
 var
@@ -105,6 +109,9 @@ end;
 {$IFDEF REENABLE_Q}
   {$Q+}
 {$ENDIF}
+{$IFDEF REENABLE_R}
+  {$R+}
+{$ENDIF}
 
 constructor TINIEntry.Init(const ALine: string);
 begin