diff options
| -rw-r--r-- | rts/Apply.cmm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Apply.cmm b/rts/Apply.cmm index b08a8bf538..13eb135412 100644 --- a/rts/Apply.cmm +++ b/rts/Apply.cmm @@ -210,7 +210,7 @@ again: -------------------------------------------------------------------------- */ INFO_TABLE(stg_PAP,/*special layout*/0,0,PAP,"PAP","PAP") -{ ccall barf("PAP object entered!") never returns; } +{ ccall barf("PAP object (%p) entered!", R1) never returns; } stg_PAP_apply /* no args => explicit stack */ { |