From: <ou...@us...> - 2010-08-12 10:52:39
|
Revision: 3304 http://jcl.svn.sourceforge.net/jcl/?rev=3304&view=rev Author: outchy Date: 2010-08-12 10:52:33 +0000 (Thu, 12 Aug 2010) Log Message: ----------- JclDebug.TJclMapScanner.MAPAddrToVA returns an invalid VA for the first module chunk (usually System.pas). Modified Paths: -------------- trunk/jcl/source/windows/JclDebug.pas Modified: trunk/jcl/source/windows/JclDebug.pas =================================================================== --- trunk/jcl/source/windows/JclDebug.pas 2010-08-12 10:33:40 UTC (rev 3303) +++ trunk/jcl/source/windows/JclDebug.pas 2010-08-12 10:52:33 UTC (rev 3304) @@ -1664,7 +1664,7 @@ // only one segment of code // after Delphi 2005: segments started at code base address (module base address + $10000) // 2 segments of code - if (Length(FSegmentClasses) > 0) and (FSegmentClasses[0].Start > 0) and (Addr > FSegmentClasses[0].Start) then + if (Length(FSegmentClasses) > 0) and (FSegmentClasses[0].Start > 0) and (Addr >= FSegmentClasses[0].Start) then // Delphi 2005 and later // The first segment should be code starting at module base address + $10000 Result := Addr - FSegmentClasses[0].Start This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |