diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-08-19 10:42:34 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2022-10-10 20:32:37 -0400 |
| commit | 806223ba7431ffe63ac30ec2305a26d34c3f55a1 (patch) | |
| tree | f4a28847d28397f06fd48508847e08ece655c89a /rts/Trace.c | |
| parent | 4112e3ca9361b4a6569a8d3c44d9c93781f57c20 (diff) | |
| download | haskell-wip/T22077.tar.gz | |
Separate IPE source file from spanwip/T22077
The source file name can very often be shared across many IPE entries
whereas the source coordinates are generally unique. Separate the two to
exploit sharing of the former.
Diffstat (limited to 'rts/Trace.c')
| -rw-r--r-- | rts/Trace.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Trace.c b/rts/Trace.c index 323ffb6ce7..30db2a704c 100644 --- a/rts/Trace.c +++ b/rts/Trace.c @@ -682,9 +682,9 @@ void traceIPE(const InfoProvEnt *ipe) ACQUIRE_LOCK(&trace_utx); tracePreface(); - debugBelch("IPE: table_name %s, closure_desc %s, ty_desc %s, label %s, module %s, srcloc %s\n", + debugBelch("IPE: table_name %s, closure_desc %s, ty_desc %s, label %s, module %s, srcloc %s:%s\n", ipe->prov.table_name, ipe->prov.closure_desc, ipe->prov.ty_desc, - ipe->prov.label, ipe->prov.module, ipe->prov.srcloc); + ipe->prov.label, ipe->prov.module, ipe->prov.src_file, ipe->prov.src_span); RELEASE_LOCK(&trace_utx); } else |