X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRaiseAsync.c;h=4ca1cba28d27574123f1fa57c1af73cc125c8243;hb=f670c47f9f93ffd6d06b331cd40554cd5e92484c;hp=39c973bd1de8b706eeb22af55de333defbb90fa3;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e;p=ghc-hetmet.git

diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index 39c973b..4ca1cba 100644
--- a/rts/RaiseAsync.c
+++ b/rts/RaiseAsync.c
@@ -728,7 +728,7 @@ raiseAsync(Capability *cap, StgTSO *tso, StgClosure *exception,
 #if defined(PROFILING)
     /* 
      * Debugging tool: on raising an  exception, show where we are.
-     * See also Exception.cmm:raisezh_fast.
+     * See also Exception.cmm:stg_raisezh.
      * This wasn't done for asynchronous exceptions originally; see #1450 
      */
     if (RtsFlags.ProfFlags.showCCSOnException)