ctypes.inc 2.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687
  1. {
  2. This file is part of the Free Pascal run time library.
  3. Copyright (c) 2001 by Free Pascal development team
  4. Basic types for C interfacing. Check the 64-bit defines.
  5. See the file COPYING.FPC, included in this distribution,
  6. for details about the copyright.
  7. This program is distributed in the hope that it will be useful,
  8. but WITHOUT ANY WARRANTY; without even the implied warranty of
  9. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  10. **********************************************************************}
  11. {***********************************************************************}
  12. { POSIX TYPE DEFINITIONS }
  13. {***********************************************************************}
  14. Type
  15. { the following type definitions are compiler dependant }
  16. { and system dependant }
  17. cInt8 = shortint;
  18. cUInt8 = byte;
  19. cUInt16= word;
  20. cInt16 = smallint;
  21. cInt32 = longint;
  22. cUInt32= cardinal;
  23. cInt64 = int64;
  24. cUInt64= qword;
  25. cuchar = byte;
  26. cchar = shortint;
  27. cInt = longint; { minimum range is : 32-bit }
  28. cUInt = Cardinal; { minimum range is : 32-bit }
  29. {$ifdef cpu64}
  30. cLong = int64;
  31. cuLong = qword;
  32. {$else}
  33. cLong = longint;
  34. cuLong = Cardinal;
  35. {$endif}
  36. clonglong = int64;
  37. culonglong = qword;
  38. cshort = smallint;
  39. cushort = word;
  40. pcInt = ^cInt;
  41. pcUInt = ^cUInt;
  42. pcLong = ^cLong;
  43. pculong = ^cuLong;
  44. pcshort = ^cshort;
  45. pcushort = ^cushort;
  46. pcchar = ^cchar;
  47. pcuchar = ^cuchar;
  48. cunsigned = cuint;
  49. pcunsigned = ^cunsigned;
  50. { Floating point }
  51. cFloat = Single;
  52. cDouble = Double;
  53. clDouble = Extended;
  54. pcFloat = ^cFloat;
  55. pcDouble = ^cDouble;
  56. pclDouble = ^clDouble;
  57. {
  58. $Log: ctypes.inc,v $
  59. Revision 1.4 2005/03/13 19:17:14 florian
  60. * indention fixed
  61. Revision 1.3 2005/03/13 10:05:13 florian
  62. + floating point c types added
  63. Revision 1.2 2005/02/14 17:13:31 peter
  64. * truncate log
  65. Revision 1.1 2005/02/13 22:14:36 peter
  66. * new files
  67. Revision 1.6 2005/02/05 23:02:37 florian
  68. + added some missing c types
  69. }