suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

shortcut phase-shifting certs when no shift occurs

Browse Source 
otherwise, space consumption can go out of control
 Merge to 5.0
This commit is contained in:
Matthew Flatt 2010-06-03 11:06:51 -06:00
parent ff3d60c04c
commit d76e361af4
1 changed files with 21 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/racket/src/stxobj.c
View File

@ -2350,24 +2350,31 @@ static void phase_shift_certs(Scheme_Object *o, Scheme_Object *owner_wraps, int
/* Clone certs list, phase-shifting each cert */
for (i = 0; i < 2; i++) {
int changed = 0;
certs = (i ? acerts : icerts);
first = last = NULL;
while (certs) {
a = scheme_modidx_shift(certs->modidx, modidx_shift_from, modidx_shift_to);
c = cons_cert(certs->mark, a, certs->insp, certs->key, NULL);
c->mapped = certs->mapped;
c->depth = certs->depth;
if (first)
last->next = c;
else
first = c;
last = c;
certs = certs->next;
a = scheme_modidx_shift(certs->modidx, modidx_shift_from, modidx_shift_to);
if (!SAME_OBJ(a, certs->modidx)) changed++;
c = cons_cert(certs->mark, a, certs->insp, certs->key, NULL);
c->mapped = certs->mapped;
c->depth = certs->depth;
if (first)
last->next = c;
else
first = c;
last = c;
certs = certs->next;
}
if (changed) {
if (i)
acerts = first;
else
icerts = first;
}
if (i)
acerts = first;
else
icerts = first;
}
/* Even if icerts is NULL, may preserve the pair in ->certs,