X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FBytecodes.h;h=73003a3002dd24c59aa05705a35b9fcd40c38c32;hb=a0f46309637779ccc141ec531e9b128596a5bba0;hp=f9a51828421982030b18f0bd2d90fabaa70263de;hpb=03dc2dd3dd814ad85cc4c45e9cafc7b73163c8be;p=ghc-hetmet.git

diff --git a/ghc/includes/Bytecodes.h b/ghc/includes/Bytecodes.h
index f9a5182..73003a3 100644
--- a/ghc/includes/Bytecodes.h
+++ b/ghc/includes/Bytecodes.h
@@ -52,28 +52,29 @@
 #define bci_ALLOC_AP   			27
 #define bci_ALLOC_PAP  			28
 #define bci_MKAP      			29
-#define bci_UNPACK    			30
-#define bci_PACK      			31
-#define bci_TESTLT_I   			32
-#define bci_TESTEQ_I  			33
-#define bci_TESTLT_F  			34
-#define bci_TESTEQ_F  			35
-#define bci_TESTLT_D  			36
-#define bci_TESTEQ_D  			37
-#define bci_TESTLT_P  			38
-#define bci_TESTEQ_P  			39
-#define bci_CASEFAIL  			40
-#define bci_JMP       			41
-#define bci_CCALL     			42
-#define bci_SWIZZLE   			43
-#define bci_ENTER     			44
-#define bci_RETURN    			45
-#define bci_RETURN_P 			46
-#define bci_RETURN_N 			47
-#define bci_RETURN_F 			48
-#define bci_RETURN_D 			49
-#define bci_RETURN_L 			50
-#define bci_RETURN_V 			51
+#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