X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FPrimOps.cmm;h=d5b6c46f688d14658d576e66a47e7a96da4058e6;hb=41a801223a8bd07659ea1178df67912f5dc3d588;hp=baadca402c886f9952606d21ff870ffd1c130aae;hpb=c5cafbcca54c4b1117bc43b31d86afa583fb7f62;p=ghc-hetmet.git

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index baadca4..d5b6c46 100644
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -1894,3 +1894,13 @@ stg_getSparkzh
    }
 #endif
 }
+
+stg_traceEventzh
+{
+   W_ msg;
+   msg = R1;
+#if defined(TRACING) || defined(DEBUG)
+   foreign "C" traceUserMsg(MyCapability() "ptr", msg "ptr") [];
+#endif
+   jump %ENTRY_CODE(Sp(0));
+}