agarmgas.pas 14 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416
  1. {
  2. Copyright (c) 2003 by Florian Klaempfl
  3. This unit implements an asm for the ARM
  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 the GNU Assembler writer for the ARM
  18. }
  19. unit agarmgas;
  20. {$i fpcdefs.inc}
  21. interface
  22. uses
  23. globtype,
  24. aasmtai,
  25. aggas,
  26. cpubase,cpuinfo;
  27. type
  28. TARMGNUAssembler=class(TGNUassembler)
  29. constructor create(smart: boolean); override;
  30. function MakeCmdLine: TCmdStr; override;
  31. procedure WriteExtraHeader; override;
  32. end;
  33. TArmInstrWriter=class(TCPUInstrWriter)
  34. procedure WriteInstruction(hp : tai);override;
  35. end;
  36. TArmAppleGNUAssembler=class(TAppleGNUassembler)
  37. constructor create(smart: boolean); override;
  38. end;
  39. const
  40. gas_shiftmode2str : array[tshiftmode] of string[3] = (
  41. '','lsl','lsr','asr','ror','rrx');
  42. const
  43. cputype_to_gas_march : array[tcputype] of string = (
  44. '', // cpu_none
  45. 'armv3',
  46. 'armv4',
  47. 'armv4t',
  48. 'armv5',
  49. 'armv5t',
  50. 'armv5te',
  51. 'armv5tej',
  52. 'armv6',
  53. 'armv6k',
  54. 'armv6t2',
  55. 'armv6z',
  56. 'armv6-m',
  57. 'armv7',
  58. 'armv7-a',
  59. 'armv7-r',
  60. 'armv7-m',
  61. 'armv7e-m');
  62. implementation
  63. uses
  64. cutils,globals,verbose,
  65. systems,
  66. assemble,
  67. aasmcpu,
  68. itcpugas,
  69. cgbase,cgutils;
  70. {****************************************************************************}
  71. { GNU Arm Assembler writer }
  72. {****************************************************************************}
  73. constructor TArmGNUAssembler.create(smart: boolean);
  74. begin
  75. inherited create(smart);
  76. InstrWriter := TArmInstrWriter.create(self);
  77. end;
  78. function TArmGNUAssembler.MakeCmdLine: TCmdStr;
  79. begin
  80. result:=inherited MakeCmdLine;
  81. if (current_settings.fputype = fpu_soft) then
  82. result:='-mfpu=softvfp '+result;
  83. if (current_settings.fputype = fpu_vfpv2) then
  84. result:='-mfpu=vfpv2 '+result;
  85. if (current_settings.fputype = fpu_vfpv3) then
  86. result:='-mfpu=vfpv3 '+result;
  87. if (current_settings.fputype = fpu_vfpv3_d16) then
  88. result:='-mfpu=vfpv3-d16 '+result;
  89. if (current_settings.fputype = fpu_fpv4_s16) then
  90. result:='-mfpu=fpv4-sp-d16 '+result;
  91. if (current_settings.fputype = fpu_vfpv4) then
  92. result:='-mfpu=vfpv4 '+result;
  93. if GenerateThumb2Code then
  94. result:='-march='+cputype_to_gas_march[current_settings.cputype]+' -mthumb -mthumb-interwork '+result
  95. else if GenerateThumbCode then
  96. result:='-march='+cputype_to_gas_march[current_settings.cputype]+' -mthumb -mthumb-interwork '+result
  97. else
  98. result:='-march='+cputype_to_gas_march[current_settings.cputype]+' '+result;
  99. if target_info.abi = abi_eabihf then
  100. { options based on what gcc uses on debian armhf }
  101. result:='-mfloat-abi=hard -meabi=5 '+result;
  102. end;
  103. procedure TArmGNUAssembler.WriteExtraHeader;
  104. begin
  105. inherited WriteExtraHeader;
  106. if GenerateThumb2Code then
  107. AsmWriteLn(#9'.syntax unified');
  108. end;
  109. {****************************************************************************}
  110. { GNU/Apple ARM Assembler writer }
  111. {****************************************************************************}
  112. constructor TArmAppleGNUAssembler.create(smart: boolean);
  113. begin
  114. inherited create(smart);
  115. InstrWriter := TArmInstrWriter.create(self);
  116. end;
  117. {****************************************************************************}
  118. { Helper routines for Instruction Writer }
  119. {****************************************************************************}
  120. function getreferencestring(var ref : treference) : string;
  121. var
  122. s : string;
  123. begin
  124. with ref do
  125. begin
  126. {$ifdef extdebug}
  127. // if base=NR_NO then
  128. // internalerror(200308292);
  129. // if ((index<>NR_NO) or (shiftmode<>SM_None)) and ((offset<>0) or (symbol<>nil)) then
  130. // internalerror(200308293);
  131. {$endif extdebug}
  132. if assigned(symbol) then
  133. begin
  134. if (base<>NR_NO) and not(is_pc(base)) then
  135. internalerror(200309011);
  136. s:=symbol.name;
  137. if offset<>0 then
  138. s:=s+tostr_with_plus(offset);
  139. if refaddr=addr_pic then
  140. s:=s+'(PLT)';
  141. end
  142. else
  143. begin
  144. s:='['+gas_regname(base);
  145. if addressmode=AM_POSTINDEXED then
  146. s:=s+']';
  147. if index<>NR_NO then
  148. begin
  149. if signindex<0 then
  150. s:=s+', -'
  151. else
  152. s:=s+', ';
  153. s:=s+gas_regname(index);
  154. {RRX always rotates by 1 bit and does not take an imm}
  155. if shiftmode = SM_RRX then
  156. s:=s+', rrx'
  157. else if shiftmode <> SM_None then
  158. s:=s+', '+gas_shiftmode2str[shiftmode]+' #'+tostr(shiftimm);
  159. end
  160. else if offset<>0 then
  161. s:=s+', #'+tostr(offset);
  162. case addressmode of
  163. AM_OFFSET:
  164. s:=s+']';
  165. AM_PREINDEXED:
  166. s:=s+']!';
  167. end;
  168. end;
  169. end;
  170. getreferencestring:=s;
  171. end;
  172. function getopstr(const o:toper) : string;
  173. var
  174. hs : string;
  175. first : boolean;
  176. r, rs : tsuperregister;
  177. begin
  178. case o.typ of
  179. top_reg:
  180. getopstr:=gas_regname(o.reg);
  181. top_shifterop:
  182. begin
  183. {RRX is special, it only rotates by 1 and does not take any shiftervalue}
  184. if o.shifterop^.shiftmode=SM_RRX then
  185. getopstr:='rrx'
  186. else if (o.shifterop^.rs<>NR_NO) and (o.shifterop^.shiftimm=0) then
  187. getopstr:=gas_shiftmode2str[o.shifterop^.shiftmode]+' '+gas_regname(o.shifterop^.rs)
  188. else if (o.shifterop^.rs=NR_NO) then
  189. getopstr:=gas_shiftmode2str[o.shifterop^.shiftmode]+' #'+tostr(o.shifterop^.shiftimm)
  190. else internalerror(200308282);
  191. end;
  192. top_const:
  193. getopstr:='#'+tostr(longint(o.val));
  194. top_regset:
  195. begin
  196. getopstr:='{';
  197. first:=true;
  198. if R_SUBFS=o.subreg then
  199. begin
  200. for r:=0 to 31 do // S0 to S31
  201. if r in o.regset^ then
  202. begin
  203. if not(first) then
  204. getopstr:=getopstr+',';
  205. if odd(r) then
  206. rs:=(r shr 1)+RS_S1
  207. else
  208. rs:=(r shr 1)+RS_S0;
  209. getopstr:=getopstr+gas_regname(newreg(o.regtyp,rs,o.subreg));
  210. first:=false;
  211. end;
  212. end
  213. else if R_SUBFD=o.subreg then
  214. begin
  215. for r:=0 to 31 do
  216. if r in o.regset^ then
  217. begin
  218. if not(first) then
  219. getopstr:=getopstr+',';
  220. rs:=r+RS_D0;
  221. getopstr:=getopstr+gas_regname(newreg(o.regtyp,rs,o.subreg));
  222. first:=false;
  223. end;
  224. end
  225. else
  226. begin
  227. for r:=RS_R0 to RS_R15 do
  228. if r in o.regset^ then
  229. begin
  230. if not(first) then
  231. getopstr:=getopstr+',';
  232. getopstr:=getopstr+gas_regname(newreg(o.regtyp,r,o.subreg));
  233. first:=false;
  234. end;
  235. end;
  236. getopstr:=getopstr+'}';
  237. if o.usermode then
  238. getopstr:=getopstr+'^';
  239. end;
  240. top_conditioncode:
  241. getopstr:=cond2str[o.cc];
  242. top_modeflags:
  243. begin
  244. getopstr:='';
  245. if mfA in o.modeflags then getopstr:=getopstr+'a';
  246. if mfI in o.modeflags then getopstr:=getopstr+'i';
  247. if mfF in o.modeflags then getopstr:=getopstr+'f';
  248. end;
  249. top_ref:
  250. if o.ref^.refaddr=addr_full then
  251. begin
  252. hs:=o.ref^.symbol.name;
  253. if o.ref^.offset>0 then
  254. hs:=hs+'+'+tostr(o.ref^.offset)
  255. else
  256. if o.ref^.offset<0 then
  257. hs:=hs+tostr(o.ref^.offset);
  258. getopstr:=hs;
  259. end
  260. else
  261. getopstr:=getreferencestring(o.ref^);
  262. top_specialreg:
  263. begin
  264. getopstr:=gas_regname(o.specialreg);
  265. if o.specialflags<>[] then
  266. begin
  267. getopstr:=getopstr+'_';
  268. if srC in o.specialflags then getopstr:=getopstr+'c';
  269. if srX in o.specialflags then getopstr:=getopstr+'x';
  270. if srF in o.specialflags then getopstr:=getopstr+'f';
  271. if srS in o.specialflags then getopstr:=getopstr+'s';
  272. end;
  273. end
  274. else
  275. internalerror(2002070604);
  276. end;
  277. end;
  278. Procedure TArmInstrWriter.WriteInstruction(hp : tai);
  279. var op: TAsmOp;
  280. postfix,s: string;
  281. i: byte;
  282. sep: string[3];
  283. begin
  284. op:=taicpu(hp).opcode;
  285. if GenerateThumb2Code then
  286. begin
  287. postfix:='';
  288. if taicpu(hp).wideformat then
  289. postfix:='.w';
  290. if taicpu(hp).ops = 0 then
  291. s:=#9+gas_op2str[op]+cond2str[taicpu(hp).condition]+oppostfix2str[taicpu(hp).oppostfix]
  292. else if taicpu(hp).oppostfix in [PF_8..PF_U32F64] then
  293. s:=#9+gas_op2str[op]+cond2str[taicpu(hp).condition]+oppostfix2str[taicpu(hp).oppostfix]
  294. else
  295. s:=#9+gas_op2str[op]+oppostfix2str[taicpu(hp).oppostfix]+cond2str[taicpu(hp).condition]+postfix; // Conditional infixes are deprecated in unified syntax
  296. end
  297. else
  298. s:=#9+gas_op2str[op]+cond2str[taicpu(hp).condition]+oppostfix2str[taicpu(hp).oppostfix];
  299. if taicpu(hp).ops<>0 then
  300. begin
  301. sep:=#9;
  302. for i:=0 to taicpu(hp).ops-1 do
  303. begin
  304. // debug code
  305. // writeln(s);
  306. // writeln(taicpu(hp).fileinfo.line);
  307. { LDM and STM use references as first operand but they are written like a register }
  308. if (i=0) and (op in [A_LDM,A_STM,A_FSTM,A_FLDM,A_VSTM,A_VLDM]) then
  309. begin
  310. case taicpu(hp).oper[0]^.typ of
  311. top_ref:
  312. begin
  313. s:=s+sep+gas_regname(taicpu(hp).oper[0]^.ref^.index);
  314. if taicpu(hp).oper[0]^.ref^.addressmode=AM_PREINDEXED then
  315. s:=s+'!';
  316. end;
  317. top_reg:
  318. s:=s+sep+gas_regname(taicpu(hp).oper[0]^.reg);
  319. else
  320. internalerror(200311292);
  321. end;
  322. end
  323. { register count of SFM and LFM is written without # }
  324. else if (i=1) and (op in [A_SFM,A_LFM]) then
  325. begin
  326. case taicpu(hp).oper[1]^.typ of
  327. top_const:
  328. s:=s+sep+tostr(taicpu(hp).oper[1]^.val);
  329. else
  330. internalerror(200311292);
  331. end;
  332. end
  333. else
  334. s:=s+sep+getopstr(taicpu(hp).oper[i]^);
  335. sep:=',';
  336. end;
  337. end;
  338. owner.AsmWriteLn(s);
  339. end;
  340. const
  341. as_arm_gas_info : tasminfo =
  342. (
  343. id : as_gas;
  344. idtxt : 'AS';
  345. asmbin : 'as';
  346. asmcmd : '-o $OBJ $EXTRAOPT $ASM';
  347. supported_targets : [system_arm_linux,system_arm_wince,system_arm_gba,system_arm_palmos,system_arm_nds,
  348. system_arm_embedded,system_arm_symbian,system_arm_android];
  349. flags : [af_needar,af_smartlink_sections];
  350. labelprefix : '.L';
  351. comment : '# ';
  352. dollarsign: '$';
  353. );
  354. as_arm_gas_darwin_info : tasminfo =
  355. (
  356. id : as_darwin;
  357. idtxt : 'AS-Darwin';
  358. asmbin : 'as';
  359. asmcmd : '-o $OBJ $EXTRAOPT $ASM -arch $ARCH';
  360. supported_targets : [system_arm_darwin];
  361. flags : [af_needar,af_smartlink_sections,af_supports_dwarf,af_stabs_use_function_absolute_addresses];
  362. labelprefix : 'L';
  363. comment : '# ';
  364. dollarsign: '$';
  365. );
  366. begin
  367. RegisterAssembler(as_arm_gas_info,TARMGNUAssembler);
  368. RegisterAssembler(as_arm_gas_darwin_info,TArmAppleGNUAssembler);
  369. end.