1 ***************************************************************************
3 STATIC closures -- INTLIKE and CHARLIKE stuff.
5 ***************************************************************************
7 @Prelude_CZh_entry@, @Prelude_CZh_static_info@, @Prelude_IZh_entry@ and @Prelude_IZh_static_info@
8 are built by the compiler from {\tr uTys.hs}.
12 #include "SMinternal.h"
14 EXTDATA_RO(Prelude_CZh_static_info);
15 EXTDATA_RO(Prelude_IZh_static_info);
17 #define __CHARLIKE_CLOSURE(n) (CHARLIKE_closures+((n)*(CHARLIKE_HS+1)))
18 #define __INTLIKE_CLOSURE(n) (INTLIKE_closures_def+(((n)-MIN_INTLIKE)*(INTLIKE_HS+1)))
20 #define CHARLIKE_HDR(n) SET_STATIC_FIXED_HDR(__CHARLIKE_CLOSURE(n),Prelude_CZh_static_info,CC_DONTZuCARE), (W_) n
22 #define INTLIKE_HDR(n) SET_STATIC_FIXED_HDR(__INTLIKE_CLOSURE(n),Prelude_IZh_static_info,CC_DONTZuCARE), (W_) n
24 const W_ CHARLIKE_closures[] = {
283 static const W_ INTLIKE_closures_def[] = {
284 INTLIKE_HDR(-16), /* MIN_INTLIKE == -16 */
316 INTLIKE_HDR(16) /* MAX_INTLIKE == 16 */
319 const P_ INTLIKE_closures = (const P_) __INTLIKE_CLOSURE(0);