i_linux.pas 19 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568
  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_x86_6432_linux_info : tsysteminfo =
  85. (
  86. system : system_x86_6432_LINUX;
  87. name : 'Linux for x64_6432';
  88. shortname : 'Linux6432';
  89. flags : [tf_needs_symbol_size,tf_pic_uses_got{,tf_smartlink_sections}];
  90. cpu : cpu_x86_64;
  91. unit_env : 'LINUXUNITS';
  92. extradefines : 'UNIX;HASUNIX';
  93. exeext : '';
  94. defext : '.def';
  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_i386_elf32;
  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_little;
  124. alignment :
  125. (
  126. procalign : 16;
  127. loopalign : 4;
  128. jumpalign : 0;
  129. constalignmin : 0;
  130. constalignmax : 8;
  131. varalignmin : 0;
  132. varalignmax : 8;
  133. localalignmin : 4;
  134. localalignmax : 4;
  135. recordalignmin : 0;
  136. recordalignmax : 4;
  137. maxCrecordalign : 4
  138. );
  139. first_parm_offset : 8;
  140. stacksize : 262144;
  141. DllScanSupported:false;
  142. use_function_relative_addresses : true;
  143. abi : abi_default
  144. );
  145. system_m68k_linux_info : tsysteminfo =
  146. (
  147. system : system_m68k_linux;
  148. name : 'Linux for m68k';
  149. shortname : 'Linux';
  150. flags : [tf_needs_symbol_size];
  151. cpu : cpu_m68k;
  152. unit_env : 'LINUXUNITS';
  153. extradefines : 'UNIX;HASUNIX';
  154. exeext : '';
  155. defext : '';
  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 : 2;
  198. maxCrecordalign : 4
  199. );
  200. first_parm_offset : 8;
  201. stacksize : 32*1024*1024;
  202. DllScanSupported:false;
  203. use_function_relative_addresses : true;
  204. abi : abi_default
  205. );
  206. system_powerpc_linux_info : tsysteminfo =
  207. (
  208. system : system_powerpc_LINUX;
  209. name : 'Linux for PowerPC';
  210. shortname : 'Linux';
  211. flags : [tf_needs_symbol_size];
  212. cpu : cpu_powerpc;
  213. unit_env : '';
  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_big;
  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 : 4;
  259. maxCrecordalign : 8
  260. );
  261. first_parm_offset : 8;
  262. stacksize : 32*1024*1024;
  263. DllScanSupported:false;
  264. use_function_relative_addresses : true;
  265. abi : abi_powerpc_sysv;
  266. );
  267. system_alpha_linux_info : tsysteminfo =
  268. (
  269. system : system_alpha_LINUX;
  270. name : 'Linux for Alpha';
  271. shortname : 'Linux';
  272. flags : [tf_needs_symbol_size];
  273. cpu : cpu_alpha;
  274. unit_env : 'LINUXUNITS';
  275. extradefines : 'UNIX;HASUNIX';
  276. exeext : '';
  277. defext : '.def';
  278. scriptext : '.sh';
  279. smartext : '.sl';
  280. unitext : '.ppu';
  281. unitlibext : '.ppl';
  282. asmext : '.s';
  283. objext : '.o';
  284. resext : '.res';
  285. resobjext : '.or';
  286. sharedlibext : '.so';
  287. staticlibext : '.a';
  288. staticlibprefix : 'libp';
  289. sharedlibprefix : 'lib';
  290. sharedClibext : '.so';
  291. staticClibext : '.a';
  292. staticClibprefix : 'lib';
  293. sharedClibprefix : 'lib';
  294. p_ext_support : false;
  295. Cprefix : '';
  296. newline : #10;
  297. dirsep : '/';
  298. files_case_relevent : true;
  299. assem : as_gas;
  300. assemextern : as_gas;
  301. link : nil;
  302. linkextern : nil;
  303. ar : ar_gnu_ar;
  304. res : res_none;
  305. script : script_unix;
  306. endian : endian_little;
  307. alignment :
  308. (
  309. procalign : 4;
  310. loopalign : 4;
  311. jumpalign : 0;
  312. constalignmin : 0;
  313. constalignmax : 4;
  314. varalignmin : 0;
  315. varalignmax : 4;
  316. localalignmin : 4;
  317. localalignmax : 4;
  318. recordalignmin : 0;
  319. recordalignmax : 2;
  320. maxCrecordalign : 4
  321. );
  322. first_parm_offset : 8;
  323. stacksize : 32*1024*1024;
  324. DllScanSupported:false;
  325. use_function_relative_addresses : true;
  326. abi : abi_default
  327. );
  328. system_x86_64_linux_info : tsysteminfo =
  329. (
  330. system : system_x86_64_LINUX;
  331. name : 'Linux for x86-64';
  332. shortname : 'Linux';
  333. flags : [tf_needs_symbol_size,tf_needs_dwarf_cfi,
  334. tf_library_needs_pic];
  335. cpu : cpu_x86_64;
  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_little;
  369. alignment :
  370. (
  371. procalign : 8;
  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 : 16;
  385. stacksize : 256*1024;
  386. DllScanSupported:false;
  387. use_function_relative_addresses : true;
  388. abi : abi_default
  389. );
  390. system_sparc_linux_info : tsysteminfo =
  391. (
  392. system : system_SPARC_Linux;
  393. name : 'Linux for SPARC';
  394. shortname : 'Linux';
  395. flags : [tf_needs_symbol_size,tf_library_needs_pic];
  396. cpu : cpu_SPARC;
  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_big;
  430. alignment :
  431. (
  432. procalign : 4;
  433. loopalign : 4;
  434. jumpalign : 0;
  435. constalignmin : 0;
  436. constalignmax : 8;
  437. varalignmin : 0;
  438. varalignmax : 8;
  439. localalignmin : 4;
  440. localalignmax : 8;
  441. recordalignmin : 0;
  442. recordalignmax : 8;
  443. maxCrecordalign : 8
  444. );
  445. first_parm_offset : 92;
  446. stacksize : 262144;
  447. DllScanSupported:false;
  448. use_function_relative_addresses : true;
  449. abi : abi_default
  450. );
  451. system_arm_linux_info : tsysteminfo =
  452. (
  453. system : system_arm_Linux;
  454. name : 'Linux for ARM';
  455. shortname : 'Linux';
  456. flags : [tf_needs_symbol_size];
  457. cpu : cpu_arm;
  458. unit_env : 'LINUXUNITS';
  459. extradefines : 'UNIX;HASUNIX';
  460. exeext : '';
  461. defext : '.def';
  462. scriptext : '.sh';
  463. smartext : '.sl';
  464. unitext : '.ppu';
  465. unitlibext : '.ppl';
  466. asmext : '.s';
  467. objext : '.o';
  468. resext : '.res';
  469. resobjext : '.or';
  470. sharedlibext : '.so';
  471. staticlibext : '.a';
  472. staticlibprefix : 'libp';
  473. sharedlibprefix : 'lib';
  474. sharedClibext : '.so';
  475. staticClibext : '.a';
  476. staticClibprefix : 'lib';
  477. sharedClibprefix : 'lib';
  478. p_ext_support : false;
  479. Cprefix : '';
  480. newline : #10;
  481. dirsep : '/';
  482. files_case_relevent : true;
  483. assem : as_gas;
  484. assemextern : as_gas;
  485. link : nil;
  486. linkextern : nil;
  487. ar : ar_gnu_ar;
  488. res : res_none;
  489. script : script_unix;
  490. endian : endian_little;
  491. alignment :
  492. (
  493. procalign : 4;
  494. loopalign : 4;
  495. jumpalign : 0;
  496. constalignmin : 0;
  497. constalignmax : 4;
  498. varalignmin : 0;
  499. varalignmax : 4;
  500. localalignmin : 4;
  501. localalignmax : 8;
  502. recordalignmin : 0;
  503. recordalignmax : 4;
  504. maxCrecordalign : 4
  505. );
  506. first_parm_offset : 8;
  507. stacksize : 262144;
  508. DllScanSupported:false;
  509. use_function_relative_addresses : true;
  510. abi : abi_default
  511. );
  512. implementation
  513. initialization
  514. {$ifdef CPU86}
  515. {$ifdef linux}
  516. { some FreeBSD versions define linux as well }
  517. {$ifndef FreeBSD}
  518. set_source_info(system_i386_linux_info);
  519. {$endif FreeBSD}
  520. {$endif}
  521. {$endif CPU86}
  522. {$ifdef CPU68}
  523. {$ifdef linux}
  524. set_source_info(system_m68k_linux_info);
  525. {$endif linux}
  526. {$endif CPU68}
  527. {$ifdef CPUX86_64}
  528. {$ifdef linux}
  529. set_source_info(system_x86_64_linux_info);
  530. {$endif linux}
  531. {$endif CPUX86_64}
  532. {$ifdef CPUALPHA}
  533. {$ifdef linux}
  534. set_source_info(system_alpha_linux_info);
  535. {$endif linux}
  536. {$endif CPUALPHA}
  537. {$ifdef CPUSPARC}
  538. {$ifdef linux}
  539. set_source_info(system_sparc_linux_info);
  540. {$endif linux}
  541. {$endif CPUSPARC}
  542. {$ifdef CPUPOWERPC}
  543. {$ifdef linux}
  544. set_source_info(system_powerpc_linux_info);
  545. {$endif linux}
  546. {$endif CPUPOWERPC}
  547. {$ifdef CPUARM}
  548. {$ifdef linux}
  549. set_source_info(system_arm_linux_info);
  550. {$endif linux}
  551. {$endif CPUARM}
  552. end.