aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/MacOSX/Wrapper/PseudoThread.pas
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-07-16 10:08:28 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2008-07-16 10:08:28 +0000
commit18a3ef60ba3c2ef8bd3f842c5b7e70cdf5a9c5c3 (patch)
tree8cb70a3a29cf3541cea58ba923e3c6ebb10cdcde /Game/Code/MacOSX/Wrapper/PseudoThread.pas
parent4dd9427bd27321e5ac8e9bff9a677f527294ac97 (diff)
downloadusdx-18a3ef60ba3c2ef8bd3f842c5b7e70cdf5a9c5c3.tar.gz
usdx-18a3ef60ba3c2ef8bd3f842c5b7e70cdf5a9c5c3.tar.xz
usdx-18a3ef60ba3c2ef8bd3f842c5b7e70cdf5a9c5c3.zip
removed outdated files
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1202 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code/MacOSX/Wrapper/PseudoThread.pas')
-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;