[project @ 2004-08-13 13:04:50 by simonmar]

[ghc-hetmet.git] / ghc / includes / StgFun.h

diff --git a/ghc/includes/StgFun.h b/ghc/includes/StgFun.h
index b89cd98..a1a4712 100644 (file)
--- 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