X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FApply.cmm;h=c9c7daa9acac28bf5af9f405738251dba0370bb0;hp=cf8a108006e59b736fde2d5645b84088e714c8df;hb=0731082288212fbc6d68204b609f201b8a79149a;hpb=6015a94f9108a502150565577b66c23650796639

diff --git a/rts/Apply.cmm b/rts/Apply.cmm
index cf8a108..c9c7daa 100644
--- a/rts/Apply.cmm
+++ b/rts/Apply.cmm
@@ -58,7 +58,7 @@ stg_ap_0_fast
    -------------------------------------------------------------------------- */
 
 INFO_TABLE(stg_PAP,/*special layout*/0,0,PAP,"PAP","PAP")
-{  foreign "C" barf("PAP object entered!"); }
+{  foreign "C" barf("PAP object entered!") never returns; }
     
 stg_PAP_apply
 {