| … | |
… | |
| 159 | int nesting; |
159 | int nesting; |
| 160 | |
160 | |
| 161 | char gc_verbose; /* if gc_verbose is not zero, print gc status */ |
161 | char gc_verbose; /* if gc_verbose is not zero, print gc status */ |
| 162 | char no_memory; /* Whether mem. alloc. has failed */ |
162 | char no_memory; /* Whether mem. alloc. has failed */ |
| 163 | |
163 | |
| 164 | #define LINESIZE 1024 |
|
|
| 165 | char linebuff[LINESIZE]; |
|
|
| 166 | #define STRBUFFSIZE 256 |
164 | #define STRBUFFSIZE 256 |
| 167 | char strbuff[STRBUFFSIZE]; |
165 | char strbuff[STRBUFFSIZE]; |
| 168 | |
166 | |
| 169 | int tmpfp; |
167 | int tmpfp; |
| 170 | int tok; |
168 | int tok; |
| … | |
… | |
| 179 | #define INTCACHE_MIN -10 |
177 | #define INTCACHE_MIN -10 |
| 180 | #define INTCACHE_MAX 32 |
178 | #define INTCACHE_MAX 32 |
| 181 | pointer intcache[INTCACHE_MAX - INTCACHE_MIN + 1]; |
179 | pointer intcache[INTCACHE_MAX - INTCACHE_MIN + 1]; |
| 182 | #endif |
180 | #endif |
| 183 | |
181 | |
| 184 | struct scheme_interface *vptr; |
|
|
| 185 | struct dump_stack_frame *dump_base; /* pointer to base of allocated dump stack */ |
182 | struct dump_stack_frame *dump_base; /* pointer to base of allocated dump stack */ |
| 186 | int dump_size; /* number of frames allocated for dump stack */ |
183 | int dump_size; /* number of frames allocated for dump stack */ |
| 187 | }; |
184 | }; |
| 188 | |
185 | |
| 189 | /* operator code */ |
186 | /* operator code */ |
