rarias/ovni
rarias/ovni
1
0
Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Simplify openmp mode hooks

Browse Source
This commit is contained in:
Rodrigo Arias 2021-10-19 10:25:08 +02:00
parent 29b7662e41
commit 9f87c2a7a0
1 changed files with 10 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
emu_openmp.c
View File

@ -47,44 +47,27 @@ hook_init_openmp(struct ovni_emu *emu)
/* --------------------------- pre ------------------------------- */ /* --------------------------- pre ------------------------------- */
static void static void
pre_task(struct ovni_emu *emu) pre_mode(struct ovni_emu *emu, int st)
{ {
struct ovni_ethread *th; struct ovni_ethread *th;
struct ovni_chan *chan;
th = emu->cur_thread; th = emu->cur_thread;
chan = &th->chan[CHAN_OPENMP_MODE];
switch(emu->cur_ev->header.value) switch(emu->cur_ev->header.value)
{ {
case '[': case '[':
chan_push(&th->chan[CHAN_OPENMP_MODE], ST_OPENMP_TASK); chan_push(chan, st);
break; break;
case ']': case ']':
chan_pop(&th->chan[CHAN_OPENMP_MODE], ST_OPENMP_TASK); chan_pop(chan, st);
break; break;
default: default:
abort(); err("unexpected value '%c' (expecting '[' or ']')\n",
} emu->cur_ev->header.value);
} abort();
static void
pre_barrier(struct ovni_emu *emu)
{
struct ovni_ethread *th;
th = emu->cur_thread;
switch(emu->cur_ev->header.value)
{
case '[':
chan_push(&th->chan[CHAN_OPENMP_MODE], ST_OPENMP_PARALLEL);
break;
case ']':
chan_pop(&th->chan[CHAN_OPENMP_MODE], ST_OPENMP_PARALLEL);
break;
default:
abort();
} }
} }
@ -95,8 +78,8 @@ hook_pre_openmp(struct ovni_emu *emu)
switch(emu->cur_ev->header.category) switch(emu->cur_ev->header.category)
{ {
case 'T': pre_task(emu); break; case 'T': pre_mode(emu, ST_OPENMP_TASK); break;
case 'P': pre_barrier(emu); break; case 'P': pre_mode(emu, ST_OPENMP_PARALLEL); break;
default: default:
break; break;
} }