From 0347f275d25ed260925dbe4092023dd07cedf268 Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Mon, 26 Jan 2009 23:27:06 +0000 Subject: Small editing changes. no Code change. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1577 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/macosx/PseudoThread.pas | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/macosx/PseudoThread.pas') diff --git a/src/macosx/PseudoThread.pas b/src/macosx/PseudoThread.pas index 5764395d..d74285f7 100644 --- a/src/macosx/PseudoThread.pas +++ b/src/macosx/PseudoThread.pas @@ -37,23 +37,24 @@ type // Debugging threads with XCode doesn't seem to work. // We use PseudoThread in Debug mode to get proper debugging. + TPseudoThread = class(TObject) private protected Terminated, - FreeOnTerminate : Boolean; + FreeOnTerminate: boolean; procedure Execute; virtual; abstract; procedure Resume; procedure Suspend; public - constructor Create(const suspended : Boolean); + constructor Create(const suspended : boolean); end; implementation { TPseudoThread } -constructor TPseudoThread.Create(const suspended : Boolean); +constructor TPseudoThread.Create(const suspended: boolean); begin if not suspended then begin -- cgit v1.2.3