d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

fixed: resulted in memory faults in rare cases

Browse source
This commit is contained in:
ceriel 1987-08-17 20:32:00 +00:00
parent 939cc2432e
commit b53309f9f6
1 changed files with 18 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lang/cem/cemcom/ival.g
View file

@ -38,6 +38,7 @@ extern char options[];
static int gen_error; static int gen_error;
struct type **gen_tphead(), **gen_tpmiddle(); struct type **gen_tphead(), **gen_tpmiddle();
struct sdef *gen_align_to_next(); struct sdef *gen_align_to_next();
struct e_stack *p_stack;
} }
/* initial_value recursively guides the initialisation expression. /* initial_value recursively guides the initialisation expression.
@ -61,9 +62,22 @@ initial_value(register struct type **tpp; register struct expr **expp;) :
] ]
; ;
initial_value_pack(struct type **tpp; struct expr **expp;) : initial_value_pack(struct type **tpp; struct expr **expp;)
{ static int level; }
:
'{' '{'
{ if (level == 0) gen_error = 0; level++; }
initial_value_list(tpp, expp) initial_value_list(tpp, expp)
{ level--;
if (! level) {
while (p_stack) {
struct e_stack *p = p_stack->next;
free_e_stack(p_stack);
p_stack = p;
}
}
}
'}' '}'
; ;
@ -140,8 +154,6 @@ gen_simple_exp(tpp, expp)
} }
} }
struct e_stack *p_stack;
struct type ** struct type **
arr_elem(tpp, p) arr_elem(tpp, p)
struct type **tpp; struct type **tpp;
@ -178,10 +190,11 @@ gen_tphead(tpp, nest)
struct type **tpp; struct type **tpp;
{ {
register struct type *tp = *tpp; register struct type *tp = *tpp;
register struct e_stack *p = new_e_stack(); register struct e_stack *p;
register struct sdef *sd; register struct sdef *sd;
if (gen_error) return tpp; if (gen_error) return tpp;
p = new_e_stack();
p->next = p_stack; p->next = p_stack;
p_stack = p; p_stack = p;
p->s_nested = nest; p->s_nested = nest;
@ -223,7 +236,7 @@ gen_tpmiddle()
register struct sdef *sd; register struct sdef *sd;
register struct e_stack *p = p_stack; register struct e_stack *p = p_stack;
if (gen_error) return p->s_tpp; if (gen_error) if (p) return p->s_tpp; else return 0;
again: again:
tp = *(p->s_tpp); tp = *(p->s_tpp);
switch(tp->tp_fund) { switch(tp->tp_fund) {