From 5f11f9f3e328f6818a42f0a3405404612399c64e Mon Sep 17 00:00:00 2001 From: tobigun Date: Sat, 30 Aug 2008 18:12:06 +0000 Subject: Removed outdated 1.1 branch contents git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.1@1331 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/MacOSX/Wrapper/PseudoThread.pas | 48 ------------------------------- 1 file changed, 48 deletions(-) delete mode 100755 Game/Code/MacOSX/Wrapper/PseudoThread.pas (limited to 'Game/Code/MacOSX/Wrapper/PseudoThread.pas') diff --git a/Game/Code/MacOSX/Wrapper/PseudoThread.pas b/Game/Code/MacOSX/Wrapper/PseudoThread.pas deleted file mode 100755 index d81a5cfe..00000000 --- a/Game/Code/MacOSX/Wrapper/PseudoThread.pas +++ /dev/null @@ -1,48 +0,0 @@ -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