paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 02:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fixed disabling overflow checking

Browse Source 
git-svn-id: trunk@14257 -
This commit is contained in:
mattias 2008-02-26 12:17:11 +00:00
parent 496e37f1d4
commit 326f4d17aa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/stringhashlist.pas
View File

@ -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: