blob: 81a6d553d02492a28a4e8b928197f26157907a6e (
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
35
|
/* -----------------------------------------------------------------------------
*
* (c) The GHC Team, 2017-2018
*
* IPE API
*
* Do not #include this file directly: #include "Rts.h" instead.
*
* To understand the structure of the RTS headers, see the wiki:
* https://gitlab.haskell.org/ghc/ghc/wikis/commentary/source-tree/includes
*
* -------------------------------------------------------------------------- */
#pragma once
typedef struct InfoProv_{
char * table_name;
char * closure_desc;
char * ty_desc;
char * label;
char * module;
char * srcloc;
} InfoProv;
typedef struct InfoProvEnt_ {
StgInfoTable * info;
InfoProv prov;
struct InfoProvEnt_ *link;
} InfoProvEnt;
extern InfoProvEnt * RTS_VAR(IPE_LIST); // registered IP list
void registerInfoProvList(InfoProvEnt **cc_list);
InfoProvEnt * lookupIPE(StgInfoTable *info);
|
