diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2019-05-02 13:48:09 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-05-08 15:41:17 -0400 |
| commit | 9a3acac968d76370e12839db4b71bb0a43e35b2c (patch) | |
| tree | 091246923e9a5174e780b9a87d06596a8aafb364 | |
| parent | d9bdff607e79a605197a13203ca9421153e8dd37 (diff) | |
| download | haskell-9a3acac968d76370e12839db4b71bb0a43e35b2c.tar.gz | |
Print PAP object address in stg_PAP_info entry code
Continuation to ce23451c
| -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 */ { |