00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040
00041
00042
00043
00044
00045
00046
00047
00048
00187 #include <cfg/os.h>
00188 #include <cfg/memory.h>
00189
00190 #include <string.h>
00191
00192 #include <sys/types.h>
00193 #include <sys/heap.h>
00194 #include <sys/atom.h>
00195 #include <sys/timer.h>
00196 #include <sys/event.h>
00197 #include <sys/thread.h>
00198
00199 #ifdef NUTDEBUG
00200 #include <sys/osdebug.h>
00201 #endif
00202
00203 #ifdef NUTTRACER
00204 #include <sys/tracer.h>
00205 #endif
00206
00211
00212 #if defined(NUT_CRITICAL_NESTING) && !defined(NUT_CRITICAL_NESTING_STACK)
00213 u_int critical_nesting_level;
00214 #endif
00215
00216 #if defined(__linux__) || defined(__APPLE__) || defined(__CYGWIN__)
00217
00218 extern void NutUnixThreadYieldHook(void);
00219 #endif
00220
00227 NUTTHREADINFO * runningThread;
00228
00235 NUTTHREADINFO * killedThread;
00236
00245 NUTTHREADINFO * nutThreadList;
00246
00254 NUTTHREADINFO * runQueue;
00255
00256
00257
00268 void NutThreadAddPriQueue(NUTTHREADINFO * td, NUTTHREADINFO * volatile *tqpp)
00269 {
00270 NUTTHREADINFO *tqp;
00271
00272 td->td_queue = (HANDLE) tqpp;
00273 td->td_qpec = 0;
00274
00275
00276
00277
00278
00279
00280 NutEnterCritical();
00281 tqp = *tqpp;
00282
00283 if (tqp == SIGNALED) {
00284 tqp = 0;
00285 td->td_qpec++;
00286 } else if (tqp) {
00287 NutExitCritical();
00288
00289
00290 while (tqp && tqp->td_priority <= td->td_priority) {
00291 tqpp = &tqp->td_qnxt;
00292 tqp = tqp->td_qnxt;
00293 }
00294
00295 NutEnterCritical();
00296 }
00297
00298 td->td_qnxt = tqp;
00299
00300 *tqpp = td;
00301 if (td->td_qnxt && td->td_qnxt->td_qpec) {
00302 td->td_qpec += td->td_qnxt->td_qpec;
00303 td->td_qnxt->td_qpec = 0;
00304 }
00305 NutExitCritical();
00306 }
00307
00318 void NutThreadRemoveQueue(NUTTHREADINFO * td, NUTTHREADINFO * volatile *tqpp)
00319 {
00320 NUTTHREADINFO *tqp;
00321
00322 NutEnterCritical();
00323 tqp = *tqpp;
00324 NutExitCritical();
00325
00326 if (tqp != SIGNALED) {
00327 while (tqp) {
00328 if (tqp == td) {
00329 NutEnterCritical();
00330 *tqpp = td->td_qnxt;
00331 if (td->td_qpec) {
00332 if (td->td_qnxt) {
00333 td->td_qnxt->td_qpec = td->td_qpec;
00334 }
00335 td->td_qpec = 0;
00336 }
00337 NutExitCritical();
00338
00339 td->td_qnxt = 0;
00340 td->td_queue = 0;
00341 break;
00342 }
00343 tqpp = &tqp->td_qnxt;
00344 tqp = tqp->td_qnxt;
00345 }
00346 }
00347 }
00348
00359 void NutThreadResume(void)
00360 {
00361 NUTTHREADINFO *td;
00362 NUTTHREADINFO **qhp;
00363 NUTTHREADINFO *tqp;
00364 u_int cnt;
00365
00366
00367
00368
00369 td = nutThreadList;
00370 while (td) {
00371 NutEnterCritical();
00372 cnt = td->td_qpec;
00373 NutExitCritical();
00374 if (cnt) {
00375
00376
00377 qhp = (NUTTHREADINFO **)(td->td_queue);
00378 NutEnterCritical();
00379 td->td_qpec--;
00380 tqp = *qhp;
00381 NutExitCritical();
00382 if (tqp != SIGNALED) {
00383 NutEventPostAsync((HANDLE *)qhp);
00384 }
00385 }
00386 td = td->td_next;
00387 }
00388
00389
00390
00391
00392
00393 NutTimerProcessElapsed();
00394
00395
00396 if (runningThread != runQueue) {
00397 #ifdef NUTTRACER
00398 TRACE_ADD_ITEM(TRACE_TAG_THREAD_YIELD,(int)runningThread);
00399 #endif
00400
00401 if (runningThread->td_state == TDS_RUNNING) {
00402 runningThread->td_state = TDS_READY;
00403 }
00404 NutEnterCritical();
00405 NutThreadSwitch();
00406 NutExitCritical();
00407 }
00408 }
00409
00427 void NutThreadWake(HANDLE timer, HANDLE th)
00428 {
00429
00430 ((NUTTHREADINFO *) th)->td_timer = 0;
00431 ((NUTTHREADINFO *) th)->td_state = TDS_READY;
00432 NutThreadAddPriQueue(th, (NUTTHREADINFO **) & runQueue);
00433 }
00434
00443 void NutThreadYield(void)
00444 {
00445
00446 #if defined(__linux__) || defined(__APPLE__) || defined(__CYGWIN__)
00447 NutEnterCritical();
00448 NutUnixThreadYieldHook();
00449 NutExitCritical();
00450 #endif
00451
00452
00453
00454
00455
00456
00457 if (runningThread->td_qnxt) {
00458 NutThreadRemoveQueue(runningThread, (NUTTHREADINFO **) & runQueue);
00459 NutThreadAddPriQueue(runningThread, (NUTTHREADINFO **) & runQueue);
00460 }
00461
00462
00463 NutThreadResume();
00464 }
00465
00493 u_char NutThreadSetPriority(u_char level)
00494 {
00495 u_char last = runningThread->td_priority;
00496
00497
00498
00499
00500
00501
00502 NutThreadRemoveQueue(runningThread, &runQueue);
00503 runningThread->td_priority = level;
00504 if (level < 255) {
00505 NutThreadAddPriQueue(runningThread, (NUTTHREADINFO **) & runQueue);
00506 } else {
00507 NutThreadKill();
00508 }
00509
00510
00511
00512
00513
00514 if (runningThread == runQueue) {
00515 runningThread->td_state = TDS_RUNNING;
00516 } else {
00517 runningThread->td_state = TDS_READY;
00518 #ifdef NUTTRACER
00519 TRACE_ADD_ITEM(TRACE_TAG_THREAD_SETPRIO,(int)runningThread);
00520 #endif
00521
00522 NutEnterCritical();
00523 NutThreadSwitch();
00524 NutExitCritical();
00525 }
00526
00527 return last;
00528 }
00529
00540 void NutThreadExit(void)
00541 {
00542 NutThreadSetPriority(255);
00543 }
00544
00554 void NutThreadDestroy(void)
00555 {
00556 if (killedThread) {
00557 NutStackFree(killedThread->td_memory);
00558 killedThread = 0;
00559 }
00560 }
00561
00569 void NutThreadKill(void)
00570 {
00571
00572 NUTTHREADINFO *pCur = nutThreadList;
00573 NUTTHREADINFO **pp = (NUTTHREADINFO **) & nutThreadList;
00574
00575
00576 NutThreadDestroy();
00577
00578
00579 while (pCur) {
00580 if (pCur == runningThread) {
00581 *pp = pCur->td_next;
00582 break;
00583 }
00584
00585 pp = (NUTTHREADINFO **) & pCur->td_next;
00586 pCur = pCur->td_next;
00587 }
00588
00589
00590 killedThread = runningThread;
00591 }
00592
00602 HANDLE GetThreadByName(char * name)
00603 {
00604 NUTTHREADINFO *tdp;
00605
00606 for (tdp = nutThreadList; tdp; tdp = tdp->td_next) {
00607 if (strcmp(tdp->td_name, name) == 0)
00608 return tdp;
00609 }
00610 return NULL;
00611 }
00612