blob: 0ed9888ab0fb35b8129d51cacc47beb3dc1b86bd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
/* -----------------------------------------------------------------------------
* $Id: Evaluator.h,v 1.4 1999/02/05 16:02:40 simonm Exp $
*
* (c) The GHC Team, 1998-1999
*
* Prototypes for functions in Evaluator.c
*
* ---------------------------------------------------------------------------*/
/* --------------------------------------------------------------------------
* Sizes of objects it constructs
* (used by Assembler)
* ------------------------------------------------------------------------*/
#define Izh_sizeW CONSTR_sizeW(0,sizeofW(StgInt))
#define I64zh_sizeW CONSTR_sizeW(0,sizeofW(StgInt64))
#define Wzh_sizeW CONSTR_sizeW(0,sizeofW(StgWord))
#define Azh_sizeW CONSTR_sizeW(0,sizeofW(StgAddr))
#define Czh_sizeW CONSTR_sizeW(0,sizeofW(StgWord))
#define Fzh_sizeW CONSTR_sizeW(0,sizeofW(StgFloat))
#define Dzh_sizeW CONSTR_sizeW(0,sizeofW(StgDouble))
#define Stablezh_sizeW CONSTR_sizeW(0,sizeofW(StgStablePtr))
#define Genericzh_sizeW CONSTR_sizeW(1,0)
/* --------------------------------------------------------------------------
*
* ------------------------------------------------------------------------*/
extern StgThreadReturnCode enter ( StgClosurePtr obj );
extern nat marshall ( char arg_ty, void* arg );
extern nat unmarshall ( char res_ty, void* res );
extern nat argSize ( const char* ks );
|
