ctypes.pp 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382
  1. {
  2. This file is part of the Free Pascal run time library.
  3. Copyright (c) 2004 by Marco van de Voort, member of the
  4. Free Pascal development team
  5. Implements C types for in header conversions
  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. unit ctypes;
  13. {$inline on}
  14. interface
  15. {$ifdef unix}
  16. uses unixtype;
  17. {$i aliasctp.inc}
  18. {$else}
  19. type
  20. {$ifndef FPC}
  21. qword = int64; // Keep h2pas "uses ctypes" headers working with delphi.
  22. {$endif}
  23. { the following type definitions are compiler dependant }
  24. { and system dependant }
  25. cint8 = shortint; pcint8 = ^cint8;
  26. cuint8 = byte; pcuint8 = ^cuint8;
  27. cchar = cint8; pcchar = ^cchar;
  28. cschar = cint8; pcschar = ^cschar;
  29. cuchar = cuint8; pcuchar = ^cuchar;
  30. cint16 = smallint; pcint16 = ^cint16;
  31. cuint16 = word; pcuint16 = ^cuint16;
  32. cshort = cint16; pcshort = ^cshort;
  33. csshort = cint16; pcsshort = ^csshort;
  34. cushort = cuint16; pcushort = ^cushort;
  35. cint32 = longint; pcint32 = ^cint32;
  36. cuint32 = longword; pcuint32 = ^cuint32;
  37. cint = cint32; pcint = ^cint; { minimum range is : 32-bit }
  38. csint = cint32; pcsint = ^csint; { minimum range is : 32-bit }
  39. cuint = cuint32; pcuint = ^cuint; { minimum range is : 32-bit }
  40. csigned = cint; pcsigned = ^csigned;
  41. cunsigned = cuint; pcunsigned = ^cunsigned;
  42. cint64 = int64; pcint64 = ^cint64;
  43. cuint64 = qword; pcuint64 = ^cuint64;
  44. clonglong = cint64; pclonglong = ^clonglong;
  45. cslonglong = cint64; pcslonglong = ^cslonglong;
  46. culonglong = cuint64; pculonglong = ^culonglong;
  47. cbool = longbool; pcbool = ^cbool;
  48. {$if defined(cpu64) and not(defined(win64) and defined(cpux86_64))}
  49. clong = int64; pclong = ^clong;
  50. cslong = int64; pcslong = ^cslong;
  51. culong = qword; pculong = ^culong;
  52. {$else}
  53. clong = longint; pclong = ^clong;
  54. cslong = longint; pcslong = ^cslong;
  55. culong = cardinal; pculong = ^culong;
  56. {$endif}
  57. cfloat = single; pcfloat = ^cfloat;
  58. cdouble = double; pcdouble = ^cdouble;
  59. {$endif}
  60. {$ifdef windows}
  61. {$define longdouble_is_double}
  62. {$endif}
  63. {$if defined(linux) and (defined(cpupowerpc) or defined(cpuarm))}
  64. {$define longdouble_is_double}
  65. {$endif}
  66. {$ifdef longdouble_is_double}
  67. clongdouble=double;
  68. {$else}
  69. {$if defined(cpui386) or defined(cpux86_64)}
  70. {$define longdouble_assignment_overload_real80}
  71. clongdouble = packed record
  72. value:extended;
  73. {$ifdef defined(cpu64) or defined(darwin)}
  74. padding:array[0..5] of byte;
  75. {$else}
  76. padding:array[0..1] of byte;
  77. {$endif}
  78. end;
  79. {$else}
  80. {$define longdouble_assignment_overload_real128}
  81. clongdouble = packed array [0..15] of byte;
  82. {$endif}
  83. {$endif}
  84. Pclongdouble=^clongdouble;
  85. // Kylix compat types
  86. u_long = culong;
  87. u_short = cushort;
  88. {$ifdef longdouble_assignment_overload_real80}
  89. operator := (const v:clongdouble) r:extended;inline;
  90. operator := (const v:extended) r:clongdouble;inline;
  91. operator +(const e:Extended;const c:clongdouble) r:extended;inline;
  92. operator +(const c:clongdouble;const e:Extended) r:extended;inline;
  93. operator -(const e:Extended;const c:clongdouble) r:extended;inline;
  94. operator -(const c:clongdouble;const e:Extended) r:extended;inline;
  95. operator *(const e:Extended;const c:clongdouble) r:extended;inline;
  96. operator *(const c:clongdouble;const e:Extended) r:extended;inline;
  97. operator /(const e:Extended;const c:clongdouble) r:extended;inline;
  98. operator /(const c:clongdouble;const e:Extended) r:extended;inline;
  99. operator =(const e:Extended;const c:clongdouble) r:boolean;inline;
  100. operator =(const c:clongdouble;const e:Extended) r:boolean;inline;
  101. operator <(const e:Extended;const c:clongdouble) r:boolean;inline;
  102. operator <(const c:clongdouble;const e:Extended) r:boolean;inline;
  103. operator >(const e:Extended;const c:clongdouble) r:boolean;inline;
  104. operator >(const c:clongdouble;const e:Extended) r:boolean;inline;
  105. operator >=(const e:Extended;const c:clongdouble) r:boolean;inline;
  106. operator >=(const c:clongdouble;const e:Extended) r:boolean;inline;
  107. operator <=(const e:Extended;const c:clongdouble) r:boolean;inline;
  108. operator <=(const c:clongdouble;const e:Extended) r:boolean;inline;
  109. {$endif}
  110. {$ifdef longdouble_assignment_overload_real128}
  111. {Non-x86 typically doesn't have extended. To be fixed once this changes.}
  112. operator := (const v:clongdouble) r:double;inline;
  113. operator := (const v:double) r:clongdouble;inline;
  114. operator +(const e:Double;const c:clongdouble) r:Double;inline;
  115. operator +(const c:clongdouble;const e:Double) r:Double;inline;
  116. operator -(const e:Double;const c:clongdouble) r:Double;inline;
  117. operator -(const c:clongdouble;const e:Double) r:Double;inline;
  118. operator *(const e:Double;const c:clongdouble) r:Double;inline;
  119. operator *(const c:clongdouble;const e:Double) r:Double;inline;
  120. operator /(const e:Double;const c:clongdouble) r:Double;inline;
  121. operator /(const c:clongdouble;const e:Double) r:Double;inline;
  122. operator =(const e:Double;const c:clongdouble) r:boolean;inline;
  123. operator =(const c:clongdouble;const e:Double) r:boolean;inline;
  124. operator <(const e:Double;const c:clongdouble) r:boolean;inline;
  125. operator <(const c:clongdouble;const e:Double) r:boolean;inline;
  126. operator >(const e:Double;const c:clongdouble) r:boolean;inline;
  127. operator >(const c:clongdouble;const e:Double) r:boolean;inline;
  128. operator >=(const e:Double;const c:clongdouble) r:boolean;inline;
  129. operator >=(const c:clongdouble;const e:Double) r:boolean;inline;
  130. operator <=(const e:Double;const c:clongdouble) r:boolean;inline;
  131. operator <=(const c:clongdouble;const e:Double) r:boolean;inline;
  132. {$endif}
  133. implementation
  134. {$ifdef longdouble_assignment_overload_real80}
  135. operator := (const v:clongdouble) r:extended;
  136. begin
  137. r:=v.value;
  138. end;
  139. operator := (const v:extended) r:clongdouble;
  140. begin
  141. r.value:=v;
  142. end;
  143. operator +(const e:Extended;const c:clongdouble) r:extended;inline;
  144. begin
  145. r:=e+c.value;
  146. end;
  147. operator +(const c:clongdouble;const e:Extended) r:extended;inline;
  148. begin
  149. r:=c.value+e;
  150. end;
  151. operator -(const e:Extended;const c:clongdouble) r:extended;inline;
  152. begin
  153. r:=e-c.value;
  154. end;
  155. operator -(const c:clongdouble;const e:Extended) r:extended;inline;
  156. begin
  157. r:=c.value-e;
  158. end;
  159. operator *(const e:Extended;const c:clongdouble) r:extended;inline;
  160. begin
  161. r:=e*c.value;
  162. end;
  163. operator *(const c:clongdouble;const e:Extended) r:extended;inline;
  164. begin
  165. r:=c.value*e;
  166. end;
  167. operator /(const e:Extended;const c:clongdouble) r:extended;inline;
  168. begin
  169. r:=e/c.value;
  170. end;
  171. operator /(const c:clongdouble;const e:Extended) r:extended;inline;
  172. begin
  173. r:=c.value/e;
  174. end;
  175. operator =(const e:Extended;const c:clongdouble) r:boolean;inline;
  176. begin
  177. r:=e=c.value;
  178. end;
  179. operator =(const c:clongdouble;const e:Extended) r:boolean;inline;
  180. begin
  181. r:=c.value=e;
  182. end;
  183. operator <(const e:Extended;const c:clongdouble) r:boolean;inline;
  184. begin
  185. r:=e<c.value;
  186. end;
  187. operator <(const c:clongdouble;const e:Extended) r:boolean;inline;
  188. begin
  189. r:=c.value<e;
  190. end;
  191. operator >(const e:Extended;const c:clongdouble) r:boolean;inline;
  192. begin
  193. r:=e>c.value;
  194. end;
  195. operator >(const c:clongdouble;const e:Extended) r:boolean;inline;
  196. begin
  197. r:=c.value>e;
  198. end;
  199. operator >=(const e:Extended;const c:clongdouble) r:boolean;inline;
  200. begin
  201. r:=e>=c.value;
  202. end;
  203. operator >=(const c:clongdouble;const e:Extended) r:boolean;inline;
  204. begin
  205. r:=c.value>=e;
  206. end;
  207. operator <=(const e:Extended;const c:clongdouble) r:boolean;inline;
  208. begin
  209. r:=e<=c.value;
  210. end;
  211. operator <=(const c:clongdouble;const e:Extended) r:boolean;inline;
  212. begin
  213. r:=c.value<=e;
  214. end;
  215. {$endif}
  216. {$ifdef longdouble_assignment_overload_real128}
  217. {$ifdef ENDIAN_LITTLE}
  218. const r128_mantissa_ofs=0;
  219. r128_exponent_ofs=14;
  220. {$else}
  221. const r128_mantissa_ofs=2;
  222. r128_exponent_ofs=0;
  223. {$endif}
  224. operator := (const v:clongdouble) r:double;
  225. begin
  226. qword(r):=(qword(Pword(@v[r128_exponent_ofs])^) shl 52) or
  227. (Pqword(@v[r128_mantissa_ofs])^ shr 12);
  228. end;
  229. operator := (const v:double) r:clongdouble;
  230. begin
  231. Pword(@r[r128_exponent_ofs])^:=qword(v) shr 52;
  232. Pqword(@r[r128_mantissa_ofs])^:=qword(v) shl 12;
  233. Pcardinal(@r[r128_mantissa_ofs+8])^:=0;
  234. Pword(@r[r128_mantissa_ofs+12])^:=0;
  235. end;
  236. operator +(const e:Double;const c:clongdouble) r:Double;inline;
  237. begin
  238. r:=e+c.value;
  239. end;
  240. operator +(const c:clongdouble;const e:Double) r:Double;inline;
  241. begin
  242. r:=c.value+e;
  243. end;
  244. operator -(const e:Double;const c:clongdouble) r:Double;inline;
  245. begin
  246. r:=e-c.value;
  247. end;
  248. operator -(const c:clongdouble;const e:Double) r:Double;inline;
  249. begin
  250. r:=c.value-e;
  251. end;
  252. operator *(const e:Double;const c:clongdouble) r:Double;inline;
  253. begin
  254. r:=e*c.value;
  255. end;
  256. operator *(const c:clongdouble;const e:Double) r:Double;inline;
  257. begin
  258. r:=c.value*e;
  259. end;
  260. operator /(const e:Double;const c:clongdouble) r:Double;inline;
  261. begin
  262. r:=e/c.value;
  263. end;
  264. operator /(const c:clongdouble;const e:Double) r:Double;inline;
  265. begin
  266. r:=c.value/e;
  267. end;
  268. operator =(const e:Double;const c:clongdouble) r:boolean;inline;
  269. begin
  270. r:=e=c.value;
  271. end;
  272. operator =(const c:clongdouble;const e:Double) r:boolean;inline;
  273. begin
  274. r:=c.value=e;
  275. end;
  276. operator <(const e:Double;const c:clongdouble) r:boolean;inline;
  277. begin
  278. r:=e<c.value;
  279. end;
  280. operator <(const c:clongdouble;const e:Double) r:boolean;inline;
  281. begin
  282. r:=c.value<e;
  283. end;
  284. operator >(const e:Double;const c:clongdouble) r:boolean;inline;
  285. begin
  286. r:=e>c.value;
  287. end;
  288. operator >(const c:clongdouble;const e:Double) r:boolean;inline;
  289. begin
  290. r:=c.value>e;
  291. end;
  292. operator >=(const e:Double;const c:clongdouble) r:boolean;inline;
  293. begin
  294. r:=e>=c.value;
  295. end;
  296. operator >=(const c:clongdouble;const e:Double) r:boolean;inline;
  297. begin
  298. r:=c.value>=e;
  299. end;
  300. operator <=(const e:Double;const c:clongdouble) r:boolean;inline;
  301. begin
  302. r:=e<=c.value;
  303. end;
  304. operator <=(const c:clongdouble;const e:Double) r:boolean;inline;
  305. begin
  306. r:=c.value<=e;
  307. end;
  308. {$endif}
  309. end.