xfnw/plan9fox
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

better memory management of threads (thanks knuth)

Browse source
This commit is contained in:
ben 2016-04-27 17:36:43 -05:00
parent 86e0099835
commit 3bf6ef0196
5 changed files with 64 additions and 51 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
sys/include/regexp.h
View file

@ -39,7 +39,6 @@ struct Reprog
{
Reinst *startinst;
Rethread *threads;
Rethread **thrpool;
char *regstr;
int len;
int nthr;

6
sys/src/libregexp/mkfile
View file

@ -20,9 +20,3 @@ UPDATE=\
${LIB:/$objtype/%=/386/%}\
</sys/src/cmd/mksyslib
$O.regextest: tests/regextest.$O $LIB
$LD -o $target regextest.$O
$O.sysregextest: tests/sysregextest.$O
$LD -o $target sysregextest.$O

4
sys/src/libregexp/regcomp.c
View file

@ -190,13 +190,11 @@ regcomp1(char *regstr, int nl, int lit)
// prtree(parsetr, 0, 1);
reprog = malloc(sizeof(Reprog) +
sizeof(Reinst) * plex.instrs +
sizeof(Rethread) * maxthr +
sizeof(Rethread*) * maxthr);
sizeof(Rethread) * maxthr);
reprog->len = plex.instrs;
reprog->nthr = maxthr;
reprog->startinst = compile(parsetr, reprog, nl);
reprog->threads = (Rethread*)(reprog->startinst + reprog->len);
reprog->thrpool = (Rethread**)(reprog->threads + reprog->nthr);
reprog->regstr = regstr;
free(plex.nodes);

51
sys/src/libregexp/regexec.c
View file

@ -14,7 +14,7 @@ int
regexec(Reprog *prog, char *str, Resub *sem, int msize)
{
RethreadQ lists[2], *clist, *nlist, *tmp;
Rethread *t, *nextthr, **availthr;
Rethread *t, *next, *pooltop, *avail;
Reinst *curinst;
Rune r;
char *sp, *ep, endc;
@ -35,9 +35,8 @@ regexec(Reprog *prog, char *str, Resub *sem, int msize)
nlist->head = nil;
nlist->tail = &nlist->head;
for(i = 0; i < prog->nthr; i++)
prog->thrpool[i] = prog->threads + i;
availthr = prog->thrpool + prog->nthr;
pooltop = prog->threads + prog->nthr;
avail = nil;
pri = matchpri = gen = match = 0;
sp = str;
@ -71,14 +70,14 @@ Again:
goto Done;
case OANY: /* fallthrough */
Any:
nextthr = t->next;
next = t->next;
t->pc = curinst + 1;
t->next = nil;
*nlist->tail = t;
nlist->tail = &t->next;
if(nextthr == nil)
if(next == nil)
break;
t = nextthr;
t = next;
curinst = t->pc;
goto Again;
case OCLASS:
@ -89,14 +88,14 @@ Again:
curinst++;
goto Class;
}
nextthr = t->next;
next = t->next;
t->pc = curinst->a;
t->next = nil;
*nlist->tail = t;
nlist->tail = &t->next;
if(nextthr == nil)
if(next == nil)
break;
t = nextthr;
t = next;
curinst = t->pc;
goto Again;
case ONOTNL:
@ -123,13 +122,18 @@ Again:
curinst = curinst->a;
goto Again;
case OSPLIT:
nextthr = *--availthr;
nextthr->pc = curinst->b;
if(avail == nil)
next = --pooltop;
else {
next = avail;
avail = avail->next;
}
next->pc = curinst->b;
if(msize > 0)
memcpy(nextthr->sem, t->sem, sizeof(Resub)*msize);
nextthr->pri = t->pri;
nextthr->next = t->next;
t->next = nextthr;
memcpy(next->sem, t->sem, sizeof(Resub)*msize);
next->pri = t->pri;
next->next = t->next;
t->next = next;
curinst = curinst->a;
goto Again;
case OSAVE:
@ -155,10 +159,12 @@ Again:
curinst++;
goto Again;
Done:
*availthr++ = t;
t = t->next;
if(t == nil)
next = t->next;
t->next = avail;
avail = t;
if(next == nil)
break;
t = next;
curinst = t->pc;
goto Again;
}
@ -166,7 +172,12 @@ Start:
/* Start again once if we haven't found anything. */
if(first == 1 && match == 0) {
first = 0;
t = *--availthr;
if(avail == nil)
t = --pooltop;
else {
t = avail;
avail = avail->next;
}
if(msize > 0)
memset(t->sem, 0, sizeof(Resub)*msize);
/* "Lower" priority thread */

53
sys/src/libregexp/rregexec.c
View file

@ -14,10 +14,10 @@ int
rregexec(Reprog *prog, Rune *str, Resub *sem, int msize)
{
RethreadQ lists[2], *clist, *nlist, *tmp;
Rethread *t, *nextthr, **availthr;
Rethread *t, *next, *pooltop, *avail;
Reinst *curinst;
Rune *rsp, *rep, endr, last;
int i, match, first, gen, pri, matchpri;
int match, first, gen, pri, matchpri;
if(msize > NSUBEXPM)
msize = NSUBEXPM;
@ -34,9 +34,8 @@ rregexec(Reprog *prog, Rune *str, Resub *sem, int msize)
nlist->head = nil;
nlist->tail = &nlist->head;
for(i = 0; i < prog->nthr; i++)
prog->thrpool[i] = prog->threads + i;
availthr = prog->thrpool + prog->nthr;
pooltop = prog->threads + prog->nthr;
avail = nil;
pri = matchpri = gen = match = 0;
rsp = str;
@ -70,14 +69,14 @@ Again:
goto Done;
case OANY: /* fallthrough */
Any:
nextthr = t->next;
next = t->next;
t->pc = curinst + 1;
t->next = nil;
*nlist->tail = t;
nlist->tail = &t->next;
if(nextthr == nil)
if(next == nil)
break;
t = nextthr;
t = next;
curinst = t->pc;
goto Again;
case OCLASS:
@ -88,14 +87,14 @@ Again:
curinst++;
goto Class;
}
nextthr = t->next;
next = t->next;
t->pc = curinst->a;
t->next = nil;
*nlist->tail = t;
nlist->tail = &t->next;
if(nextthr == nil)
if(next == nil)
break;
t = nextthr;
t = next;
curinst = t->pc;
goto Again;
case ONOTNL:
@ -122,13 +121,18 @@ Again:
curinst = curinst->a;
goto Again;
case OSPLIT:
nextthr = *--availthr;
nextthr->pc = curinst->b;
if(avail == nil)
next = --pooltop;
else {
next = avail;
avail = avail->next;
}
next->pc = curinst->b;
if(msize > 0)
memcpy(nextthr->sem, t->sem, sizeof(Resub)*msize);
nextthr->pri = t->pri;
nextthr->next = t->next;
t->next = nextthr;
memcpy(next->sem, t->sem, sizeof(Resub)*msize);
next->pri = t->pri;
next->next = t->next;
t->next = next;
curinst = curinst->a;
goto Again;
case OSAVE:
@ -154,10 +158,12 @@ Again:
curinst++;
goto Again;
Done:
*availthr++ = t;
t = t->next;
if(t == nil)
next = t->next;
t->next = avail;
avail = t;
if(next == nil)
break;
t = next;
curinst = t->pc;
goto Again;
}
@ -165,7 +171,12 @@ Start:
/* Start again once if we haven't found anything. */
if(first == 1 && match == 0) {
first = 0;
t = *--availthr;
if(avail == nil)
t = --pooltop;
else {
t = avail;
avail = avail->next;
}
if(msize > 0)
memset(t->sem, 0, sizeof(Resub)*msize);
/* "Lower" priority thread */