Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
772e0d3f
Commit
772e0d3f
authored
Dec 19, 2000
by
sewardj
Browse files
[project @ 2000-12-19 16:48:58 by sewardj]
Try to get the repo includes into a buildable state.
parent
333ddd13
Changes
3
Hide whitespace changes
Inline
Side-by-side
ghc/includes/Bytecodes.h
View file @
772e0d3f
/* -----------------------------------------------------------------------------
* $Id: Bytecodes.h,v 1.
3
2000/12/1
2
1
7:16:54
sewardj Exp $
* $Id: Bytecodes.h,v 1.
4
2000/12/1
9
1
6:48:58
sewardj Exp $
*
* (c) The GHC Team, 1998-2000
*
...
...
@@ -39,17 +39,16 @@
#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
/*-------------------------------------------------------------------------*/
ghc/includes/Closures.h
View file @
772e0d3f
/* ----------------------------------------------------------------------------
* $Id: Closures.h,v 1.2
3
2000/12/19 1
2:34:00
sewardj Exp $
* $Id: Closures.h,v 1.2
4
2000/12/19 1
6:48:58
sewardj Exp $
*
* (c) The GHC Team, 1998-1999
*
...
...
@@ -174,14 +174,6 @@ typedef struct {
StgClosure
*
payload
[
0
];
}
StgAP_UPD
;
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
;
...
...
@@ -226,6 +218,14 @@ typedef struct {
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
...
...
ghc/includes/StgMiscClosures.h
View file @
772e0d3f
/* -----------------------------------------------------------------------------
* $Id: StgMiscClosures.h,v 1.2
8
2000/12/19 1
3:16:53 simonmar
Exp $
* $Id: StgMiscClosures.h,v 1.2
9
2000/12/19 1
6:48:58 sewardj
Exp $
*
* (c) The GHC Team, 1998-1999
*
...
...
@@ -67,9 +67,9 @@ STGFUN(stg_interp_constr8_entry);
/* 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)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment