X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FApply.h;h=1c0b1623d913c53fab74e8a2521b06cf84828cec;hb=d8334d807812e40f67770ffc37608c0ce66f96b2;hp=76e36cb9fbbc987957e80e99b473d513f08f6c26;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git diff --git a/rts/Apply.h b/rts/Apply.h index 76e36cb..1c0b162 100644 --- a/rts/Apply.h +++ b/rts/Apply.h @@ -11,19 +11,16 @@ // canned slow entry points, indexed by arg type (ARG_P, ARG_PP, etc.) #ifdef IN_STG_CODE -extern StgWord stg_ap_stack_entries[]; +extern RTS_PRIVATE StgWord stg_ap_stack_entries[]; #else -extern StgFun *stg_ap_stack_entries[]; +extern RTS_PRIVATE StgFun *stg_ap_stack_entries[]; #endif // canned register save code for heap check failure in a function #ifdef IN_STG_CODE -extern StgWord stg_stack_save_entries[]; +extern RTS_PRIVATE StgWord stg_stack_save_entries[]; #else -extern StgFun *stg_stack_save_entries[]; +extern RTS_PRIVATE StgFun *stg_stack_save_entries[]; #endif -// canned bitmap for each arg type -extern StgWord stg_arg_bitmaps[]; - #endif /* APPLY_H */