ctypes.inc 2.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293
  1. {
  2. $Id$
  3. This file is part of the Free Pascal run time library.
  4. Copyright (c) 2001 by Free Pascal development team
  5. Basic types for C interfacing. Check the 64-bit defines.
  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. {***********************************************************************}
  13. { POSIX TYPE DEFINITIONS }
  14. {***********************************************************************}
  15. Type
  16. { the following type definitions are compiler dependant }
  17. { and system dependant }
  18. cInt8 = shortint;
  19. cUInt8 = byte;
  20. cUInt16= word;
  21. cInt16 = smallint;
  22. cInt32 = longint;
  23. cUInt32= cardinal;
  24. cInt64 = int64;
  25. {$ifndef VER1_0}
  26. cUInt64= qword;
  27. {$else}
  28. cUInt64= int64;
  29. {$endif}
  30. cuchar = byte;
  31. cchar = shortint;
  32. cInt = longint; { minimum range is : 32-bit }
  33. cUInt = Cardinal; { minimum range is : 32-bit }
  34. {$ifdef cpu64}
  35. cLong = int64;
  36. cuLong = qword;
  37. {$else}
  38. cLong = longint;
  39. cuLong = Cardinal;
  40. {$endif}
  41. clonglong = int64;
  42. {$ifndef VER1_0}
  43. culonglong = qword;
  44. {$else VER1_0}
  45. culonglong = int64;
  46. {$endif VER1_0}
  47. cshort = smallint;
  48. cushort = word;
  49. pcInt = ^cInt;
  50. pcUInt = ^cUInt;
  51. pcLong = ^cLong;
  52. pculong = ^cuLong;
  53. pcshort = ^cshort;
  54. pcushort = ^cushort;
  55. pcchar = ^cchar;
  56. pcuchar = ^cuchar;
  57. cunsigned = cuint;
  58. pcunsigned = ^cunsigned;
  59. { Floating point }
  60. cFloat = Single;
  61. cDouble = Double;
  62. clDouble = Extended;
  63. pcFloat = ^cFloat;
  64. pcDouble = ^cDouble;
  65. pclDouble = ^clDouble;
  66. {
  67. $Log$
  68. Revision 1.3 2005-03-13 10:05:13 florian
  69. + floating point c types added
  70. Revision 1.2 2005/02/14 17:13:31 peter
  71. * truncate log
  72. Revision 1.1 2005/02/13 22:14:36 peter
  73. * new files
  74. Revision 1.6 2005/02/05 23:02:37 florian
  75. + added some missing c types
  76. }