Make it a fatal error to try to enter a PAP

[ghc-hetmet.git] / ghc / rts / Apply.cmm

diff --git a/ghc/rts/Apply.cmm b/ghc/rts/Apply.cmm
index 58ca18b..6678a63 100644 (file)
--- 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;