aasmcpu.pas 7.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312
  1. {
  2. Copyright (c) 2019 by Free Pascal and Lazarus foundation
  3. Contains the assembler object for the WebAssembly
  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. unit aasmcpu;
  18. {$i fpcdefs.inc}
  19. interface
  20. uses
  21. cclasses,
  22. globtype,globals,verbose,
  23. aasmbase,aasmtai,aasmdata,aasmsym,
  24. cgbase,cgutils,cpubase,cpuinfo,
  25. widestr;
  26. { fake, there are no "mov reg,reg" instructions here }
  27. const
  28. { "mov reg,reg" source operand number }
  29. O_MOV_SOURCE = 0;
  30. { "mov reg,reg" source operand number }
  31. O_MOV_DEST = 0;
  32. type
  33. { taicpu }
  34. taicpu = class(tai_cpu_abstract_sym)
  35. constructor op_none(op : tasmop);
  36. constructor op_reg(op : tasmop;_op1 : tregister);
  37. constructor op_const(op : tasmop;_op1 : aint);
  38. constructor op_ref(op : tasmop;const _op1 : treference);
  39. constructor op_sym(op : tasmop;_op1 : tasmsymbol);
  40. constructor op_sym_const(op : tasmop;_op1 : tasmsymbol;_op2 : aint);
  41. constructor op_single(op : tasmop;_op1 : single);
  42. constructor op_double(op : tasmop;_op1 : double);
  43. //constructor op_string(op : tasmop;_op1len : aint;_op1 : pchar);
  44. //constructor op_wstring(op : tasmop;_op1 : pcompilerwidestring);
  45. procedure loadsingle(opidx:longint;f:single);
  46. procedure loaddouble(opidx:longint;d:double);
  47. //procedure loadstr(opidx:longint;vallen: aint;pc: pchar);
  48. //procedure loadpwstr(opidx:longint;pwstr:pcompilerwidestring);
  49. { register allocation }
  50. function is_same_reg_move(regtype: Tregistertype):boolean; override;
  51. { register spilling code }
  52. function spilling_get_operation_type(opnr: longint): topertype;override;
  53. end;
  54. tai_align = class(tai_align_abstract)
  55. { nothing to add }
  56. end;
  57. TImpExpType= (
  58. ie_Func, // functions
  59. ie_Table, // tables (arrays of methods)
  60. ie_Memory, // memory reference
  61. ie_Global // global variables
  62. );
  63. // the actual use is defined by the assembly section used
  64. { timpexp_ai }
  65. tai_impexp = class(tai)
  66. extname : ansistring; // external name
  67. intname : ansistring; // internal name
  68. symstype: TImpExpType;
  69. constructor create(const aextname, aintname: ansistring; asymtype: timpexptype);
  70. end;
  71. // local variable declaration
  72. { tai_local }
  73. tai_local = class(tai)
  74. bastyp: TWasmBasicType;
  75. constructor create(abasictype: TWasmBasicType);
  76. end;
  77. procedure InitAsm;
  78. procedure DoneAsm;
  79. function spilling_create_load(const ref:treference;r:tregister):Taicpu;
  80. function spilling_create_store(r:tregister; const ref:treference):Taicpu;
  81. implementation
  82. { tai_local }
  83. constructor tai_local.create(abasictype: TWasmBasicType);
  84. begin
  85. bastyp := abasictype;
  86. typ := ait_local;
  87. inherited Create;
  88. end;
  89. { timpexp_ai }
  90. constructor tai_impexp.create(const aextname, aintname: ansistring;
  91. asymtype: timpexptype);
  92. begin
  93. inherited create;
  94. typ := ait_importexport;
  95. extname := aextname;
  96. intname := aintname;
  97. end;
  98. {*****************************************************************************
  99. taicpu Constructors
  100. *****************************************************************************}
  101. constructor taicpu.op_none(op : tasmop);
  102. begin
  103. inherited create(op);
  104. end;
  105. constructor taicpu.op_reg(op : tasmop;_op1 : tregister);
  106. begin
  107. inherited create(op);
  108. ops:=1;
  109. loadreg(0,_op1);
  110. end;
  111. constructor taicpu.op_ref(op : tasmop;const _op1 : treference);
  112. begin
  113. inherited create(op);
  114. ops:=1;
  115. loadref(0,_op1);
  116. end;
  117. constructor taicpu.op_const(op : tasmop;_op1 : aint);
  118. begin
  119. inherited create(op);
  120. ops:=1;
  121. loadconst(0,_op1);
  122. end;
  123. constructor taicpu.op_sym(op : tasmop;_op1 : tasmsymbol);
  124. begin
  125. inherited create(op);
  126. ops:=1;
  127. //is_jmp:=op in [a_if_acmpeq, a_if_acmpne, a_if_icmpeq, a_if_icmpge, a_if_icmpgt,
  128. // a_if_icmple, a_if_icmplt, a_if_icmpne,
  129. // a_ifeq, a_ifge, a_ifgt, a_ifle, a_iflt, a_ifne, a_ifnonnull, a_ifnull, a_goto];
  130. loadsymbol(0,_op1,0);
  131. end;
  132. constructor taicpu.op_sym_const(op: tasmop; _op1: tasmsymbol; _op2: aint);
  133. begin
  134. inherited create(op);
  135. ops:=2;
  136. loadsymbol(0,_op1,0);
  137. loadconst(1,_op2);
  138. end;
  139. constructor taicpu.op_single(op: tasmop; _op1: single);
  140. begin
  141. inherited create(op);
  142. ops:=1;
  143. loadsingle(0,_op1);
  144. end;
  145. constructor taicpu.op_double(op: tasmop; _op1: double);
  146. begin
  147. inherited create(op);
  148. ops:=1;
  149. loaddouble(0,_op1);
  150. end;
  151. {constructor taicpu.op_string(op: tasmop; _op1len: aint; _op1: pchar);
  152. begin
  153. inherited create(op);
  154. ops:=1;
  155. loadstr(0,_op1len,_op1);
  156. end;
  157. constructor taicpu.op_wstring(op: tasmop; _op1: pcompilerwidestring);
  158. begin
  159. inherited create(op);
  160. ops:=1;
  161. loadpwstr(0,_op1);
  162. end;}
  163. procedure taicpu.loadsingle(opidx:longint;f:single);
  164. begin
  165. allocate_oper(opidx+1);
  166. with oper[opidx]^ do
  167. begin
  168. if typ<>top_single then
  169. clearop(opidx);
  170. sval:=f;
  171. typ:=top_single;
  172. end;
  173. end;
  174. procedure taicpu.loaddouble(opidx: longint; d: double);
  175. begin
  176. allocate_oper(opidx+1);
  177. with oper[opidx]^ do
  178. begin
  179. if typ<>top_double then
  180. clearop(opidx);
  181. dval:=d;
  182. typ:=top_double;
  183. end;
  184. end;
  185. {procedure taicpu.loadstr(opidx: longint; vallen: aint; pc: pchar);
  186. begin
  187. allocate_oper(opidx+1);
  188. with oper[opidx]^ do
  189. begin
  190. clearop(opidx);
  191. pcvallen:=vallen;
  192. getmem(pcval,vallen);
  193. move(pc^,pcval^,vallen);
  194. typ:=top_string;
  195. end;
  196. end;
  197. procedure taicpu.loadpwstr(opidx:longint;pwstr:pcompilerwidestring);
  198. begin
  199. allocate_oper(opidx+1);
  200. with oper[opidx]^ do
  201. begin
  202. clearop(opidx);
  203. initwidestring(pwstrval);
  204. copywidestring(pwstr,pwstrval);
  205. typ:=top_wstring;
  206. end;
  207. end;}
  208. function taicpu.is_same_reg_move(regtype: Tregistertype):boolean;
  209. begin
  210. result:=false;
  211. end;
  212. function taicpu.spilling_get_operation_type(opnr: longint): topertype;
  213. begin
  214. if opcode in AsmOp_Store then
  215. result:=operand_write
  216. else
  217. result:=operand_read;
  218. end;
  219. function spilling_create_load(const ref:treference;r:tregister):Taicpu;
  220. begin
  221. internalerror(2010122614);
  222. result:=nil;
  223. end;
  224. function spilling_create_store(r:tregister; const ref:treference):Taicpu;
  225. begin
  226. internalerror(2010122615);
  227. result:=nil;
  228. end;
  229. procedure InitAsm;
  230. begin
  231. end;
  232. procedure DoneAsm;
  233. begin
  234. end;
  235. initialization
  236. cai_cpu:=taicpu;
  237. cai_align:=tai_align;
  238. casmdata:=TAsmData;
  239. end.