summaryrefslogtreecommitdiff
path: root/ghc/includes/StgFun.h
diff options
context:
space:
mode:
authorsimonmar <unknown>2004-08-13 13:11:23 +0000
committersimonmar <unknown>2004-08-13 13:11:23 +0000
commit423d477bfecd490de1449c59325c8776f91d7aac (patch)
tree2fe481e38a21be66b17539de24a4fe56daf80642 /ghc/includes/StgFun.h
parent553e90d9a32ee1b1809430f260c401cc4169c6c7 (diff)
downloadhaskell-423d477bfecd490de1449c59325c8776f91d7aac.tar.gz
[project @ 2004-08-13 13:04:50 by simonmar]
Merge backend-hacking-branch onto HEAD. Yay!
Diffstat (limited to 'ghc/includes/StgFun.h')
-rw-r--r--ghc/includes/StgFun.h32
1 files changed, 16 insertions, 16 deletions
diff --git a/ghc/includes/StgFun.h b/ghc/includes/StgFun.h
index b89cd984e5..a1a4712985 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