← Back to branch summary

~ubuntu-branches/ubuntu/feisty/fpc/feisty

« back to all changes in this revision

Viewing changes to fcl/inc/syncobh.inc

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-01-27 20:08:50 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070127200850-9mrptaqqjsx9nwa7
Tags: 2.0.4-5
* Fixed Build-Depends.
* Add myself to Uploaders in debian/control.
* Make sure that the sources are really patched before building them.
* Build unit 'libc' on powerpc too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
fcl/inc/syncobh.inc
1
1
{
2
 
    $Id: syncobh.inc,v 1.7 2005/02/14 17:13:15 peter Exp $
3
2
    This file is part of the Free Component Library (FCL)
4
3
    Copyright (c) 1999-2000 by Florian Klaempfl
5
4
    member of the Free Pascal development team
16
15
type
17
16
   TWaitResult = (wrSignaled, wrTimeout, wrAbandoned, wrError);
18
17
 
19
 
   TSyncroObject = class(TObject)
20
 
      procedure Acquire;virtual;abstract;
21
 
      procedure Release;virtual;abstract;
 
18
   TSynchroObject = class(TObject)
 
19
      procedure Acquire;virtual;
 
20
      procedure Release;virtual;
22
21
   end;
23
22
 
24
 
   TCriticalSection = class(TSyncroObject)
 
23
   TCriticalSection = class(TSynchroObject)
25
24
   private
26
25
      CriticalSection : TRTLCriticalSection;
27
26
   public
33
32
      destructor Destroy;override;
34
33
   end;
35
34
 
36
 
   THandleObject = class(TSyncroObject)
 
35
   THandleObject = class(TSynchroObject)
37
36
   protected
38
37
      FHandle : TEventHandle;
39
38
      FLastError : Integer;
63
62
   TSimpleEvent = class(TEventObject)
64
63
      constructor Create;
65
64
   end;
66
 
 
67
 
{
68
 
  $Log: syncobh.inc,v $
69
 
  Revision 1.7  2005/02/14 17:13:15  peter
70
 
    * truncate log
71
 
 
72
 
}