diff options
| author | Ben Gamari <ben@well-typed.com> | 2022-03-16 21:54:24 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2022-04-06 16:25:25 -0400 |
| commit | fa404335dd9ca45a75f9184f671eb5f9664ef1fa (patch) | |
| tree | 644011074ca490a8cb8e18a313d504ba9f600c71 /rts/LinkerInternals.h | |
| parent | 3247b7dbc6eab81c9fc02fbc385b69dc129fcdc6 (diff) | |
| download | haskell-fa404335dd9ca45a75f9184f671eb5f9664ef1fa.tar.gz | |
rts/linker: More descriptive debug output
Diffstat (limited to 'rts/LinkerInternals.h')
| -rw-r--r-- | rts/LinkerInternals.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/rts/LinkerInternals.h b/rts/LinkerInternals.h index 917984a5c6..8a71179932 100644 --- a/rts/LinkerInternals.h +++ b/rts/LinkerInternals.h @@ -360,6 +360,12 @@ struct _ObjectCode { (OC)->fileName \ ) +#define ocDebugBelch(oc, s, ...) \ + debugBelch("%s(%" PATH_FMT ": " s, \ + __func__, \ + OC_INFORMATIVE_FILENAME(oc), \ + ##__VA_ARGS__) + #if defined(THREADED_RTS) extern Mutex linker_mutex; |