X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FStgFun.h;h=e6f9b1fe0ef07edfbf3680c42a42472fbea99d2e;hb=c137ecd7e6e83d0f9c39b15ccdb9f2355f243c91;hp=b89cd984e57190f81dc86ce4c3ddb058eff39dcc;hpb=0bffc410964e1688ad80d277d53400659e697ab5;p=ghc-hetmet.git diff --git a/ghc/includes/StgFun.h b/ghc/includes/StgFun.h index b89cd98..e6f9b1f 100644 --- a/ghc/includes/StgFun.h +++ b/ghc/includes/StgFun.h @@ -16,34 +16,37 @@ /* BCO - function is really a BCO */ #define ARG_BCO 2 -/* specialised function types: bitmaps and calling sequences - * for these functions are pre-generated (see ghc/utils/genapply), and - * the generated code in ghc/rts/AutoApply.hc. +/* + * Specialised function types: bitmaps and calling sequences + * for these functions are pre-generated: see ghc/utils/genapply and + * generated code in ghc/rts/AutoApply.cmm. + * + * NOTE: other places to change if you change this table: + * - utils/genapply/GenApply.hs: stackApplyTypes + * - compiler/codeGen/CgCallConv.lhs: stdPattern */ -#define ARG_N 3 -#define ARG_P 4 -#define ARG_F 5 -#define ARG_D 6 -#define ARG_L 7 -#define ARG_NN 8 -#define ARG_NP 9 -#define ARG_PN 10 -#define ARG_PP 11 -#define ARG_FF 12 -#define ARG_DD 13 -#define ARG_LL 14 -#define ARG_NNN 15 -#define ARG_NNP 16 -#define ARG_NPN 17 -#define ARG_NPP 18 -#define ARG_PNN 19 -#define ARG_PNP 20 -#define ARG_PPN 21 -#define ARG_PPP 22 -#define ARG_PPPP 23 -#define ARG_PPPPP 24 -#define ARG_PPPPPP 25 -#define ARG_PPPPPPP 26 -#define ARG_PPPPPPPP 27 +#define ARG_NONE 3 +#define ARG_N 4 +#define ARG_P 5 +#define ARG_F 6 +#define ARG_D 7 +#define ARG_L 8 +#define ARG_NN 9 +#define ARG_NP 10 +#define ARG_PN 11 +#define ARG_PP 12 +#define ARG_NNN 13 +#define ARG_NNP 14 +#define ARG_NPN 15 +#define ARG_NPP 16 +#define ARG_PNN 17 +#define ARG_PNP 18 +#define ARG_PPN 19 +#define ARG_PPP 20 +#define ARG_PPPP 21 +#define ARG_PPPPP 22 +#define ARG_PPPPPP 23 +#define ARG_PPPPPPP 24 +#define ARG_PPPPPPPP 25 -#endif // STGFUN_H +#endif /* STGFUN_H */