From: <ou...@us...> - 2010-08-12 12:13:26
|
Revision: 3307 http://jcl.svn.sourceforge.net/jcl/?rev=3307&view=rev Author: outchy Date: 2010-08-12 12:13:20 +0000 (Thu, 12 Aug 2010) Log Message: ----------- Mantis 5282: ExceptDlg does not work if app is compiled with package vcl and bounds-checking on (with solution). Disable some numerical checks in ReadHexValue. Modified Paths: -------------- trunk/jcl/source/windows/JclDebug.pas Modified: trunk/jcl/source/windows/JclDebug.pas =================================================================== --- trunk/jcl/source/windows/JclDebug.pas 2010-08-12 11:53:27 UTC (rev 3306) +++ trunk/jcl/source/windows/JclDebug.pas 2010-08-12 12:13:20 UTC (rev 3307) @@ -1416,20 +1416,11 @@ C := Char(CurrPos^); case C of '0'..'9': - begin - Result := Result * 16; - Inc(Result, Ord(C) - Ord('0')); - end; + Result := (Result shl 4) or (Ord(C) - Ord('0')); 'A'..'F': - begin - Result := Result * 16; - Inc(Result, Ord(C) - Ord('A') + 10); - end; + Result := (Result shl 4) or (Ord(C) - Ord('A') + 10); 'a'..'f': - begin - Result := Result * 16; - Inc(Result, Ord(C) - Ord('a') + 10); - end; + Result := (Result shl 4) or (Ord(C) - Ord('a') + 10); 'H', 'h': begin Inc(CurrPos); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |