void chpl_task_sleep(double secs) {
  double t, end_t;
  enter_();
  t = cur_time();
  end_t = t + secs;
  while (t < end_t) {
    myth_yield();
    t = cur_time();
  }
  return_from_();
}
Beispiel #2
0
void accalt_yield_to(ACCALT_ult ult) {
#ifdef ARGOBOTS
    ABT_thread_yield_to(ult);
#endif
#ifdef MASSIVETHREADS
    myth_yield(0);
#endif
#ifdef QTHREADS
    qthread_yield();
#endif
}
Beispiel #3
0
void accalt_yield() {
#ifdef ARGOBOTS
    ABT_thread_yield();
#endif
#ifdef MASSIVETHREADS
    myth_yield(0);
#endif
#ifdef QTHREADS
    qthread_yield();
#endif
}
//
// Yield.
//
void chpl_task_yield(void) {
  enter_();
  myth_yield();
  return_from_();
}