| 12345678910111213141516171819202122232425262728293031323334353637383940414243 |
- {
- $Id$
- This file is part of the Free Pascal run time library.
- Copyright (c) 1999-2001 by the Free Pascal development team
- See the file COPYING.FPC, included in this distribution,
- for details about the copyright.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
- **********************************************************************}
- {$ifdef HASINTF}
- type
- IReadWriteSync = interface
- procedure BeginRead;
- procedure EndRead;
- procedure BeginWrite;
- procedure EndWrite;
- end;
- {$endif HASINTF}
- function InterLockedIncrement (var Target: longint) : longint;
- function InterLockedDecrement (var Target: longint) : longint;
- function InterLockedExchange (var Target: longint;Source : longint) : longint;
- function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint;
- {
- $Log$
- Revision 1.2 2004-03-05 12:17:50 marco
- * interlocked* changed to longints, including winapi. (which was a bug)
- Revision 1.1 2003/10/06 21:01:06 peter
- * moved classes unit to rtl
- Revision 1.3 2002/09/07 16:01:22 peter
- * old logs removed and tabs fixed
- }
|
