mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 06:39:12 +02:00
LCL: fixed disabling overflow checking
git-svn-id: trunk@14257 -
This commit is contained in:
parent
496e37f1d4
commit
326f4d17aa
@ -271,7 +271,7 @@ begin
|
|||||||
Result := Len;
|
Result := Len;
|
||||||
{$IFOPT R+}{$DEFINE RangeChecking}{$ELSE}{$UNDEF RangeChecking}{$ENDIF}
|
{$IFOPT R+}{$DEFINE RangeChecking}{$ELSE}{$UNDEF RangeChecking}{$ENDIF}
|
||||||
{$IFOPT Q+}{$DEFINE OverflowChecking}{$ELSE}{$UNDEF OverflowChecking}{$ENDIF}
|
{$IFOPT Q+}{$DEFINE OverflowChecking}{$ELSE}{$UNDEF OverflowChecking}{$ENDIF}
|
||||||
{$R-}{Q-}
|
{$R-}{$Q-}
|
||||||
// use the last 30 characters to compute the hash
|
// use the last 30 characters to compute the hash
|
||||||
case fCaseSensitive of
|
case fCaseSensitive of
|
||||||
True:
|
True:
|
||||||
|
Loading…
Reference in New Issue
Block a user