mirror of
git://projects.qi-hardware.com/iris.git
synced 2024-07-02 20:04:32 +03:00
13 lines
232 B
COBOL
13 lines
232 B
COBOL
#pypp 0
|
|
#include "kernel.hh"
|
|
|
|
void schedule ():
|
|
Thread *old = current
|
|
current = current->schedule_next
|
|
if !current:
|
|
current = first_scheduled
|
|
if !current:
|
|
current = &idle
|
|
if old != current:
|
|
arch_schedule (old, current)
|