custom 1.4 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546
  1. CONST
  2. (* Ubuntu 18.04 /usr/include/i386-linux-gnu/bits/stat.h *)
  3. _STAT_VER_LINUX* = 3;
  4. TYPE
  5. off64_t* = LONGINT;
  6. (* Ubuntu 17.10 /usr/include/i386-linux-gnu/bits/types/sigval_t.h: *)
  7. sigval_t* = RECORD [union]
  8. sival_int*: int;
  9. sival_ptr*: PtrVoid
  10. END;
  11. (* Ubuntu 17.10 /usr/include/i386-linux-gnu/sys/ucontext.h: *)
  12. greg_t* = int;
  13. gregset_t* = ARRAY [untagged] 19 OF greg_t;
  14. fpregset_t* = POINTER [untagged] TO fpstate;
  15. fpreg* = RECORD [untagged]
  16. significand*: ARRAY [untagged] 4 OF SHORTINT; (* unsigned short int *)
  17. exponent*: SHORTINT; (* unsigned short int *)
  18. END;
  19. fpstate* = RECORD [untagged]
  20. cw*: INTEGER; (* unsigned long int *)
  21. sw*: INTEGER; (* unsigned long int *)
  22. tag*: INTEGER; (* unsigned long int *)
  23. ipoff*: INTEGER; (* unsigned long int *)
  24. cssel*: INTEGER; (* unsigned long int *)
  25. dataoff*: INTEGER; (* unsigned long int *)
  26. datasel*: INTEGER; (* unsigned long int *)
  27. _st: ARRAY [untagged] 8 OF fpreg;
  28. status*: INTEGER; (* unsigned long int *)
  29. END;
  30. VAR
  31. timezone*: INTEGER; (* seconds from GMT *)
  32. (*
  33. stdin*, stdout*, stderr* : PtrFILE;
  34. *)
  35. PROCEDURE [ccall] __errno_location*(): INTEGER;
  36. PROCEDURE [ccall] __xstat* (version: INTEGER; filename: PtrSTR; VAR buf: stat_t): INTEGER;
  37. PROCEDURE [ccall] lseek64* (fd: int; offset: off64_t; whence: int): off64_t;
  38. PROCEDURE [ccall] sigsetjmp* ["__sigsetjmp"] (VAR env: sigjmp_buf; savemask: int): int;