view src/putdown_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 putdown_lfork(struct PhilsImpl* phils, __code next(...)) {
    struct AtomicT_int* left_fork = phils->Leftfork;
    goto left_fork->set(-1, thinking);
}