i_aros.pas 8.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251
  1. {
  2. Copyright (c) 1998-2002 by Peter Vreman
  3. This unit implements support information structures for arosOS
  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 the arosOS. }
  18. unit i_aros;
  19. {$i fpcdefs.inc}
  20. interface
  21. uses
  22. systems;
  23. const
  24. system_i386_aros_info : tsysteminfo =
  25. (
  26. system : system_i386_aros;
  27. name : 'AROS for i386';
  28. shortname : 'AROS';
  29. flags : [tf_files_case_aware, tf_smartlink_sections, tf_has_winlike_resources,tf_supports_hidden_symbols];
  30. cpu : cpu_i386;
  31. unit_env : 'AROSUNITS';
  32. extradefines : 'HASAMIGA;AROS_ABIv0';
  33. exeext : '';
  34. defext : '.def';
  35. scriptext : '.sh';
  36. smartext : '.sl';
  37. unitext : '.ppu';
  38. unitlibext : '.ppl';
  39. asmext : '.s';
  40. objext : '.o';
  41. resext : '.res';
  42. resobjext : '.or';
  43. sharedlibext : '.library';
  44. staticlibext : '.a';
  45. staticlibprefix : 'libp';
  46. sharedlibprefix : '';
  47. sharedClibext : '.library';
  48. staticClibext : '.a';
  49. staticClibprefix : 'lib';
  50. sharedClibprefix : '';
  51. importlibprefix : 'libimp';
  52. importlibext : '.a';
  53. Cprefix : '';
  54. newline : #10;
  55. dirsep : '/';
  56. assem : as_i386_elf32;
  57. assemextern : as_gas;
  58. link : ld_none;
  59. linkextern : ld_aros;
  60. ar : ar_gnu_ar;
  61. res : res_elf;
  62. dbg : dbg_stabs;
  63. script : script_amiga;
  64. endian : endian_little;
  65. alignment :
  66. (
  67. procalign : 16;
  68. loopalign : 4;
  69. jumpalign : 0;
  70. jumpalignskipmax : 0;
  71. coalescealign : 0;
  72. coalescealignskipmax: 0;
  73. constalignmin : 0;
  74. constalignmax : 16;
  75. varalignmin : 0;
  76. varalignmax : 16;
  77. localalignmin : 0;
  78. localalignmax : 4;
  79. recordalignmin : 0;
  80. recordalignmax : 16;
  81. maxCrecordalign : 4
  82. );
  83. first_parm_offset : 8;
  84. stacksize : 262144;
  85. stackalign : 4;
  86. abi : abi_default;
  87. llvmdatalayout : 'todo';
  88. mos6502page0alloc : [];
  89. );
  90. system_x86_64_aros_info : tsysteminfo =
  91. (
  92. system : system_x86_64_aros;
  93. name : 'AROS for x86_64';
  94. shortname : 'AROS';
  95. flags : [tf_files_case_aware, tf_smartlink_sections, tf_has_winlike_resources,tf_supports_hidden_symbols];
  96. cpu : cpu_x86_64;
  97. unit_env : 'AROSUNITS';
  98. extradefines : 'HASAMIGA;AROS_BINCOMPAT;AROS_ABIv1';
  99. exeext : '';
  100. defext : '.def';
  101. scriptext : '.sh';
  102. smartext : '.sl';
  103. unitext : '.ppu';
  104. unitlibext : '.ppl';
  105. asmext : '.s';
  106. objext : '.o';
  107. resext : '.res';
  108. resobjext : '.or';
  109. sharedlibext : '.library';
  110. staticlibext : '.a';
  111. staticlibprefix : 'libp';
  112. sharedlibprefix : '';
  113. sharedClibext : '.library';
  114. staticClibext : '.a';
  115. staticClibprefix : 'lib';
  116. sharedClibprefix : '';
  117. importlibprefix : 'libimp';
  118. importlibext : '.a';
  119. Cprefix : '';
  120. newline : #10;
  121. dirsep : '/';
  122. assem : as_x86_64_elf64;
  123. assemextern : as_gas;
  124. link : ld_none;
  125. linkextern : ld_aros;
  126. ar : ar_gnu_ar;
  127. res : res_elf;
  128. dbg : dbg_stabs;
  129. script : script_amiga;
  130. endian : endian_little;
  131. alignment :
  132. (
  133. procalign : 8;
  134. loopalign : 4;
  135. jumpalign : 0;
  136. jumpalignskipmax : 0;
  137. coalescealign : 0;
  138. coalescealignskipmax: 0;
  139. constalignmin : 0;
  140. constalignmax : 16;
  141. varalignmin : 0;
  142. varalignmax : 16;
  143. localalignmin : 4;
  144. localalignmax : 16;
  145. recordalignmin : 0;
  146. recordalignmax : 16;
  147. maxCrecordalign : 16
  148. );
  149. first_parm_offset : 16;
  150. stacksize : 1*1024*1024;
  151. stackalign : 16; { fix me: this is a wild guess for now (KB) }
  152. abi : abi_default;
  153. llvmdatalayout : 'todo';
  154. mos6502page0alloc : [];
  155. );
  156. system_arm_aros_info : tsysteminfo =
  157. (
  158. system : system_arm_aros;
  159. name : 'AROS for ARM';
  160. shortname : 'AROS';
  161. flags : [tf_files_case_aware, tf_smartlink_sections, tf_has_winlike_resources,tf_supports_hidden_symbols];
  162. cpu : cpu_arm;
  163. unit_env : 'AROSUNITS';
  164. extradefines : 'HASAMIGA;AROS_BINCOMPAT;AROS_ABIv0';
  165. exeext : '';
  166. defext : '.def';
  167. scriptext : '.sh';
  168. smartext : '.sl';
  169. unitext : '.ppu';
  170. unitlibext : '.ppl';
  171. asmext : '.s';
  172. objext : '.o';
  173. resext : '.res';
  174. resobjext : '.or';
  175. sharedlibext : '.library';
  176. staticlibext : '.a';
  177. staticlibprefix : 'libp';
  178. sharedlibprefix : '';
  179. sharedClibext : '.library';
  180. staticClibext : '.a';
  181. staticClibprefix : 'lib';
  182. sharedClibprefix : '';
  183. importlibprefix : 'libimp';
  184. importlibext : '.a';
  185. Cprefix : '';
  186. newline : #10;
  187. dirsep : '/';
  188. assem : as_arm_elf32;
  189. assemextern : as_gas;
  190. link : ld_none;
  191. linkextern : ld_aros;
  192. ar : ar_gnu_ar;
  193. res : res_elf;
  194. dbg : dbg_stabs;
  195. script : script_amiga;
  196. endian : endian_little;
  197. alignment :
  198. (
  199. procalign : 16;
  200. loopalign : 4;
  201. jumpalign : 0;
  202. jumpalignskipmax : 0;
  203. coalescealign : 0;
  204. coalescealignskipmax: 0;
  205. constalignmin : 0;
  206. constalignmax : 16;
  207. varalignmin : 0;
  208. varalignmax : 16;
  209. localalignmin : 0;
  210. localalignmax : 4;
  211. recordalignmin : 0;
  212. recordalignmax : 16;
  213. maxCrecordalign : 4
  214. );
  215. first_parm_offset : 8;
  216. stacksize : 262144;
  217. stackalign : 4;
  218. abi : abi_default;
  219. llvmdatalayout : 'todo';
  220. mos6502page0alloc : [];
  221. );
  222. implementation
  223. initialization
  224. {$ifdef CPU86}
  225. {$ifdef aros}
  226. set_source_info(system_i386_aros_info);
  227. {$endif aros}
  228. {$endif CPU86}
  229. {$ifdef CPUX86_64}
  230. {$ifdef AROS}
  231. set_source_info(system_x86_64_aros_info);
  232. {$endif AROS}
  233. {$endif CPUX86_64}
  234. {$ifdef CPUARM}
  235. {$ifdef AROS}
  236. set_source_info(system_arm_aros_info);
  237. {$endif AROS}
  238. {$endif CPUX86_64}
  239. end.