Try to get the repo includes into a buildable state.
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: Bytecodes.h,v 1.3 2000/12/12 17:16:54 sewardj Exp $
+ * $Id: Bytecodes.h,v 1.4 2000/12/19 16:48:58 sewardj Exp $
*
* (c) The GHC Team, 1998-2000
*
*
* (c) The GHC Team, 1998-2000
*
#define bci_UNPACK 12
#define bci_UPK_TAG 13
#define bci_PACK 14
#define bci_UNPACK 12
#define bci_UPK_TAG 13
#define bci_PACK 14
-#define bci_LABEL 15
-#define bci_TESTLT_I 16
-#define bci_TESTEQ_I 17
-#define bci_TESTLT_F 18
-#define bci_TESTEQ_F 19
-#define bci_TESTLT_D 20
-#define bci_TESTEQ_D 21
-#define bci_TESTLT_P 22
-#define bci_TESTEQ_P 23
-#define bci_CASEFAIL 24
-#define bci_ENTER 25
-#define bci_RETURN 26
+#define bci_TESTLT_I 15
+#define bci_TESTEQ_I 16
+#define bci_TESTLT_F 17
+#define bci_TESTEQ_F 18
+#define bci_TESTLT_D 19
+#define bci_TESTEQ_D 20
+#define bci_TESTLT_P 21
+#define bci_TESTEQ_P 22
+#define bci_CASEFAIL 23
+#define bci_ENTER 24
+#define bci_RETURN 25
/*-------------------------------------------------------------------------*/
/*-------------------------------------------------------------------------*/
/* ----------------------------------------------------------------------------
/* ----------------------------------------------------------------------------
- * $Id: Closures.h,v 1.23 2000/12/19 12:34:00 sewardj Exp $
+ * $Id: Closures.h,v 1.24 2000/12/19 16:48:58 sewardj Exp $
*
* (c) The GHC Team, 1998-1999
*
*
* (c) The GHC Team, 1998-1999
*
typedef struct {
StgHeader header;
typedef struct {
StgHeader header;
- StgClosure *instrs; /* a pointer to an ArrWords */
- StgClosure *literals; /* a pointer to an ArrWords */
- StgClosure *ptrs; /* a pointer to a MutArrPtrs */
- StgClosure *itbls; /* a pointer to an ArrWords */
-} StgBCO;
-
-typedef struct {
- StgHeader header;
StgClosure *indirectee;
} StgInd;
StgClosure *indirectee;
} StgInd;
StgMutClosure *mut_link;
} StgMutVar;
StgMutClosure *mut_link;
} StgMutVar;
+typedef struct {
+ StgHeader header;
+ StgArrWords *instrs; /* a pointer to an ArrWords */
+ StgArrWords *literals; /* a pointer to an ArrWords */
+ StgMutArrPtrs *ptrs; /* a pointer to a MutArrPtrs */
+ StgArrWords *itbls; /* a pointer to an ArrWords */
+} StgBCO;
+
/*
A collective typedef for all linkable stack frames i.e.
StgUpdateFrame, StgSeqFrame, StgCatchFrame
/*
A collective typedef for all linkable stack frames i.e.
StgUpdateFrame, StgSeqFrame, StgCatchFrame
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: StgMiscClosures.h,v 1.28 2000/12/19 13:16:53 simonmar Exp $
+ * $Id: StgMiscClosures.h,v 1.29 2000/12/19 16:48:58 sewardj Exp $
*
* (c) The GHC Team, 1998-1999
*
*
* (c) The GHC Team, 1998-1999
*
/* Magic glue code for when compiled code returns a value in R1/F1/D1
to the interpreter. */
/* Magic glue code for when compiled code returns a value in R1/F1/D1
to the interpreter. */
-extern DLL_IMPORT_RTS const StgInfoTable stg_ctoi_ret_R1_info;
-extern DLL_IMPORT_RTS const StgInfoTable stg_ctoi_ret_F1_info;
-extern DLL_IMPORT_RTS const StgInfoTable stg_ctoi_ret_D1_info;
+extern DLL_IMPORT_RTS const vec_info_8 stg_ctoi_ret_R1_info;
+extern DLL_IMPORT_RTS const vec_info_8 stg_ctoi_ret_F1_info;
+extern DLL_IMPORT_RTS const vec_info_8 stg_ctoi_ret_D1_info;
#endif
#if defined(PAR) || defined(GRAN)
#endif
#if defined(PAR) || defined(GRAN)