view src/pickup_lfork.cbc @ 6:958c69a33b37 default tip

fix presen
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Wed, 26 May 2021 14:04:14 +0900
parents 67e6ca3c7e6c
children
line wrap: on
line source

 code pickup_lfork(PhilsPtr self,
  TaskPtr current_task)
{
    if (self->left_fork->owner == NULL) {
        self->left_fork->owner = self;
        self->next = pickup_rfork;
        goto scheduler(self, current_task);
    } else {
        self->next = hungry1;
        goto scheduler(self, current_task);
}