i_linux.pas 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506
  1. {
  2. Copyright (c) 1998-2002 by Peter Vreman
  3. This unit implements support information structures for linux
  4. This program is free software; you can redistribute it and/or modify
  5. it under the terms of the GNU General Public License as published by
  6. the Free Software Foundation; either version 2 of the License, or
  7. (at your option) any later version.
  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. See the
  11. GNU General Public License for more details.
  12. You should have received a copy of the GNU General Public License
  13. along with this program; if not, write to the Free Software
  14. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  15. ****************************************************************************
  16. }
  17. { This unit implements support information structures for linux. }
  18. unit i_linux;
  19. interface
  20. uses
  21. systems;
  22. const
  23. system_i386_linux_info : tsysteminfo =
  24. (
  25. system : system_i386_LINUX;
  26. name : 'Linux for i386';
  27. shortname : 'Linux';
  28. flags : [tf_needs_symbol_size,tf_pic_uses_got{,tf_smartlink_sections}];
  29. cpu : cpu_i386;
  30. unit_env : 'LINUXUNITS';
  31. extradefines : 'UNIX;HASUNIX';
  32. exeext : '';
  33. defext : '.def';
  34. scriptext : '.sh';
  35. smartext : '.sl';
  36. unitext : '.ppu';
  37. unitlibext : '.ppl';
  38. asmext : '.s';
  39. objext : '.o';
  40. resext : '.res';
  41. resobjext : '.or';
  42. sharedlibext : '.so';
  43. staticlibext : '.a';
  44. staticlibprefix : 'libp';
  45. sharedlibprefix : 'lib';
  46. sharedClibext : '.so';
  47. staticClibext : '.a';
  48. staticClibprefix : 'lib';
  49. sharedClibprefix : 'lib';
  50. p_ext_support : false;
  51. Cprefix : '';
  52. newline : #10;
  53. dirsep : '/';
  54. files_case_relevent : true;
  55. assem : as_i386_elf32;
  56. assemextern : as_gas;
  57. link : nil;
  58. linkextern : nil;
  59. ar : ar_gnu_ar;
  60. res : res_none;
  61. script : script_unix;
  62. endian : endian_little;
  63. alignment :
  64. (
  65. procalign : 16;
  66. loopalign : 4;
  67. jumpalign : 0;
  68. constalignmin : 0;
  69. constalignmax : 8;
  70. varalignmin : 0;
  71. varalignmax : 8;
  72. localalignmin : 4;
  73. localalignmax : 4;
  74. recordalignmin : 0;
  75. recordalignmax : 4;
  76. maxCrecordalign : 4
  77. );
  78. first_parm_offset : 8;
  79. stacksize : 262144;
  80. DllScanSupported:false;
  81. use_function_relative_addresses : true;
  82. abi : abi_default
  83. );
  84. system_m68k_linux_info : tsysteminfo =
  85. (
  86. system : system_m68k_linux;
  87. name : 'Linux for m68k';
  88. shortname : 'Linux';
  89. flags : [tf_needs_symbol_size];
  90. cpu : cpu_m68k;
  91. unit_env : 'LINUXUNITS';
  92. extradefines : 'UNIX;HASUNIX';
  93. exeext : '';
  94. defext : '';
  95. scriptext : '.sh';
  96. smartext : '.sl';
  97. unitext : '.ppu';
  98. unitlibext : '.ppl';
  99. asmext : '.s';
  100. objext : '.o';
  101. resext : '.res';
  102. resobjext : '.or';
  103. sharedlibext : '.so';
  104. staticlibext : '.a';
  105. staticlibprefix : 'libp';
  106. sharedlibprefix : 'lib';
  107. sharedClibext : '.so';
  108. staticClibext : '.a';
  109. staticClibprefix : 'lib';
  110. sharedClibprefix : 'lib';
  111. p_ext_support : false;
  112. Cprefix : '';
  113. newline : #10;
  114. dirsep : '/';
  115. files_case_relevent : true;
  116. assem : as_gas;
  117. assemextern : as_gas;
  118. link : nil;
  119. linkextern : nil;
  120. ar : ar_gnu_ar;
  121. res : res_none;
  122. script : script_unix;
  123. endian : endian_big;
  124. alignment :
  125. (
  126. procalign : 4;
  127. loopalign : 4;
  128. jumpalign : 0;
  129. constalignmin : 0;
  130. constalignmax : 4;
  131. varalignmin : 0;
  132. varalignmax : 4;
  133. localalignmin : 4;
  134. localalignmax : 4;
  135. recordalignmin : 0;
  136. recordalignmax : 2;
  137. maxCrecordalign : 4
  138. );
  139. first_parm_offset : 8;
  140. stacksize : 32*1024*1024;
  141. DllScanSupported:false;
  142. use_function_relative_addresses : true;
  143. abi : abi_default
  144. );
  145. system_powerpc_linux_info : tsysteminfo =
  146. (
  147. system : system_powerpc_LINUX;
  148. name : 'Linux for PowerPC';
  149. shortname : 'Linux';
  150. flags : [tf_needs_symbol_size];
  151. cpu : cpu_powerpc;
  152. unit_env : '';
  153. extradefines : 'UNIX;HASUNIX';
  154. exeext : '';
  155. defext : '.def';
  156. scriptext : '.sh';
  157. smartext : '.sl';
  158. unitext : '.ppu';
  159. unitlibext : '.ppl';
  160. asmext : '.s';
  161. objext : '.o';
  162. resext : '.res';
  163. resobjext : '.or';
  164. sharedlibext : '.so';
  165. staticlibext : '.a';
  166. staticlibprefix : 'libp';
  167. sharedlibprefix : 'lib';
  168. sharedClibext : '.so';
  169. staticClibext : '.a';
  170. staticClibprefix : 'lib';
  171. sharedClibprefix : 'lib';
  172. p_ext_support : false;
  173. Cprefix : '';
  174. newline : #10;
  175. dirsep : '/';
  176. files_case_relevent : true;
  177. assem : as_gas;
  178. assemextern : as_gas;
  179. link : nil;
  180. linkextern : nil;
  181. ar : ar_gnu_ar;
  182. res : res_none;
  183. script : script_unix;
  184. endian : endian_big;
  185. alignment :
  186. (
  187. procalign : 4;
  188. loopalign : 4;
  189. jumpalign : 0;
  190. constalignmin : 0;
  191. constalignmax : 4;
  192. varalignmin : 0;
  193. varalignmax : 4;
  194. localalignmin : 4;
  195. localalignmax : 4;
  196. recordalignmin : 0;
  197. recordalignmax : 4;
  198. maxCrecordalign : 8
  199. );
  200. first_parm_offset : 8;
  201. stacksize : 32*1024*1024;
  202. DllScanSupported:false;
  203. use_function_relative_addresses : true;
  204. abi : abi_powerpc_sysv;
  205. );
  206. system_alpha_linux_info : tsysteminfo =
  207. (
  208. system : system_alpha_LINUX;
  209. name : 'Linux for Alpha';
  210. shortname : 'Linux';
  211. flags : [tf_needs_symbol_size];
  212. cpu : cpu_alpha;
  213. unit_env : 'LINUXUNITS';
  214. extradefines : 'UNIX;HASUNIX';
  215. exeext : '';
  216. defext : '.def';
  217. scriptext : '.sh';
  218. smartext : '.sl';
  219. unitext : '.ppu';
  220. unitlibext : '.ppl';
  221. asmext : '.s';
  222. objext : '.o';
  223. resext : '.res';
  224. resobjext : '.or';
  225. sharedlibext : '.so';
  226. staticlibext : '.a';
  227. staticlibprefix : 'libp';
  228. sharedlibprefix : 'lib';
  229. sharedClibext : '.so';
  230. staticClibext : '.a';
  231. staticClibprefix : 'lib';
  232. sharedClibprefix : 'lib';
  233. p_ext_support : false;
  234. Cprefix : '';
  235. newline : #10;
  236. dirsep : '/';
  237. files_case_relevent : true;
  238. assem : as_gas;
  239. assemextern : as_gas;
  240. link : nil;
  241. linkextern : nil;
  242. ar : ar_gnu_ar;
  243. res : res_none;
  244. script : script_unix;
  245. endian : endian_little;
  246. alignment :
  247. (
  248. procalign : 4;
  249. loopalign : 4;
  250. jumpalign : 0;
  251. constalignmin : 0;
  252. constalignmax : 4;
  253. varalignmin : 0;
  254. varalignmax : 4;
  255. localalignmin : 4;
  256. localalignmax : 4;
  257. recordalignmin : 0;
  258. recordalignmax : 2;
  259. maxCrecordalign : 4
  260. );
  261. first_parm_offset : 8;
  262. stacksize : 32*1024*1024;
  263. DllScanSupported:false;
  264. use_function_relative_addresses : true;
  265. abi : abi_default
  266. );
  267. system_x86_64_linux_info : tsysteminfo =
  268. (
  269. system : system_x86_64_LINUX;
  270. name : 'Linux for x86-64';
  271. shortname : 'Linux';
  272. flags : [tf_needs_symbol_size,tf_needs_dwarf_cfi,
  273. tf_library_needs_pic];
  274. cpu : cpu_x86_64;
  275. unit_env : 'LINUXUNITS';
  276. extradefines : 'UNIX;HASUNIX';
  277. exeext : '';
  278. defext : '.def';
  279. scriptext : '.sh';
  280. smartext : '.sl';
  281. unitext : '.ppu';
  282. unitlibext : '.ppl';
  283. asmext : '.s';
  284. objext : '.o';
  285. resext : '.res';
  286. resobjext : '.or';
  287. sharedlibext : '.so';
  288. staticlibext : '.a';
  289. staticlibprefix : 'libp';
  290. sharedlibprefix : 'lib';
  291. sharedClibext : '.so';
  292. staticClibext : '.a';
  293. staticClibprefix : 'lib';
  294. sharedClibprefix : 'lib';
  295. p_ext_support : false;
  296. Cprefix : '';
  297. newline : #10;
  298. dirsep : '/';
  299. files_case_relevent : true;
  300. assem : as_gas;
  301. assemextern : as_gas;
  302. link : nil;
  303. linkextern : nil;
  304. ar : ar_gnu_ar;
  305. res : res_none;
  306. script : script_unix;
  307. endian : endian_little;
  308. alignment :
  309. (
  310. procalign : 8;
  311. loopalign : 4;
  312. jumpalign : 0;
  313. constalignmin : 0;
  314. constalignmax : 8;
  315. varalignmin : 0;
  316. varalignmax : 8;
  317. localalignmin : 4;
  318. localalignmax : 8;
  319. recordalignmin : 0;
  320. recordalignmax : 8;
  321. maxCrecordalign : 8
  322. );
  323. first_parm_offset : 16;
  324. stacksize : 256*1024;
  325. DllScanSupported:false;
  326. use_function_relative_addresses : true;
  327. abi : abi_default
  328. );
  329. system_sparc_linux_info : tsysteminfo =
  330. (
  331. system : system_SPARC_Linux;
  332. name : 'Linux for SPARC';
  333. shortname : 'Linux';
  334. flags : [tf_needs_symbol_size,tf_library_needs_pic];
  335. cpu : cpu_SPARC;
  336. unit_env : 'LINUXUNITS';
  337. extradefines : 'UNIX;HASUNIX';
  338. exeext : '';
  339. defext : '.def';
  340. scriptext : '.sh';
  341. smartext : '.sl';
  342. unitext : '.ppu';
  343. unitlibext : '.ppl';
  344. asmext : '.s';
  345. objext : '.o';
  346. resext : '.res';
  347. resobjext : '.or';
  348. sharedlibext : '.so';
  349. staticlibext : '.a';
  350. staticlibprefix : 'libp';
  351. sharedlibprefix : 'lib';
  352. sharedClibext : '.so';
  353. staticClibext : '.a';
  354. staticClibprefix : 'lib';
  355. sharedClibprefix : 'lib';
  356. p_ext_support : false;
  357. Cprefix : '';
  358. newline : #10;
  359. dirsep : '/';
  360. files_case_relevent : true;
  361. assem : as_gas;
  362. assemextern : as_gas;
  363. link : nil;
  364. linkextern : nil;
  365. ar : ar_gnu_ar;
  366. res : res_none;
  367. script : script_unix;
  368. endian : endian_big;
  369. alignment :
  370. (
  371. procalign : 4;
  372. loopalign : 4;
  373. jumpalign : 0;
  374. constalignmin : 0;
  375. constalignmax : 8;
  376. varalignmin : 0;
  377. varalignmax : 8;
  378. localalignmin : 4;
  379. localalignmax : 8;
  380. recordalignmin : 0;
  381. recordalignmax : 8;
  382. maxCrecordalign : 8
  383. );
  384. first_parm_offset : 92;
  385. stacksize : 262144;
  386. DllScanSupported:false;
  387. use_function_relative_addresses : true;
  388. abi : abi_default
  389. );
  390. system_arm_linux_info : tsysteminfo =
  391. (
  392. system : system_arm_Linux;
  393. name : 'Linux for ARM';
  394. shortname : 'Linux';
  395. flags : [tf_needs_symbol_size];
  396. cpu : cpu_arm;
  397. unit_env : 'LINUXUNITS';
  398. extradefines : 'UNIX;HASUNIX';
  399. exeext : '';
  400. defext : '.def';
  401. scriptext : '.sh';
  402. smartext : '.sl';
  403. unitext : '.ppu';
  404. unitlibext : '.ppl';
  405. asmext : '.s';
  406. objext : '.o';
  407. resext : '.res';
  408. resobjext : '.or';
  409. sharedlibext : '.so';
  410. staticlibext : '.a';
  411. staticlibprefix : 'libp';
  412. sharedlibprefix : 'lib';
  413. sharedClibext : '.so';
  414. staticClibext : '.a';
  415. staticClibprefix : 'lib';
  416. sharedClibprefix : 'lib';
  417. p_ext_support : false;
  418. Cprefix : '';
  419. newline : #10;
  420. dirsep : '/';
  421. files_case_relevent : true;
  422. assem : as_gas;
  423. assemextern : as_gas;
  424. link : nil;
  425. linkextern : nil;
  426. ar : ar_gnu_ar;
  427. res : res_none;
  428. script : script_unix;
  429. endian : endian_little;
  430. alignment :
  431. (
  432. procalign : 4;
  433. loopalign : 4;
  434. jumpalign : 0;
  435. constalignmin : 0;
  436. constalignmax : 4;
  437. varalignmin : 0;
  438. varalignmax : 4;
  439. localalignmin : 4;
  440. localalignmax : 8;
  441. recordalignmin : 0;
  442. recordalignmax : 4;
  443. maxCrecordalign : 4
  444. );
  445. first_parm_offset : 8;
  446. stacksize : 262144;
  447. DllScanSupported:false;
  448. use_function_relative_addresses : true;
  449. abi : abi_default
  450. );
  451. implementation
  452. initialization
  453. {$ifdef CPU86}
  454. {$ifdef linux}
  455. { some FreeBSD versions define linux as well }
  456. {$ifndef FreeBSD}
  457. set_source_info(system_i386_linux_info);
  458. {$endif FreeBSD}
  459. {$endif}
  460. {$endif CPU86}
  461. {$ifdef CPU68}
  462. {$ifdef linux}
  463. set_source_info(system_m68k_linux_info);
  464. {$endif linux}
  465. {$endif CPU68}
  466. {$ifdef CPUX86_64}
  467. {$ifdef linux}
  468. set_source_info(system_x86_64_linux_info);
  469. {$endif linux}
  470. {$endif CPUX86_64}
  471. {$ifdef CPUALPHA}
  472. {$ifdef linux}
  473. set_source_info(system_alpha_linux_info);
  474. {$endif linux}
  475. {$endif CPUALPHA}
  476. {$ifdef CPUSPARC}
  477. {$ifdef linux}
  478. set_source_info(system_sparc_linux_info);
  479. {$endif linux}
  480. {$endif CPUSPARC}
  481. {$ifdef CPUPOWERPC}
  482. {$ifdef linux}
  483. set_source_info(system_powerpc_linux_info);
  484. {$endif linux}
  485. {$endif CPUPOWERPC}
  486. {$ifdef CPUARM}
  487. {$ifdef linux}
  488. set_source_info(system_arm_linux_info);
  489. {$endif linux}
  490. {$endif CPUARM}
  491. end.