← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to fcl/beos/thread.inc

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2004-08-12 16:29:37 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040812162937-moo8ulvysp1ln771
Tags: 1.9.4-5
http://bugs.debian.org/265265
fp-compiler: needs ld, adding dependency on binutils.  (Closes: #265265)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fcl/beos/thread.inc
 
1
{
 
2
    $Id: thread.inc,v 1.3 2002/09/07 15:15:22 peter Exp $
 
3
    This file is part of the Free Component Library (FCL)
 
4
    Copyright (c) 1999-2000 by the Free Pascal development team
 
5
 
 
6
    See the file COPYING.FPC, included in this distribution,
 
7
    for details about the copyright.
 
8
 
 
9
    This program is distributed in the hope that it will be useful,
 
10
    but WITHOUT ANY WARRANTY; without even the implied warranty of
 
11
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
12
 
 
13
 **********************************************************************}
 
14
{****************************************************************************}
 
15
{*                             TThread                                      *}
 
16
{****************************************************************************}
 
17
 
 
18
 
 
19
procedure TThread.CallOnTerminate;
 
20
 
 
21
begin
 
22
end;
 
23
 
 
24
 
 
25
function TThread.GetPriority: TThreadPriority;
 
26
 
 
27
begin
 
28
  GetPriority:=tpNormal;
 
29
end;
 
30
 
 
31
 
 
32
procedure TThread.SetPriority(Value: TThreadPriority);
 
33
 
 
34
begin
 
35
end;
 
36
 
 
37
 
 
38
procedure TThread.SetSuspended(Value: Boolean);
 
39
 
 
40
begin
 
41
end;
 
42
 
 
43
 
 
44
procedure TThread.DoTerminate;
 
45
 
 
46
begin
 
47
end;
 
48
 
 
49
 
 
50
procedure TThread.Synchronize(Method: TThreadMethod);
 
51
 
 
52
begin
 
53
end;
 
54
 
 
55
 
 
56
constructor TThread.Create(CreateSuspended: Boolean);
 
57
 
 
58
begin
 
59
 { IsMultiThread := TRUE; }
 
60
end;
 
61
 
 
62
 
 
63
destructor TThread.Destroy;
 
64
 
 
65
begin
 
66
end;
 
67
 
 
68
 
 
69
procedure TThread.Resume;
 
70
 
 
71
begin
 
72
end;
 
73
 
 
74
 
 
75
procedure TThread.Suspend;
 
76
 
 
77
begin
 
78
end;
 
79
 
 
80
 
 
81
procedure TThread.Terminate;
 
82
 
 
83
begin
 
84
end;
 
85
 
 
86
 
 
87
function TThread.WaitFor: Integer;
 
88
 
 
89
begin
 
90
  WaitFor:=0;
 
91
end;
 
92
 
 
93
 
 
94
{
 
95
  $Log: thread.inc,v $
 
96
  Revision 1.3  2002/09/07 15:15:22  peter
 
97
    * old logs removed and tabs fixed
 
98
 
 
99
}