blob: 9b2ab0d5c0ec9563870180d8ca066aa924f24d29 (
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
|
/* -----------------------------------------------------------------------------
* $Id: Stg.h,v 1.17 1999/07/06 09:42:39 sof Exp $
*
* (c) The GHC Team, 1998-1999
*
* Top-level include file for everything STG-ish.
*
* This file is included *automatically* by all .hc files.
*
* ---------------------------------------------------------------------------*/
#ifndef STG_H
#define STG_H
#ifndef NON_POSIX_SOURCE
#define _POSIX_SOURCE
#endif
/* Configuration */
#include "config.h"
#ifdef __HUGS__ /* vile hack till the GHC folks come on board */
#include "options.h"
#endif
/* Some macros to handle DLLing (Win32 only at the moment). */
#include "StgDLL.h"
/* Turn lazy blackholing and eager blackholing on/off.
*
* Using eager blackholing makes things easier to debug because
* the blackholes are more predictable - but it's slower and less sexy.
*
* For now, do lazy and not eager.
*/
#define LAZY_BLACKHOLING
/* #define EAGER_BLACKHOLING */
#ifdef TICKY_TICKY
/* TICKY_TICKY needs EAGER_BLACKHOLING to verify no double-entries of single-entry thunks. */
# undef LAZY_BLACKHOLING
# define EAGER_BLACKHOLING
#endif
/* ToDo: Set this flag properly: COMPILER and INTERPRETER should not be mutually exclusive. */
#ifndef INTERPRETER
#define COMPILER 1
#endif
/* TABLES_NEXT_TO_CODE says whether to assume that info tables are
* assumed to reside just before the code for a function.
*
* UNDEFINING THIS WON'T WORK ON ITS OWN. You have been warned.
*/
#ifndef USE_MINIINTERPRETER
#define TABLES_NEXT_TO_CODE
#endif
/* bit macros
*/
#define BITS_PER_BYTE 8
#define BITS_IN(x) (BITS_PER_BYTE * sizeof(x))
/* -----------------------------------------------------------------------------
Assertions and Debuggery
-------------------------------------------------------------------------- */
#ifndef DEBUG
#define ASSERT(predicate) /* nothing */
#else
void _stgAssert (char *, unsigned int);
#define ASSERT(predicate) \
if (predicate) \
/*null*/; \
else \
_stgAssert(__FILE__, __LINE__)
#endif /* DEBUG */
/* -----------------------------------------------------------------------------
Include everything STG-ish
-------------------------------------------------------------------------- */
/* Global type definitions*/
#include "StgTypes.h"
/* Global constaints */
#include "Constants.h"
/* Profiling information */
#include "Profiling.h"
/* Storage format definitions */
#include "Closures.h"
#include "ClosureTypes.h"
#include "InfoTables.h"
#include "TSO.h"
/* STG/Optimised-C related stuff */
#include "MachRegs.h"
#include "Regs.h"
#include "TailCalls.h"
/* RTS public interface */
#include "RtsAPI.h"
/* these are all ANSI C headers */
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <assert.h>
#include <errno.h>
#include <stdio.h>
#ifdef HAVE_SIGNAL_H
#include <signal.h>
#endif
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
/* GNU mp library */
#include "gmp.h"
/* Wired-in Prelude identifiers */
#include "Prelude.h"
/* Storage Manager */
#include "StgStorage.h"
/* Macros for STG/C code */
#include "ClosureMacros.h"
#include "InfoMacros.h"
#include "StgMacros.h"
#include "StgProf.h"
#include "PrimOps.h"
#include "Updates.h"
#include "StgTicky.h"
#include "CCall.h"
#include "Stable.h"
/* Built-in entry points */
#include "StgMiscClosures.h"
/* Runtime-system hooks */
#include "Hooks.h"
/* Misc stuff without a home */
#if defined(ENABLE_WIN32_DLL_SUPPOT) && !defined(COMPILING_RTS)
extern DLLIMPORT char **prog_argv; /* so we can get at these from Haskell */
extern DLLIMPORT int prog_argc;
#else
extern char **prog_argv; /* so we can get at these from Haskell */
extern int prog_argc;
#endif
extern char **environ;
/* Creating and destroying an adjustor thunk.
I cannot make myself create a separate .h file
for these two (sof.)
*/
extern void* createAdjustor(int cconv, StgStablePtr hptr, StgFunPtr wptr);
extern void freeHaskellFunctionPtr(void* ptr);
#endif /* STG_H */
|
