rts/include/rts/IPE.h


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

/* -----------------------------------------------------------------------------
 *
 * (c) The GHC Team, 2017-2021
 *
 * 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;
} InfoProvEnt;

void registerInfoProvList(InfoProvEnt **cc_list);
InfoProvEnt *lookupIPE(StgInfoTable *info);