custom 1.3 KB

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