X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FBytecodes.h;fp=includes%2FBytecodes.h;h=73003a3002dd24c59aa05705a35b9fcd40c38c32;hb=0065d5ab628975892cea1ec7303f968c3338cbe1;hp=0000000000000000000000000000000000000000;hpb=28a464a75e14cece5db40f2765a29348273ff2d2;p=ghc-hetmet.git

diff --git a/includes/Bytecodes.h b/includes/Bytecodes.h
new file mode 100644
index 0000000..73003a3
--- /dev/null
+++ b/includes/Bytecodes.h
@@ -0,0 +1,86 @@
+/* -----------------------------------------------------------------------------
+ *
+ * (c) The GHC Team, 1998-2002
+ *
+ * Bytecode definitions.
+ *
+ * ---------------------------------------------------------------------------*/
+
+/* --------------------------------------------------------------------------
+ * Instructions
+ *
+ * Notes:
+ * o CASEFAIL is generated by the compiler whenever it tests an "irrefutable"
+ *   pattern which fails.  If we don't see too many of these, we could
+ *   optimise out the redundant test.
+ * ------------------------------------------------------------------------*/
+
+/* NOTE:
+
+   THIS FILE IS INCLUDED IN HASKELL SOURCES (ghc/compiler/ghci/ByteCodeGen.lhs).
+   DO NOT PUT C-SPECIFIC STUFF IN HERE!
+
+   I hope that's clear :-)
+*/
+
+#define bci_STKCHECK  			1
+#define bci_PUSH_L    			2
+#define bci_PUSH_LL   			3
+#define bci_PUSH_LLL  			4
+#define bci_PUSH_G    			5
+#define bci_PUSH_ALTS  			6
+#define bci_PUSH_ALTS_P			7
+#define bci_PUSH_ALTS_N			8 
+#define bci_PUSH_ALTS_F			9 
+#define bci_PUSH_ALTS_D			10
+#define bci_PUSH_ALTS_L			11
+#define bci_PUSH_ALTS_V			12
+#define bci_PUSH_UBX  			13
+#define bci_PUSH_APPLY_N		14
+#define bci_PUSH_APPLY_F		15
+#define bci_PUSH_APPLY_D		16
+#define bci_PUSH_APPLY_L		17
+#define bci_PUSH_APPLY_V		18
+#define bci_PUSH_APPLY_P		19
+#define bci_PUSH_APPLY_PP		20
+#define bci_PUSH_APPLY_PPP		21
+#define bci_PUSH_APPLY_PPPP		22
+#define bci_PUSH_APPLY_PPPPP		23
+#define bci_PUSH_APPLY_PPPPPP		24
+/* #define bci_PUSH_APPLY_PPPPPPP		25 */
+#define bci_SLIDE     			26
+#define bci_ALLOC_AP   			27
+#define bci_ALLOC_PAP  			28
+#define bci_MKAP      			29
+#define bci_MKPAP      			30
+#define bci_UNPACK    			31
+#define bci_PACK      			32
+#define bci_TESTLT_I   			33
+#define bci_TESTEQ_I  			34
+#define bci_TESTLT_F  			35
+#define bci_TESTEQ_F  			36
+#define bci_TESTLT_D  			37
+#define bci_TESTEQ_D  			38
+#define bci_TESTLT_P  			39
+#define bci_TESTEQ_P  			40
+#define bci_CASEFAIL  			41
+#define bci_JMP       			42
+#define bci_CCALL     			43
+#define bci_SWIZZLE   			44
+#define bci_ENTER     			45
+#define bci_RETURN    			46
+#define bci_RETURN_P 			47
+#define bci_RETURN_N 			48
+#define bci_RETURN_F 			49
+#define bci_RETURN_D 			50
+#define bci_RETURN_L 			51
+#define bci_RETURN_V 			52
+
+/* If a BCO definitely requires less than this many words of stack,
+   don't include an explicit STKCHECK insn in it.  The interpreter
+   will check for this many words of stack before running each BCO,
+   rendering an explicit check unnecessary in the majority of
+   cases. */
+#define INTERP_STACK_CHECK_THRESH  50
+
+/*-------------------------------------------------------------------------*/