diff options
| author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-27 15:04:56 +0000 |
|---|---|---|
| committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2008-08-27 15:04:56 +0000 |
| commit | 50d173a828e75d2b8bc439c8b65bc8bb1127fe48 (patch) | |
| tree | 2a8b1b9a0b14e2cbd94f379dc27e21d7c6aa8fb3 /src/macosx0/Wrapper/PseudoThread.pas | |
| parent | 53987e26a9a9cff05259fa2c9c21da10d650bc27 (diff) | |
| download | usdx-50d173a828e75d2b8bc439c8b65bc8bb1127fe48.tar.gz usdx-50d173a828e75d2b8bc439c8b65bc8bb1127fe48.tar.xz usdx-50d173a828e75d2b8bc439c8b65bc8bb1127fe48.zip | |
rename MacOSX part2
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1313 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'src/macosx0/Wrapper/PseudoThread.pas')
| -rw-r--r-- | src/macosx0/Wrapper/PseudoThread.pas | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/src/macosx0/Wrapper/PseudoThread.pas b/src/macosx0/Wrapper/PseudoThread.pas deleted file mode 100644 index 16157646..00000000 --- a/src/macosx0/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. - |