X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FApply.cmm;fp=ghc%2Frts%2FApply.cmm;h=6678a6347110a6f130bc2216b9d8db0793f7ac34;hb=960a5e6a6f604aa01f5f74b80fb0f61ceffd7ed3;hp=58ca18b0590d1780447621aaacd10ed3a5ad7c8d;hpb=a9dc96582699e24c7d67eec9e4296b80dee53e92;p=ghc-hetmet.git

diff --git a/ghc/rts/Apply.cmm b/ghc/rts/Apply.cmm
index 58ca18b..6678a63 100644
--- a/ghc/rts/Apply.cmm
+++ b/ghc/rts/Apply.cmm
@@ -58,6 +58,9 @@ stg_ap_0_fast
    -------------------------------------------------------------------------- */
 
 INFO_TABLE(stg_PAP,/*special layout*/0,0,PAP,"PAP","PAP")
+{  foreign "C" barf("PAP object entered!"); }
+    
+stg_PAP_apply
 {
   W_ Words;
   W_ pap;