From: <ou...@us...> - 2006-05-18 22:41:36
|
Revision: 1659 Author: outchy Date: 2006-05-18 15:41:27 -0700 (Thu, 18 May 2006) ViewCVS: http://svn.sourceforge.net/jcl/?rev=1659&view=rev Log Message: ----------- Access violation fix Modified Paths: -------------- trunk/jcl/source/windows/JclDebug.pas Modified: trunk/jcl/source/windows/JclDebug.pas =================================================================== --- trunk/jcl/source/windows/JclDebug.pas 2006-05-18 16:04:47 UTC (rev 1658) +++ trunk/jcl/source/windows/JclDebug.pas 2006-05-18 22:41:27 UTC (rev 1659) @@ -355,9 +355,13 @@ protected function CreateDebugInfo(const Module: HMODULE): TJclDebugInfoSource; public - class procedure RegisterDebugInfoSource(const InfoSourceClass: TJclDebugInfoSourceClass); - class procedure UnRegisterDebugInfoSource(const InfoSourceClass: TJclDebugInfoSourceClass); - class procedure NeedInfoSourceClassList; + class procedure RegisterDebugInfoSource( + const InfoSourceClass: TJclDebugInfoSourceClass); + class procedure UnRegisterDebugInfoSource( + const InfoSourceClass: TJclDebugInfoSourceClass); + class procedure RegisterDebugInfoSourceFirst( + const InfoSourceClass: TJclDebugInfoSourceClass); + class procedure NeedInfoSourceClassList; function GetLocationInfo(const Addr: Pointer; var Info: TJclLocationInfo): Boolean; property ItemFromModule[const Module: HMODULE]: TJclDebugInfoSource read GetItemFromModule; property Items[Index: Integer]: TJclDebugInfoSource read GetItems; @@ -2423,7 +2427,7 @@ var I: Integer; begin - NeedDebugInfoList; + NeedInfoSourceClassList; for I := 0 to InfoSourceClassList.Count - 1 do begin @@ -2510,6 +2514,14 @@ InfoSourceClassList.Add(Pointer(InfoSourceClass)); end; +class procedure TJclDebugInfoList.RegisterDebugInfoSourceFirst( + const InfoSourceClass: TJclDebugInfoSourceClass); +begin + NeedInfoSourceClassList; + + InfoSourceClassList.Insert(0, Pointer(InfoSourceClass)); +end; + class procedure TJclDebugInfoList.UnRegisterDebugInfoSource( const InfoSourceClass: TJclDebugInfoSourceClass); begin This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |