From e2cdf68acd4bfb5afafba488845f22b126213c88 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 27 Aug 2008 20:41:40 +0000
Subject: Content of macosx/Wrapper moved to macosx. Wrapper deleted

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1325 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/macosx/PseudoThread.pas | 48 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 src/macosx/PseudoThread.pas

(limited to 'src/macosx/PseudoThread.pas')

diff --git a/src/macosx/PseudoThread.pas b/src/macosx/PseudoThread.pas
new file mode 100644
index 00000000..16157646
--- /dev/null
+++ b/src/macosx/PseudoThread.pas
@@ -0,0 +1,48 @@
+unit PseudoThread;
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+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;
+
+implementation
+
+{ TPseudoThread }
+
+constructor TPseudoThread.Create(const suspended : Boolean);
+begin
+  if not suspended then begin
+    Execute;
+  end;
+end;
+
+procedure TPseudoThread.Resume;
+begin
+  Execute;
+end;
+
+procedure TPseudoThread.Suspend;
+begin
+end;
+
+end.
+ 
-- 
cgit v1.2.3