← Back to branch summary

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

« back to all changes in this revision

Viewing changes to rtl/objpas/sysutils/systhrdh.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:
rtl/objpas/sysutils/systhrdh.inc
 
1
{
 
2
    $Id: systhrdh.inc,v 1.2 2004/03/05 12:17:50 marco Exp $
 
3
    This file is part of the Free Pascal run time library.
 
4
    Copyright (c) 1999-2001 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
{$ifdef HASINTF}
 
16
 
 
17
type
 
18
   IReadWriteSync = interface
 
19
      procedure BeginRead;
 
20
      procedure EndRead;
 
21
      procedure BeginWrite;
 
22
      procedure EndWrite;
 
23
   end;
 
24
 
 
25
{$endif HASINTF}
 
26
 
 
27
function InterLockedIncrement (var Target: longint) : longint;
 
28
function InterLockedDecrement (var Target: longint) : longint;
 
29
function InterLockedExchange (var Target: longint;Source : longint) : longint;
 
30
function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint;
 
31
 
 
32
{
 
33
  $Log: systhrdh.inc,v $
 
34
  Revision 1.2  2004/03/05 12:17:50  marco
 
35
   * interlocked* changed to longints, including winapi. (which was a bug)
 
36
 
 
37
  Revision 1.1  2003/10/06 21:01:06  peter
 
38
    * moved classes unit to rtl
 
39
 
 
40
  Revision 1.3  2002/09/07 16:01:22  peter
 
41
    * old logs removed and tabs fixed
 
42
 
 
43
}