blob: c8315385908c0bfdb874d4a9724a058ebab1b0da (
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
|
/* To initialize and resize the stacks */
#include <string.h>
#include "config.h"
#include "fail.h"
#include "misc.h"
#include "mlvalues.h"
#include "stacks.h"
value * stack_low;
value * stack_high;
value * stack_threshold;
value * extern_sp;
value * trapsp;
value global_data;
void init_stack()
{
stack_low = (value *) stat_alloc(Stack_size);
stack_high = stack_low + Stack_size / sizeof (value);
stack_threshold = stack_low + Stack_threshold / sizeof (value);
extern_sp = stack_high;
trapsp = stack_high;
}
void realloc_stack()
{
asize_t size;
value * new_low, * new_high, * new_sp;
value * p;
Assert(extern_sp >= stack_low);
size = stack_high - stack_low;
if (size >= Max_stack_size)
raise_out_of_memory();
size *= 2;
gc_message ("Growing stack to %ld kB.\n",
(long) size * sizeof(value) / 1024);
new_low = (value *) stat_alloc(size * sizeof(value));
new_high = new_low + size;
#define shift(ptr) \
((char *) new_high - ((char *) stack_high - (char *) (ptr)))
new_sp = (value *) shift(extern_sp);
bcopy((char *) extern_sp,
(char *) new_sp,
(stack_high - extern_sp) * sizeof(value));
stat_free((char *) stack_low);
trapsp = (value *) shift(trapsp);
for (p = trapsp; p < new_high; p = Trap_link(p))
Trap_link(p) = (value *) shift(Trap_link(p));
stack_low = new_low;
stack_high = new_high;
stack_threshold = stack_low + Stack_threshold / sizeof (value);
extern_sp = new_sp;
#undef shift
}
|
