/packages/libogcfpc/src/ogc/lwp_threadq.inc

https://github.com/slibre/freepascal · Pascal · 55 lines · 27 code · 21 blank · 7 comment · 0 complexity · e5f7bdb5493eb8517df477897fe8c38c MD5 · raw file 

    

  1. {$IFDEF OGC_INTERFACE}
    2. 

  2. const
    3. 

  3.   LWP_THREADQ_NOTIMEOUT = LWP_WD_NOTIMEOUT;
    4. 

  4. 

  5. function __lwp_threadqueue_firstfifo(queue: Plwp_thrqueue): Plwp_cntrl; cdecl; external;
    6. 

  6. 

  7. function __lwp_threadqueue_firstpriority(queue: Plwp_thrqueue): Plwp_cntrl; cdecl; external;
    8. 

  8. 

  9. procedure __lwp_threadqueue_enqueuefifo(queue: Plwp_thrqueue;
    10. 

  10.   thethread: Plwp_cntrl; timeout: cuint64); cdecl; external;
    11. 

  11. 

  12. function __lwp_threadqueue_dequeuefifo(queue: Plwp_thrqueue): Plwp_cntrl; cdecl; external;
    13. 

  13. 

  14. procedure __lwp_threadqueue_enqueuepriority(queue: Plwp_thrqueue;
    15. 

  15.   thethread: Plwp_cntrl; timeout: cuint64); cdecl; external;
    16. 

  16. 

  17. function __lwp_threadqueue_dequeuepriority(queue: Plwp_thrqueue): Plwp_cntrl; cdecl; external;
    18. 

  18. 

  19. procedure __lwp_threadqueue_init(queue: Plwp_thrqueue;
    20. 

  20.   mode, state, timeout_state: cuint32); cdecl; external;
    21. 

  21. 

  22. function __lwp_threadqueue_first(queue: Plwp_thrqueue): Plwp_cntrl; cdecl; external;
    23. 

  23. 

  24. procedure __lwp_threadqueue_enqueue(queue: Plwp_thrqueue; timeout: cuint64); cdecl; external;
    25. 

  25. 

  26. function __lwp_threadqueue_dequeue(queue: Plwp_thrqueue): Plwp_cntrl; cdecl; external;
    27. 

  27. 

  28. procedure __lwp_threadqueue_flush(queue: Plwp_thrqueue; status: cuint32); cdecl; external;
    29. 

  29. 

  30. procedure __lwp_threadqueue_extract(queue: Plwp_thrqueue; thethread: Plwp_cntrl); cdecl; external;
    31. 

  31. 

  32. procedure __lwp_threadqueue_extractfifo(queue: Plwp_thrqueue;
    33. 

  33.   thethread: Plwp_cntrl); cdecl; external;
    34. 

  34. 

  35. procedure __lwp_threadqueue_extractpriority(queue: Plwp_thrqueue;
    36. 

  36.   thethread: Plwp_cntrl); cdecl; external;
    37. 

  37. 

  38. function __lwp_threadqueue_extractproxy(thethread: Plwp_cntrl): cuint32; cdecl; external;
    39. 

  39. 

  40. 

  41. //#ifdef LIBOGC_INTERNAL
    42. 

  42. //#include <libogc/lwp_threadq.inl>
    43. 

  43. //#endif
    44. 

  44. 

  45. procedure __lwp_threadqueue_csenter(var queue: lwp_thrqueue); inline;
    46. 

  46. {$ENDIF}
    47. 

  47. 

  48. {$IFDEF OGC_IMPLEMENTATION}
    49. 

  49. procedure __lwp_threadqueue_csenter(var queue: lwp_thrqueue); inline;
    50. 

  50. begin
    51. 

  51.   queue.sync_state := LWP_THREADQ_NOTHINGHAPPEND;
    52. 

  52. end;
    53. 

  53. {$ENDIF}
    54.