blob: c0aeeb546dd8942e21a557457379713ed70644d0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
/* -----------------------------------------------------------------------------
*
* (c) The GHC Team 1998-2006
*
* Generational garbage collector: evacuation functions
*
* Documentation on the architecture of the Garbage Collector can be
* found in the online commentary:
*
* http://hackage.haskell.org/trac/ghc/wiki/Commentary/Rts/Storage/GC
*
* ---------------------------------------------------------------------------*/
// Use a register argument for evacuate, if available.
#if __GNUC__ >= 2
#define REGPARM1 __attribute__((regparm(1)))
#else
#define REGPARM1
#endif
REGPARM1 StgClosure * evacuate (StgClosure *q);
extern lnat thunk_selector_depth;
|
