1 ***************************************************************************
3 STATIC closures -- INTLIKE and CHARLIKE stuff.
5 ***************************************************************************
7 @CZh_entry@, @CZh_static_info@, @IZh_entry@ and @IZh_static_info@
8 are built by the compiler from {\tr uTys.hs}.
12 #include "SMinternal.h"
14 EXTDATA_RO(CZh_static_info);
16 #define __CHARLIKE_CLOSURE(n) (CHARLIKE_closures+((n)*(CHARLIKE_HS+1)))
17 #define __INTLIKE_CLOSURE(n) (INTLIKE_closures_def+(((n)-MIN_INTLIKE)*(INTLIKE_HS+1)))
19 #define CHARLIKE_HDR(n) SET_STATIC_FIXED_HDR(__CHARLIKE_CLOSURE(n),CZh_static_info,CC_DONTZuCARE), (W_) n
21 #define INTLIKE_HDR(n) SET_STATIC_FIXED_HDR(__INTLIKE_CLOSURE(n),IZh_static_info,CC_DONTZuCARE), (W_) n
23 const W_ CHARLIKE_closures[] = {
282 EXTDATA_RO(IZh_static_info);
284 static const W_ INTLIKE_closures_def[] = {
285 INTLIKE_HDR(-16), /* MIN_INTLIKE == -16 */
317 INTLIKE_HDR(16) /* MAX_INTLIKE == 16 */
320 const P_ INTLIKE_closures = (const P_) __INTLIKE_CLOSURE(0);