Add Coercion.lhs
[ghc-hetmet.git] / rts / Apply.h
1 /* -----------------------------------------------------------------------------
2  *
3  * (c) The University of Glasgow 2002-2004
4  *
5  * Declarations for things defined in AutoApply.cmm
6  *
7  * -------------------------------------------------------------------------- */
8
9 #ifndef APPLY_H
10 #define APPLY_H
11
12 // canned slow entry points, indexed by arg type (ARG_P, ARG_PP, etc.)
13 #ifdef IN_STG_CODE
14 extern StgWord stg_ap_stack_entries[];
15 #else
16 extern StgFun *stg_ap_stack_entries[];
17 #endif
18
19 // canned register save code for heap check failure in a function
20 #ifdef IN_STG_CODE
21 extern StgWord stg_stack_save_entries[];
22 #else
23 extern StgFun *stg_stack_save_entries[];
24 #endif
25
26 // canned bitmap for each arg type
27 extern StgWord stg_arg_bitmaps[];
28
29 #endif /* APPLY_H */