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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
/* -----------------------------------------------------------------------------
*
* (c) The GHC Team, 1998-2009
*
* General utility functions used in the RTS.
*
* ---------------------------------------------------------------------------*/
#pragma once
#include "BeginPrivate.h"
/* -----------------------------------------------------------------------------
* (Checked) dynamic allocation
* -------------------------------------------------------------------------- */
void initAllocator(void);
void shutdownAllocator(void);
void stgFree(void* p);
void *stgMallocBytes(size_t n, char *msg)
STG_MALLOC STG_MALLOC1(stgFree)
STG_ALLOC_SIZE1(1);
/* Note: unlike `stgReallocBytes` and `stgCallocBytes`, `stgMallocBytes` is
* *not* `STG_RETURNS_NONNULL`, since it will return `NULL` when the requested
* allocation size is zero.
*
* See: https://gitlab.haskell.org/ghc/ghc/-/issues/22380
*/
void *stgReallocBytes(void *p, size_t n, char *msg);
void *stgCallocBytes(size_t count, size_t size, char *msg)
STG_MALLOC STG_MALLOC1(stgFree)
STG_ALLOC_SIZE2(1, 2)
STG_RETURNS_NONNULL;
char *stgStrndup(const char *s, size_t n)
STG_MALLOC STG_MALLOC1(stgFree);
void *stgMallocAlignedBytes(size_t n, size_t align, char *msg);
void stgFreeAligned(void *p);
/* -----------------------------------------------------------------------------
* Misc other utilities
* -------------------------------------------------------------------------- */
int rtsSleep(Time t);
char *time_str(void);
char *showStgWord64(StgWord64, char *, bool);
#if defined(DEBUG)
void heapCheckFail( void );
#endif
void printRtsInfo(const RtsConfig);
void checkFPUStack(void);
#define xstr(s) str(s)
#define str(s) #s
#include "EndPrivate.h"
|
