/packages/libc/src/ssemh.inc

https://github.com/slibre/freepascal · Pascal · 25 lines · 15 code · 7 blank · 3 comment · 0 complexity · 5dca70e510a26404f788cd37b64fcb07 MD5 · raw file 

    

  1. type
    2. 

  2.    Psembuf = ^sembuf;
    3. 

  3.    sembuf = record
    4. 

  4.         sem_num : word;
    5. 

  5.         sem_op : smallint;
    6. 

  6.         sem_flg : smallint;
    7. 

  7.      end;
    8. 

  8. 

  9. 

  10. function semctl(__semid:longint; __semnum:longint; __cmd:longint; args:array of const):longint;cdecl;external clib name 'semctl';
    11. 

  11. function semctl(__semid:longint; __semnum:longint; __cmd:longint):longint;varargs;cdecl;external clib name 'semctl';
    12. 

  12. function semget(__key:key_t; __nsems:longint; __semflg:longint):longint;cdecl;external clib name 'semget';
    13. 

  13. function semop(__semid:longint; __sops:psembuf; __nsops:size_t):longint;cdecl;external clib name 'semop';
    14. 

  14. 

  15. 

  16. { ---------------------------------------------------------------------
    17. 

  17.     Borland compatibility types
    18. 

  18.   ---------------------------------------------------------------------}
    19. 

  19. 

  20. Type
    21. 

  21.   TSemaphoreBuffer = sembuf;
    22. 

  22.   PSemaphoreBuffer = ^TSemaphoreBuffer;
    23. 

  23. 

  24. function semop(__semid:longint; var __sops:sembuf; __nsops:size_t):longint;cdecl;external clib name 'semop';
    25.