aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/MacOSX/Wrapper/PseudoThread.pas
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/MacOSX/Wrapper/PseudoThread.pas34
1 files changed, 17 insertions, 17 deletions
diff --git a/Game/Code/MacOSX/Wrapper/PseudoThread.pas b/Game/Code/MacOSX/Wrapper/PseudoThread.pas
index d81a5cfe..16157646 100644
--- a/Game/Code/MacOSX/Wrapper/PseudoThread.pas
+++ b/Game/Code/MacOSX/Wrapper/PseudoThread.pas
@@ -10,19 +10,19 @@ interface
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;
- procedure Execute; virtual; abstract;
- procedure Resume;
- procedure Suspend;
- public
- constructor Create(const suspended : Boolean);
- end;
+// 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;
+ procedure Execute; virtual; abstract;
+ procedure Resume;
+ procedure Suspend;
+ public
+ constructor Create(const suspended : Boolean);
+end;
implementation
@@ -30,14 +30,14 @@ implementation
constructor TPseudoThread.Create(const suspended : Boolean);
begin
- if not suspended then begin
- Execute;
- end;
+ if not suspended then begin
+ Execute;
+ end;
end;
procedure TPseudoThread.Resume;
begin
- Execute;
+ Execute;
end;
procedure TPseudoThread.Suspend;