X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FStgFun.h;h=e6f9b1fe0ef07edfbf3680c42a42472fbea99d2e;hb=a0f46309637779ccc141ec531e9b128596a5bba0;hp=a1a4712985c90c645ea8bd7c41e6affa7b118b5f;hpb=423d477bfecd490de1449c59325c8776f91d7aac;p=ghc-hetmet.git diff --git a/ghc/includes/StgFun.h b/ghc/includes/StgFun.h index a1a4712..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: this ordering/numbering is hard-coded into the tables - * generated by GenApply.hs which end up in 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_NNN 12 -#define ARG_NNP 13 -#define ARG_NPN 14 -#define ARG_NPP 15 -#define ARG_PNN 16 -#define ARG_PNP 17 -#define ARG_PPN 18 -#define ARG_PPP 19 -#define ARG_PPPP 20 -#define ARG_PPPPP 21 -#define ARG_PPPPPP 22 -#define ARG_PPPPPPP 23 -#define ARG_PPPPPPPP 24 +#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 */