Fix segfault with STM; fixes #8035. Patch from errge.
[ghc.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 RTS_PRIVATE StgWord stg_ap_stack_entries[];
15 #else
16 extern RTS_PRIVATE 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 RTS_PRIVATE StgWord stg_stack_save_entries[];
22 #else
23 extern RTS_PRIVATE StgFun *stg_stack_save_entries[];
24 #endif
25
26 #endif /* APPLY_H */