blob: e6a00acaa9c102c5f4a157d323817c97b2c3b522 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
/* -----------------------------------------------------------------------------
*
* (c) The GHC Team, 1998-2009
*
* _closure macros for static closures, which will properly handle
* indirection.
*
* NB: THIS FILE IS INCLUDED IN NON-C CODE AND DATA! #defines only please.
*
* To understand the structure of the RTS headers, see the wiki:
* http://hackage.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes
*
* ---------------------------------------------------------------------------*/
#ifndef RTS_STATIC_CLOSURES_H
#define RTS_STATIC_CLOSURES_H
#if CMINUSMINUS
#define STATIC_CLOSURE(clos) clos ## _static_closure
#else
#define STATIC_CLOSURE(clos) (StgClosure*)(&(clos ## _static_closure))
#endif
#define stg_END_TSO_QUEUE_closure STATIC_CLOSURE(stg_END_TSO_QUEUE)
#define stg_STM_AWOKEN_closure STATIC_CLOSURE(stg_STM_AWOKEN)
#define stg_NO_FINALIZER_closure STATIC_CLOSURE(stg_NO_FINALIZER)
#define stg_dummy_ret_closure STATIC_CLOSURE(stg_dummy_ret)
#define stg_forceIO_closure STATIC_CLOSURE(stg_forceIO)
#define stg_END_STM_WATCH_QUEUE_closure STATIC_CLOSURE(stg_END_STM_WATCH_QUEUE)
#define stg_END_INVARIANT_CHECK_QUEUE_closure STATIC_CLOSURE(stg_END_INVARIANT_CHECK_QUEUE)
#define stg_END_STM_CHUNK_LIST_closure STATIC_CLOSURE(stg_END_STM_CHUNK_LIST)
#define stg_NO_TREC_closure STATIC_CLOSURE(stg_NO_TREC)
#endif /* RTS_STATIC_CLOSURES_H */
|
