X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FStgFun.h;h=a1a4712985c90c645ea8bd7c41e6affa7b118b5f;hb=423d477bfecd490de1449c59325c8776f91d7aac;hp=b89cd984e57190f81dc86ce4c3ddb058eff39dcc;hpb=553e90d9a32ee1b1809430f260c401cc4169c6c7;p=ghc-hetmet.git

diff --git a/ghc/includes/StgFun.h b/ghc/includes/StgFun.h
index b89cd98..a1a4712 100644
--- a/ghc/includes/StgFun.h
+++ b/ghc/includes/StgFun.h
@@ -19,6 +19,9 @@
 /* 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.
+ *
+ *  NOTE: this ordering/numbering is hard-coded into the tables
+ *  generated by GenApply.hs which end up in AutoApply.cmm.
  */
 #define ARG_N        3 
 #define ARG_P        4 
@@ -29,21 +32,18 @@
 #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_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
 
 #endif // STGFUN_H