1 files changed, 48 insertions, 0 deletions
diff --git a/Game/Code/MacOSX/Wrapper/PseudoThread.pas b/Game/Code/MacOSX/Wrapper/PseudoThread.pas
new file mode 100755
index 00000000..d81a5cfe
--- /dev/null
+++ b/Game/Code/MacOSX/Wrapper/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.
+