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/macosx/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/macosx/Wrapper/PseudoThread.pas')
-rw-r--r-- | src/macosx/Wrapper/PseudoThread.pas | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/src/macosx/Wrapper/PseudoThread.pas b/src/macosx/Wrapper/PseudoThread.pas new file mode 100644 index 00000000..16157646 --- /dev/null +++ b/src/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. + |