@@ -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+}
constructor TINIEntry.Init(const ALine: string);
begin
inherited Init;