aboutsummaryrefslogtreecommitdiffstats
path: root/src/macosx/Wrapper/PseudoThread.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/macosx/Wrapper/PseudoThread.pas')
-rw-r--r--src/macosx/Wrapper/PseudoThread.pas48
1 files changed, 0 insertions, 48 deletions
diff --git a/src/macosx/Wrapper/PseudoThread.pas b/src/macosx/Wrapper/PseudoThread.pas
deleted file mode 100644
index 16157646..00000000
--- a/src/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.
-