Browse Source

* If overflow checking enabled, disable it for hash calculation. IDE
now works fine if range checking and overflow checking are enabled.

git-svn-id: trunk@3474 -

daniel 19 years ago
parent
commit
cdde454cc4
1 changed files with 9 additions and 0 deletions
  1. 9 0
      ide/wini.pas

+ 9 - 0
ide/wini.pas

@@ -88,6 +88,11 @@ implementation
 uses
   WUtils;
 
+{$IFOPT Q+}
+  {$Q-}
+  {$DEFINE REENABLE_Q}
+{$ENDIF}
+
 function CalcHash(const s: String): Cardinal;
 var
   i: integer;
@@ -97,6 +102,10 @@ begin
     CalcHash := CalcHash shl 9 - CalcHash shl 4 + Ord(S[I]);
 end;
 
+{$IFDEF REENABLE_Q}
+  {$Q+}
+{$ENDIF}
+
 constructor TINIEntry.Init(const ALine: string);
 begin
   inherited Init;