Home Explore Help
Sign In
pascal
/
fpc
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Tree: 30f1eb4705
Branches Tags
fpc
/
packages
/
base
/
libc
/
ucontexth.inc

ucontexth.inc 1.3 KB
History Raw

123456789101112131415161718192021 
  1. 

  2. type
    3. 

  3.   TMakeContextProc = procedure; // Used anonymously in header file.
    4. 

  4. 

  5. function getcontext(__ucp:Pucontext_t):longint;cdecl;external clib name 'getcontext';
    6. 

  6. function setcontext(__ucp:Pucontext_t):longint;cdecl;external clib name 'setcontext';
    7. 

  7. function swapcontext(__oucp:Pucontext_t; __ucp:Pucontext_t):longint;cdecl;external clib name 'swapcontext';
    8. 

  8. procedure makecontext(__ucp:Pucontext_t; __func:TMakeContextProc; __argc:longint; args:array of const);cdecl;external clib name 'makecontext';
    9. 

  9. procedure makecontext(__ucp:Pucontext_t; __func:TMakeContextProc; __argc:longint);cdecl;external clib name 'makecontext';
    10. 

  10. 

  11. 

  12. { ---------------------------------------------------------------------
    13. 

  13.     Borland compatibility types
    14. 

  14.   ---------------------------------------------------------------------}
    15. 

  15. 

  16. // Type  
    17. 

  17. function getcontext(var __ucp:ucontext_t):longint;cdecl;external clib name 'getcontext';
    18. 

  18. function setcontext(const __ucp: ucontext_t):longint;cdecl;external clib name 'setcontext';
    19. 

  19. function swapcontext(var __oucp:ucontext_t; const __ucp: ucontext_t):longint;cdecl;external clib name 'swapcontext';
    20. 

  20. procedure makecontext(var __ucp:ucontext_t; __func:TMakeContextProc; __argc:longint; args:array of const);cdecl;external clib name 'makecontext';
    21. 

  21. procedure makecontext(var __ucp:ucontext_t; __func:TMakeContextProc; __argc:longint);cdecl;external clib name 'makecontext';
    22.