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

handle memory better

Browse source
This commit is contained in:
ceriel 1988-07-05 11:51:47 +00:00
parent bb3dc913a2
commit 849eeb9f61
1 changed files with 70 additions and 52 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

106
util/LLgen/src/LLgen.g
View file

@ -38,6 +38,15 @@ static p_order order,
maxorder; maxorder;
static p_term t_list; static p_term t_list;
static int t_cnt; static int t_cnt;
static p_gram alt_table;
static int n_alts;
static int max_alts;
#define ALTINCR 32
static p_gram rule_table;
static int n_rules;
static int max_rules;
#define RULEINCR 32
/* Here are defined : */ /* Here are defined : */
STATIC p_order neworder(); STATIC p_order neworder();
@ -64,17 +73,30 @@ neworder(index) {
else sorder = po; else sorder = po;
return po; return po;
} }
p_init()
{
alt_table = (p_gram )alloc(ALTINCR*sizeof(t_gram));
n_alts = 0;
max_alts = ALTINCR;
rule_table = (p_gram )alloc(RULEINCR*sizeof(t_gram));
n_rules = 0;
max_rules = RULEINCR;
}
} }
%start LLparse, spec; %start LLparse, spec;
spec : { acount = 0; } spec : { acount = 0; p_init(); }
[ %persistent def ]* [ %persistent def ]*
{ /* { /*
* Put an endmarker in temporary file * Put an endmarker in temporary file
*/ */
putc('\0', fact); putc('\0', fact);
putc('\0', fact); putc('\0', fact);
free((p_mem) rule_table);
free((p_mem) alt_table);
} }
; ;
@ -196,9 +218,7 @@ productions(p_gram *p;)
int conflres = 0; int conflres = 0;
int t = 0; int t = 0;
int haddefault = 0; int haddefault = 0;
p_gram alts = (p_gram) alloc(200 * sizeof(t_gram)); int altcnt = 0;
register p_gram p_alts = alts;
unsigned n_alts = 200;
int o_lc, n_lc; int o_lc, n_lc;
} : } :
{ o_lc = linecount; } { o_lc = linecount; }
@ -207,12 +227,10 @@ productions(p_gram *p;)
[ [
[ '|' { n_lc = linecount; } [ '|' { n_lc = linecount; }
simpleproduction(&prod,&t) simpleproduction(&prod,&t)
{ if (p_alts - alts == n_alts) { { if (n_alts >= max_alts-2) {
alts = (p_gram) ralloc( alt_table = (p_gram ) ralloc(
(p_mem) alts, (p_mem) alt_table,
(n_alts+100)*sizeof(t_gram)); (max_alts+=ALTINCR)*sizeof(t_gram));
p_alts = alts + n_alts;
n_alts += 100;
} }
if (t & DEF) { if (t & DEF) {
if (haddefault) { if (haddefault) {
@ -221,7 +239,8 @@ productions(p_gram *p;)
} }
haddefault = 1; haddefault = 1;
} }
mkalt(*p,conflres,o_lc,p_alts++); mkalt(*p,conflres,o_lc,&alt_table[n_alts++]);
altcnt++;
o_lc = n_lc; o_lc = n_lc;
conflres = t; conflres = t;
t = 0; t = 0;
@ -231,9 +250,10 @@ productions(p_gram *p;)
error(n_lc, error(n_lc,
"Resolver on last alternative not allowed"); "Resolver on last alternative not allowed");
} }
mkalt(*p,conflres,n_lc,p_alts++); mkalt(*p,conflres,n_lc,&alt_table[n_alts++]);
g_settype(p_alts,EORULE); altcnt++;
*p = copyrule(alts,p_alts+1-alts); g_settype((&alt_table[n_alts]),EORULE);
*p = copyrule(&alt_table[n_alts-altcnt],altcnt+1);
} }
| |
{ if (conflres & ~DEF) { { if (conflres & ~DEF) {
@ -248,7 +268,7 @@ productions(p_gram *p;)
*/ */
} }
] ]
{ free((p_mem) alts); } { n_alts -= altcnt; }
; ;
{ {
@ -277,10 +297,8 @@ mkalt(prod,condition,lc,res) p_gram prod; register p_gram res; {
} }
simpleproduction(p_gram *p; register int *conflres;) simpleproduction(p_gram *p; register int *conflres;)
{ p_gram rule = (p_gram) alloc(200 * sizeof(t_gram)); { t_gram elem;
unsigned n_rule = 200; int elmcnt = 0;
t_gram elem;
register p_gram p_rule = rule;
int cnt, kind; int cnt, kind;
int termdeleted = 0; int termdeleted = 0;
} : } :
@ -295,23 +313,21 @@ simpleproduction(p_gram *p; register int *conflres;)
| C_AVOID { *conflres |= AVOIDING; } | C_AVOID { *conflres |= AVOIDING; }
]? ]?
[ %persistent elem(&elem) [ %persistent elem(&elem)
{ if (p_rule - rule >= n_rule - 2) { { if (n_rules >= max_rules-2) {
rule = (p_gram) ralloc( rule_table = (p_gram) ralloc(
(p_mem) rule, (p_mem) rule_table,
(n_rule+100)*sizeof(t_gram)); (max_rules+=RULEINCR)*sizeof(t_gram));
p_rule = rule + n_rule - 2;
n_rule += 100;
} }
kind = FIXED; kind = FIXED;
cnt = 0; cnt = 0;
} }
[ repeats(&kind, &cnt) [ repeats(&kind, &cnt)
{ if (g_gettype(&elem) != TERM) { { if (g_gettype(&elem) != TERM) {
*p_rule = elem; rule_table[n_rules] = elem;
g_settype(p_rule+1,EORULE); g_settype((&rule_table[n_rules+1]),EORULE);
mkterm(copyrule(p_rule,2), mkterm(copyrule(&rule_table[n_rules],2),
0, 0,
p_rule->g_lineno, elem.g_lineno,
&elem); &elem);
} }
} }
@ -323,17 +339,17 @@ simpleproduction(p_gram *p; register int *conflres;)
g_gettype(q->t_rule) != ALTERNATION && g_gettype(q->t_rule) != ALTERNATION &&
g_gettype(q->t_rule) != EORULE) { g_gettype(q->t_rule) != EORULE) {
while (g_gettype(q->t_rule) != EORULE) { while (g_gettype(q->t_rule) != EORULE) {
*p_rule++ = *q->t_rule++; rule_table[n_rules++] = *q->t_rule++;
if (p_rule - rule >= n_rule - 2) { elmcnt++;
rule = (p_gram) ralloc( if (n_rules >= max_rules-2) {
(p_mem) rule, rule_table = (p_gram) ralloc(
(n_rule+100)*sizeof(t_gram)); (p_mem) rule_table,
p_rule = rule + n_rule - 2; (max_rules+=RULEINCR)*sizeof(t_gram));
n_rule += 100;
} }
} }
elem = *--(q->t_rule); elem = *--(q->t_rule);
p_rule--; n_rules--;
elmcnt--;
if (q == t_list - 1) { if (q == t_list - 1) {
t_list--; t_list--;
nterms--; nterms--;
@ -366,22 +382,24 @@ simpleproduction(p_gram *p; register int *conflres;)
*/ */
} }
termdeleted = 0; termdeleted = 0;
*p_rule++ = elem; elmcnt++;
rule_table[n_rules++] = elem;
} }
]* { register p_term q; ]* { register p_term q;
g_settype(p_rule,EORULE); g_settype((&rule_table[n_rules]),EORULE);
*p = 0; *p = 0;
if (g_gettype(&rule[0]) == TERM && n_rules -= elmcnt;
p_rule-rule == 1) { if (g_gettype(&rule_table[n_rules]) == TERM &&
q = g_getterm(&rule[0]); elmcnt == 1) {
q = g_getterm(&rule_table[n_rules]);
if (r_getkind(q) == FIXED && if (r_getkind(q) == FIXED &&
r_getnum(q) == 0) { r_getnum(q) == 0) {
*p = q->t_rule; *p = q->t_rule;
} }
} }
if (!*p) *p = copyrule(rule,p_rule-rule+1); if (!*p) *p = copyrule(&rule_table[n_rules],
free((p_mem) rule); elmcnt+1);
} }
; ;
{ {