stat.inc 1.9 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970
  1. {
  2. $Id$
  3. This file is part of the Free Pascal run time library.
  4. Copyright (c) 1999-2000 by Jonas Maebe,
  5. member of the Free Pascal development team.
  6. See the file COPYING.FPC, included in this distribution,
  7. for details about the copyright.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  11. **********************************************************************}
  12. Stat = packed Record // No unix typing because of differences
  13. case byte of
  14. 0: (st_dev : cardinal;
  15. st_ino,
  16. st_mode : cardinal;
  17. nlink : word;
  18. __pad1 : word;
  19. uid,
  20. gid,
  21. rdev : cardinal;
  22. st_size : longint;
  23. st_blksize,
  24. st_blocks,
  25. st_atime,
  26. __unused1,
  27. st_mtime,
  28. __unused2,
  29. st_ctime,
  30. __unused3,
  31. __unused4,
  32. __unused5 : cardinal;);
  33. 1: (dev : cardinal;
  34. ino,
  35. mode : cardinal;
  36. nlink_dummy : word;
  37. __pad2 : word;
  38. uid_dummy,
  39. gid_dummy,
  40. rdev_dummy : cardinal;
  41. size : longint;
  42. blksize,
  43. blocks,
  44. atime,
  45. __unused1_dummy,
  46. mtime,
  47. __unused2_dummy,
  48. ctime,
  49. __unused3_dummy,
  50. __unused4_dummy,
  51. __unused5_dummy : cardinal;);
  52. end;
  53. {
  54. $Log$
  55. Revision 1.2 2003-05-16 21:22:11 jonas
  56. * fixed stat struct (previous one was a frankenversion of ppc and
  57. i386 version)
  58. Revision 1.1 2003/05/15 22:50:51 jonas
  59. * the stat type is processor-dependent
  60. * the dev_t tpye is processor dependent. Don't use it in the stat type
  61. however, as that one is also used at a time where dev_t is already
  62. defined as qword
  63. }