Add a target32Bit function to Platform
[ghc-hetmet.git] / includes / rts / FileLock.h
1 /* -----------------------------------------------------------------------------
2  *
3  * (c) The GHC Team, 2007-2009
4  *
5  * File locking support as required by Haskell
6  *
7  * Do not #include this file directly: #include "Rts.h" instead.
8  *
9  * To understand the structure of the RTS headers, see the wiki:
10  *   http://hackage.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes
11  *
12  * ---------------------------------------------------------------------------*/
13
14 #ifndef RTS_FILELOCK_H
15 #define RTS_FILELOCK_H
16
17 #ifdef HAVE_SYS_TYPES_H
18 #include <sys/types.h>
19 #endif
20
21 int  lockFile(int fd, dev_t dev, ino_t ino, int for_writing);
22 int  unlockFile(int fd);
23
24 #endif /* RTS_FILELOCK_H */