X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FException.cmm;h=1c5d47c8b60ac31311e983a1ce185655327e6742;hb=f33bd72eb97043ab109e6afc9dae7cfa9590b68d;hp=edabf5424655c11fd9c2d930f4370dcfc7923267;hpb=fbf16357622e4bf6ec5f00383dd167d5e7dbc9e1;p=ghc-hetmet.git

diff --git a/ghc/rts/Exception.cmm b/ghc/rts/Exception.cmm
index edabf54..1c5d47c 100644
--- a/ghc/rts/Exception.cmm
+++ b/ghc/rts/Exception.cmm
@@ -330,7 +330,7 @@ raisezh_fast
      * the info was only displayed for an *uncaught* exception.
      */
     if (RtsFlags_ProfFlags_showCCSOnException(RtsFlags)) {
-      foreign "C" fprintCCS(stderr,W_[CCCS]);
+      foreign "C" fprintCCS(W_[stderr] "ptr",W_[CCCS] "ptr");
     }
 #endif