diff options
| author | Ian Lynagh <ian@well-typed.com> | 2012-09-21 17:56:14 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2012-09-21 18:14:56 +0100 |
| commit | ef3339cf634aceddae43cc42bfe545a5461ebe36 (patch) | |
| tree | 8c69ae543ac56076234c6530816318d9696b7a72 /rts/Printer.c | |
| parent | 5f01b6dd095955e9a52f5624213a7c54dc5e1a8c (diff) | |
| download | haskell-ef3339cf634aceddae43cc42bfe545a5461ebe36.tar.gz | |
Convert more RTS macros to functions
No size changes in the non-debug object files
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index 02fbb09962..fb00401f59 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -259,7 +259,7 @@ printClosure( StgClosure *obj ) { StgUpdateFrame* u = (StgUpdateFrame*)obj; debugBelch("UPDATE_FRAME("); - printPtr((StgPtr)GET_INFO(u)); + printPtr((StgPtr)GET_INFO((StgClosure *)u)); debugBelch(","); printPtr((StgPtr)u->updatee); debugBelch(")\n"); @@ -270,7 +270,7 @@ printClosure( StgClosure *obj ) { StgCatchFrame* u = (StgCatchFrame*)obj; debugBelch("CATCH_FRAME("); - printPtr((StgPtr)GET_INFO(u)); + printPtr((StgPtr)GET_INFO((StgClosure *)u)); debugBelch(","); printPtr((StgPtr)u->handler); debugBelch(")\n"); @@ -290,7 +290,7 @@ printClosure( StgClosure *obj ) { StgStopFrame* u = (StgStopFrame*)obj; debugBelch("STOP_FRAME("); - printPtr((StgPtr)GET_INFO(u)); + printPtr((StgPtr)GET_INFO((StgClosure *)u)); debugBelch(")\n"); break; } |