/packages/libc/src/fileh.inc

https://github.com/slibre/freepascal · Pascal · 15 lines · 5 code · 6 blank · 4 comment · 0 complexity · 381bc45883264b5064862aa0dd8def7e MD5 · raw file 

    

  1. const
    2. 

  2.    L_SET = 0;
    3. 

  3.    L_INCR = 1;
    4. 

  4.    L_XTND = 2;
    5. 

  5. 

  6. 

  7. function __flock(__fd:longint; __operation:longint):longint;cdecl;external clib name 'flock';
    8. 

  8. 

  9. 

  10. { ---------------------------------------------------------------------
    11. 

  11.     Borland compatibility types
    12. 

  12.   ---------------------------------------------------------------------}
    13. 

  13. 

  14. // Type
    15.