IF_DEBUG(sanity,
foreign "C" checkStackChunk(Sp "ptr",
CurrentTSO + TSO_OFFSET_StgTSO_stack +
- WDS(StgTSO_stack_size(CurrentTSO)) "ptr") [R1]);
+ WDS(TO_W_(StgTSO_stack_size(CurrentTSO))) "ptr") [R1]);
ENTER();
}
-------------------------------------------------------------------------- */
INFO_TABLE(stg_PAP,/*special layout*/0,0,PAP,"PAP","PAP")
+{ foreign "C" barf("PAP object entered!"); }
+
+stg_PAP_apply
{
W_ Words;
W_ pap;