blob: d80076460ff85f6456805be84fbab2d6aebf1527 (
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 2016
*
* GC support for immutable non-GCed structures
*
* Documentation on the architecture of the Garbage Collector can be
* found in the online commentary:
*
* http://ghc.haskell.org/trac/ghc/wiki/Commentary/Rts/Storage/GC
*
* ---------------------------------------------------------------------------*/
#pragma once
#define SHOULDCOMPACT_STATIC 0
#define SHOULDCOMPACT_IN_CNF 1
#define SHOULDCOMPACT_NOTIN_CNF 2
#define SHOULDCOMPACT_PINNED 3
#if !defined(CMINUSMINUS)
extern StgWord shouldCompact (StgCompactNFData *str, StgClosure *p);
#endif
|
