aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/macosx/PseudoThread.pas7
1 files changed, 4 insertions, 3 deletions
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