X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FException.cmm;h=ce2ea274bd4120ebd47b690cc1c4f762bfc05ea7;hb=79adecdb64e642f507e5113757ca69bc64df6bdc;hp=c86c6d59ffd173fcc306c588976c0b27700ff5c6;hpb=9ff76535edb25ab7434284adddb5c64708ecb547;p=ghc-hetmet.git

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index c86c6d5..ce2ea27 100644
--- a/rts/Exception.cmm
+++ b/rts/Exception.cmm
@@ -291,7 +291,7 @@ INFO_TABLE_RET(stg_catch_frame,
 #ifdef REG_R1
    {
       Sp = Sp + SIZEOF_StgCatchFrame;
-      jump Sp(SP_OFF);
+      jump %ENTRY_CODE(Sp(SP_OFF));
    }
 #else
    {
@@ -299,7 +299,7 @@ INFO_TABLE_RET(stg_catch_frame,
       rval = Sp(0);
       Sp = Sp + SIZEOF_StgCatchFrame;
       Sp(0) = rval;
-      jump Sp(SP_OFF);
+      jump %ENTRY_CODE(Sp(SP_OFF));
    }
 #endif