From: <ou...@us...> - 2011-06-13 15:11:46
|
Revision: 3536 http://jcl.svn.sourceforge.net/jcl/?rev=3536&view=rev Author: outchy Date: 2011-06-13 15:11:39 +0000 (Mon, 13 Jun 2011) Log Message: ----------- Mantis 5576: TJCLDebugThread is always started with Delphi 2010 Modified Paths: -------------- trunk/jcl/source/windows/JclDebug.pas Modified: trunk/jcl/source/windows/JclDebug.pas =================================================================== --- trunk/jcl/source/windows/JclDebug.pas 2011-06-12 01:48:54 UTC (rev 3535) +++ trunk/jcl/source/windows/JclDebug.pas 2011-06-13 15:11:39 UTC (rev 3536) @@ -34,7 +34,7 @@ { } {**************************************************************************************************} { } -{ Last modified: $Date:: $ } +{ Last modified: $Date:: $ } { Revision: $Rev:: $ } { Author: $Author:: $ } { } @@ -5743,12 +5743,12 @@ FThreadName := AThreadName; inherited Create(True); JclDebugThreadList.RegisterThread(Self, AThreadName); - {$IFDEF RTL210_UP} - Suspended := False; - {$ELSE ~RTL210_UP} if not ASuspended then + {$IFDEF RTL210_UP} + Suspended := False; + {$ELSE ~RTL210_UP} Resume; - {$ENDIF ~RTL210_UP} + {$ENDIF ~RTL210_UP} end; destructor TJclDebugThread.Destroy; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |