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

diff --git a/ghc/includes/StgFun.h b/ghc/includes/StgFun.h
index 32d955e..a1a4712 100644
--- a/ghc/includes/StgFun.h
+++ b/ghc/includes/StgFun.h
@@ -13,34 +13,37 @@
 /* generic - function comes with a large bitmap */
 #define ARG_GEN_BIG  1
 
+/* 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.
+ *
+ *  NOTE: this ordering/numbering is hard-coded into the tables
+ *  generated by GenApply.hs which end up in AutoApply.cmm.
  */
-#define ARG_N        2
-#define ARG_P        3
-#define ARG_F        4
-#define ARG_D        5
-#define ARG_L        6
-#define ARG_NN       7
-#define ARG_NP       8
-#define ARG_PN       9
-#define ARG_PP       10
-#define ARG_FF       11
-#define ARG_DD       12
-#define ARG_LL       13
-#define ARG_NNN      14
-#define ARG_NNP      15
-#define ARG_NPN      16
-#define ARG_NPP      17
-#define ARG_PNN      18
-#define ARG_PNP      19
-#define ARG_PPN      20
-#define ARG_PPP      21
-#define ARG_PPPP     22
-#define ARG_PPPPP    23
-#define ARG_PPPPPP   24
-#define ARG_PPPPPPP  25
-#define ARG_PPPPPPPP 26
+#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
 
 #endif // STGFUN_H