i_palmos.pas 6.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194
  1. {
  2. Copyright (c) 1998-2002 by Peter Vreman
  3. This unit implements support information structures for PalmOS
  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 PalmOS. }
  18. unit i_palmos;
  19. {$i fpcdefs.inc}
  20. interface
  21. uses
  22. systems;
  23. const
  24. system_m68k_palmos_info : tsysteminfo =
  25. (
  26. system : system_m68k_PalmOS;
  27. name : 'PalmOS';
  28. shortname : 'PalmOS';
  29. flags : [tf_under_development,tf_code_small,tf_static_reg_based,tf_requires_proper_alignment,
  30. tf_smartlink_library,tf_no_objectfiles_when_smartlinking];
  31. cpu : cpu_m68k;
  32. unit_env : 'PALMUNITS';
  33. extradefines : '';
  34. exeext : '';
  35. defext : '.def';
  36. scriptext : '.sh';
  37. smartext : '.sl';
  38. unitext : '.ppu';
  39. unitlibext : '.ppl';
  40. asmext : '.s';
  41. objext : '.o';
  42. resext : '.res';
  43. resobjext : '.or';
  44. sharedlibext : '.so';
  45. staticlibext : '.a';
  46. staticlibprefix : 'libp';
  47. sharedlibprefix : 'lib';
  48. sharedClibext : '.so';
  49. staticClibext : '.a';
  50. staticClibprefix : 'lib';
  51. sharedClibprefix : 'lib';
  52. importlibprefix : 'libimp';
  53. importlibext : '.a';
  54. Cprefix : '_';
  55. newline : #10;
  56. dirsep : '/';
  57. assem : as_m68k_as_aout;
  58. assemextern : as_m68k_as_aout;
  59. link : ld_none;
  60. linkextern : ld_palmos;
  61. ar : ar_gnu_ar;
  62. res : res_none;
  63. dbg : dbg_stabs;
  64. script : script_unix;
  65. endian : endian_big;
  66. alignment :
  67. (
  68. procalign : 4;
  69. loopalign : 4;
  70. jumpalign : 0;
  71. constalignmin : 0;
  72. constalignmax : 4;
  73. varalignmin : 0;
  74. varalignmax : 4;
  75. localalignmin : 0;
  76. localalignmax : 4;
  77. recordalignmin : 0;
  78. recordalignmax : 2;
  79. maxCrecordalign : 4
  80. );
  81. first_parm_offset : 8;
  82. stacksize : 8192;
  83. stackalign : 2;
  84. abi : abi_default;
  85. llvmdatalayout : 'todo';
  86. );
  87. res_m68k_palmos_info : tresinfo =
  88. (
  89. id : res_m68k_palmos;
  90. resbin : 'pilrc';
  91. rescmd : '-I $INC $RES';
  92. rcbin : '';
  93. rccmd : '';
  94. resourcefileclass : nil;
  95. resflags : [];
  96. );
  97. system_arm_palmos_info : tsysteminfo =
  98. (
  99. system : system_arm_PalmOS;
  100. name : 'PalmOS';
  101. shortname : 'PalmOS';
  102. flags : [tf_code_small,tf_static_reg_based,tf_smartlink_sections,tf_requires_proper_alignment];
  103. cpu : cpu_arm;
  104. unit_env : 'PALMUNITS';
  105. extradefines : '';
  106. exeext : '';
  107. defext : '.def';
  108. scriptext : '.sh';
  109. smartext : '.sl';
  110. unitext : '.ppu';
  111. unitlibext : '.ppl';
  112. asmext : '.s';
  113. objext : '.o';
  114. resext : '.res';
  115. resobjext : '.or';
  116. sharedlibext : '.so';
  117. staticlibext : '.a';
  118. staticlibprefix : 'libp';
  119. sharedlibprefix : 'lib';
  120. sharedClibext : '.so';
  121. staticClibext : '.a';
  122. staticClibprefix : 'lib';
  123. sharedClibprefix : 'lib';
  124. importlibprefix : 'libimp';
  125. importlibext : '.a';
  126. Cprefix : '_';
  127. newline : #10;
  128. dirsep : '/';
  129. assem : as_gas;
  130. assemextern : as_gas;
  131. link : ld_none;
  132. linkextern : ld_palmos;
  133. ar : ar_gnu_ar;
  134. res : res_none;
  135. dbg : dbg_stabs;
  136. script : script_unix;
  137. endian : endian_big;
  138. alignment :
  139. (
  140. procalign : 4;
  141. loopalign : 4;
  142. jumpalign : 0;
  143. constalignmin : 0;
  144. constalignmax : 4;
  145. varalignmin : 0;
  146. varalignmax : 4;
  147. localalignmin : 0;
  148. localalignmax : 4;
  149. recordalignmin : 0;
  150. recordalignmax : 2;
  151. maxCrecordalign : 4
  152. );
  153. first_parm_offset : 8;
  154. stacksize : 8192;
  155. stackalign : 4;
  156. abi : abi_default;
  157. llvmdatalayout : 'todo';
  158. );
  159. res_arm_palmos_info : tresinfo =
  160. (
  161. id : res_m68k_palmos;
  162. resbin : 'pilrc';
  163. rescmd : '-I $INC $RES';
  164. rcbin : '';
  165. rccmd : '';
  166. resourcefileclass : nil;
  167. resflags : [];
  168. );
  169. implementation
  170. initialization
  171. {$ifdef cpu68}
  172. {$ifdef palmos}
  173. set_source_info(system_m68k_palmos_info);
  174. {$endif palmos}
  175. {$endif cpu68}
  176. {$ifdef cpuarm}
  177. {$ifdef palmos}
  178. set_source_info(system_arm_palmos_info);
  179. {$endif palmos}
  180. {$endif cpuarm}
  181. end.