diff options
Diffstat (limited to 'testsuite/tests/rts/ipeEventLog_fromMap.c')
| -rw-r--r-- | testsuite/tests/rts/ipeEventLog_fromMap.c | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/testsuite/tests/rts/ipeEventLog_fromMap.c b/testsuite/tests/rts/ipeEventLog_fromMap.c deleted file mode 100644 index 5bd9e4d034..0000000000 --- a/testsuite/tests/rts/ipeEventLog_fromMap.c +++ /dev/null @@ -1,35 +0,0 @@ -#include "Rts.h" -#include "RtsAPI.h" -#include "rts/IPE.h" -#include <stdio.h> -#include <stdlib.h> -#include <string.h> - -extern void dumpIPEToEventLog(void); -InfoProvEnt *makeAnyProvEntry(Capability *cap, int i); - -int main(int argc, char *argv[]) { - hs_init(&argc, &argv); - Capability *cap = rts_lock(); - - HaskellObj one = rts_mkInt(cap, 1); - - InfoProvEnt *provEnt_0 = makeAnyProvEntry(cap, 0); - InfoProvEnt *provEnt_1 = makeAnyProvEntry(cap, 1); - - InfoProvEnt **ipeList_1 = malloc(sizeof(InfoProvEnt *) * 3); - ipeList_1[0] = provEnt_0; - ipeList_1[1] = provEnt_1; - ipeList_1[2] = NULL; - - registerInfoProvList(ipeList_1); - - // Query an IPE to initialize the underlying hash map. - lookupIPE(ipeList_1[0]->info); - - // Trace all IPE events. - dumpIPEToEventLog(); - - rts_unlock(cap); - hs_exit(); -} |
