[Jcl-checkins-diff] SF.net SVN: jcl: [1936] trunk/jcl/source/windows/JclDebug.pas

[<ah...@us...>]

Revision: 1936
          http://svn.sourceforge.net/jcl/?rev=1936&view=rev
Author:   ahuser
Date:     2007-02-15 16:34:14 -0800 (Thu, 15 Feb 2007)

Log Message:
-----------
Fixed access violation by IsBadReadPtr.

Modified Paths:
--------------
    trunk/jcl/source/windows/JclDebug.pas

Modified: trunk/jcl/source/windows/JclDebug.pas
===================================================================
--- trunk/jcl/source/windows/JclDebug.pas	2007-02-15 22:12:47 UTC (rev 1935)
+++ trunk/jcl/source/windows/JclDebug.pas	2007-02-16 00:34:14 UTC (rev 1936)
@@ -4178,7 +4178,7 @@
   // First check that the address is within range of our code segment!
   C8P := PDWORD(CodeAddr - 8);
   C4P := PDWORD(CodeAddr - 4);
-  Result := (CodeAddr > 8) and not IsBadReadPtr(C8P, 8) and ValidCodeAddr(DWORD(C8P), FModuleInfoList);
+  Result := (CodeAddr > 8) and ValidCodeAddr(DWORD(C8P), FModuleInfoList) and not IsBadReadPtr(C8P, 8);
 
   // Now check to see if the instruction preceding the return address
   // could be a valid CALL instruction


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.