Mac OS X: Added PseudoThread for debugging, because debugging of threaded code causes problems with Xcode and FreePascal.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@594 b956fd51-792f-4845-bead-9b4dfca2ff2c

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.
+