From: <ou...@us...> - 2006-12-26 13:20:23
|
Revision: 1843 http://svn.sourceforge.net/jcl/?rev=1843&view=rev Author: outchy Date: 2006-12-26 05:20:20 -0800 (Tue, 26 Dec 2006) Log Message: ----------- Reworking default order of debug sources: exports has the lowest priority but will be used if the symbol source is based on exports. Modified Paths: -------------- trunk/jcl/source/windows/JclDebug.pas Modified: trunk/jcl/source/windows/JclDebug.pas =================================================================== --- trunk/jcl/source/windows/JclDebug.pas 2006-12-23 10:31:33 UTC (rev 1842) +++ trunk/jcl/source/windows/JclDebug.pas 2006-12-26 13:20:20 UTC (rev 1843) @@ -2536,12 +2536,12 @@ {$IFNDEF DEBUG_NO_MAP} InfoSourceClassList.Add(Pointer(TJclDebugInfoMap)); {$ENDIF !DEBUG_NO_MAP} + {$IFNDEF DEBUG_NO_SYMBOLS} + InfoSourceClassList.Add(Pointer(TJclDebugInfoSymbols)); + {$ENDIF !DEBUG_NO_SYMBOLS} {$IFNDEF DEBUG_NO_EXPORTS} InfoSourceClassList.Add(Pointer(TJclDebugInfoExports)); {$ENDIF !DEBUG_NO_EXPORTS} - {$IFNDEF DEBUG_NO_SYMBOLS} - InfoSourceClassList.Add(Pointer(TJclDebugInfoSymbols)); - {$ENDIF !DEBUG_NO_SYMBOLS} end; end; @@ -2951,7 +2951,7 @@ Result := Result and SymGetModuleInfoFunc(ProcessHandle, Module, ModuleInfo); end; - Result := Result and (ModuleInfo.SymType <> SymNone); + Result := Result and not (ModuleInfo.SymType in [SymNone, SymExport]); end; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |