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
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
|
#include <stdio.h>
#include "att.h"
/* bfd support */
#ifdef HAVE_LIBBFD
# undef SPECIAL_RSYM
# undef RSYM_COMMAND
# define SEPARATE_SFASL_FILE "sfaslbfd.c"
#else
# define SEPARATE_SFASL_FILE "sfaslcoff.c"
# define SPECIAL_RSYM "rsym_nt.c"
# define RSYM_COMMAND(command,system_directory,kcl_self,tmpfile1) \
sprintf(command,"rsym %s %s",kcl_self,tmpfile1);
#endif
/* Stratified garbage collection - need mprotect() (at least) */
/*#define SGC*/
#define MP386
#define GCL
/* #define filehdr _IMAGE_FILE_HEADER */
#define RUN_PROCESS
#define f_symptr PointerToSymbolTable
#define f_nsyms NumberOfSymbols
#define NO_PWD_H
#define signals_pending *signalsPendingPtr
#undef DBEGIN_TY
#define DBEGIN_TY unsigned int
extern DBEGIN_TY _stacktop, _stackbottom, _dbegin;
#define NO_SYS_PARAM_H
#define NO_SYS_TIMES_H
#ifdef IN_UNIXTIME
# undef ATT
# undef BSD
#endif
#undef NEED_GETWD
#define GETCWD
#define IS_DIR_SEPARATOR(x) ((x=='/')||(x=='\\'))
#ifdef IN_UNIXFSYS
# undef ATT
# define HAVE_RENAME
#endif
#define SIGBUS 7
#ifndef SIGKILL
#define SIGKILL 9
#endif
#define SIGUSR1 10
#define SIGUSR2 12
#define SIGPIPE 13
#define SIGALRM 14
#if 0
#define SIGIO 23
#endif
#define SIGIO 29
#define OTHER_SIGNALS_HANDLED SIGTERM,SIGKILL,SIGABRT,
#define SIG_BLOCK 0 /* for blocking signals */
#define SIG_UNBLOCK 1 /* for unblocking signals */
#define SIG_SETMASK 2 /* for setting the signal mask */
#define HAVE_SIGPROCMASK
#define NEED_TO_REINSTALL_SIGNALS
/*#define HAVE_SIGACTION*/
#define SV_ONSTACK 0
#define SA_RESTART 0
/* on most machines this will test in one instruction
if the pointe/r is on the C stack or the 0 pointer
in winnt our heap starts at DBEGIN
*/
/* #define NULL_OR_ON_C_STACK(y) \ */
/* (((unsigned int)(y)) == 0 || \ */
/* (((unsigned int)(y)) > _stacktop && ((unsigned int)(y)) < _stackbottom)) */
/* #define NULL_OR_ON_C_STACK(x) (!(int *)x || ((int *)x>cs_limit && (int *)x<=cs_org)) */
#if defined ( IN_FILE ) || defined ( IN_SOCKETS )
# define HAVE_NSOCKET
#endif
#define brk(x) ;
/* use the slightly older unexec */
#define UNIXSAVE "unexnt.c"
#define RECREATE_HEAP { recreate_heap1(); \
terminal_io->sm.sm_object1->sm.sm_fp=stdout; \
terminal_io->sm.sm_object0->sm.sm_fp=stdin; \
init_shared_memory();}
#define HAVE_AOUT "wincoff.h"
/* we dont need to worry about zeroing fp->_base , to prevent */
/* must use seek to go to beginning of string table */
/* #define MUST_SEEK_TO_STROFF */
/* #define N_STROFF(hdr) ((&hdr)->f_symptr+((&hdr)->f_nsyms)*SYMESZ) */
#define TO_NUMBER(ptr,type) (*((type *)(void *)(ptr)))
#define SEEK_TO_END_OFILE(fp) do { struct filehdr fileheader; int i; \
fseek(fp,0,0) ; \
fread(&fileheader, sizeof(fileheader), 1, fp); \
fseek(fp, fileheader.f_symptr+fileheader.f_nsyms*SYMESZ, 0); \
fread(&i, sizeof(i), 1, fp); \
fseek(fp, i - sizeof(i), 1); \
while ((i = getc(fp)) == 0) \
; \
ungetc(i, fp); \
} while (0)
#define IEEEFLOAT
#define I386
/* include some low level routines for maxima */
#define CMAC
#define RELOC_FILE "rel_coff.c"
/* FIONREAD not supported */
#undef LISTEN_FOR_INPUT
/* adjust the start to the offset */
#define ADJUST_RELOC_START(j) \
the_start = memory->cfd.cfd_start + \
(j == DATA_NSCN ? textsize : 0);
#define IF_ALLOCATE_ERR \
if (core_end != sbrk(0))\
{char * e = sbrk(0); \
if (e - core_end < 0x10000 ) { \
int i; \
for (i=page(core_end); i < page(e); i++) { \
\
} \
core_end = e; \
} \
else \
error("Someone allocated my memory!");} \
if (core_end != (sbrk(PAGESIZE*(n - m))))
#define USE_INTERNAL_REAL_TIME_FOR_RUNTIME
/* Use this pending test in configure */
#define NO_MKSTEMP
#define DOES_CRLF
extern char *GCLExeName ( void );
#define GET_FULL_PATH_SELF(a_) do {\
(a_)=GCLExeName();\
} while(0)
/* Needed if optimiser moves object initialisation code around. */
#define FIND_INIT \
{ if (*ptr==0 && (NTYPE(sym) == TEXT_NSCN) && sym->n_value ) \
{ char tem [9]; \
char *str; \
tem[8]='\0'; \
str=SYM_NAME(sym); \
dprintf(find init: %s ,str); \
if ( str[1]=='i' && str[2]=='n' && str[3]=='i' && str[4]=='t' \
&& str[5]=='_' && str[0]== '_' ) \
*ptr= sym->n_value ; \
else {/* printf("The first data symbol was not the init");*/} \
} }
#if 1
#ifdef getc
#undef getc
#endif
#define getc fgetc
#endif
/* Begin for cmpinclude */
/* End for cmpinclude */
extern int mingwlisten(FILE *);
#undef LISTEN_FOR_INPUT
#define LISTEN_FOR_INPUT(fp) do {if (mingwlisten(fp)) return 0;} while (0)
#define socklen_t int
#undef DBEGIN
#define DBEGIN _dbegin
#define NOFREE_ERR
#define FPE_CODE(i_,v_) make_fixnum((long)fSfpe_code((long)FFN(fSfnstsw)(),(long)FFN(fSstmxcsr)()))
#define FPE_ADDR(i_,v_) make_fixnum(0)
#define FPE_CTXT(v_) Cnil
#define FPE_INIT Cnil
#ifndef FE_INVALID
#define FE_INVALID 1
#define FE_DIVBYZERO 4
#define FE_OVERFLOW 8
#define FE_UNDERFLOW 16
#define FE_INEXACT 32
#endif
#define FPE_FLTDIV 3
#define FPE_FLTOVF 4
#define FPE_FLTUND 5
#define FPE_FLTRES 6
#define FPE_FLTINV 7
#include <limits.h>
#define NO_FILE_LOCKING /*FIXME*/
|
