1 // WebAssemblyInstrFormats.td - WebAssembly Instruction Formats -*- tblgen -*-//
3 // The LLVM Compiler Infrastructure
5 // This file is distributed under the University of Illinois Open Source
6 // License. See LICENSE.TXT for details.
8 //===----------------------------------------------------------------------===//
11 /// \brief WebAssembly instruction format definitions.
13 //===----------------------------------------------------------------------===//
15 // WebAssembly Instruction Format.
16 class WebAssemblyInst<string asmstr> : Instruction {
17 field bits<0> Inst; // Instruction encoding.
18 let Namespace = "WebAssembly";
20 let AsmString = asmstr;
23 // Normal instructions.
24 class I<dag oops, dag iops, list<dag> pattern, string asmstr = "">
25 : WebAssemblyInst<asmstr> {
26 dag OutOperandList = oops;
27 dag InOperandList = iops;
28 let Pattern = pattern;
31 // Unary and binary instructions, for the local types that WebAssembly supports.
32 multiclass UnaryInt<SDNode node, string name> {
33 def _I32 : I<(outs I32:$dst), (ins I32:$src),
34 [(set I32:$dst, (node I32:$src))],
35 !strconcat("i32.", !strconcat(name, "\t$dst, $src"))>;
36 def _I64 : I<(outs I64:$dst), (ins I64:$src),
37 [(set I64:$dst, (node I64:$src))],
38 !strconcat("i64.", !strconcat(name, "\t$dst, $src"))>;
40 multiclass BinaryInt<SDNode node, string name> {
41 def _I32 : I<(outs I32:$dst), (ins I32:$lhs, I32:$rhs),
42 [(set I32:$dst, (node I32:$lhs, I32:$rhs))],
43 !strconcat("i32.", !strconcat(name, "\t$dst, $lhs, $rhs"))>;
44 def _I64 : I<(outs I64:$dst), (ins I64:$lhs, I64:$rhs),
45 [(set I64:$dst, (node I64:$lhs, I64:$rhs))],
46 !strconcat("i64.", !strconcat(name, "\t$dst, $lhs, $rhs"))>;
48 multiclass UnaryFP<SDNode node, string name> {
49 def _F32 : I<(outs F32:$dst), (ins F32:$src),
50 [(set F32:$dst, (node F32:$src))],
51 !strconcat("f32.", !strconcat(name, "\t$dst, $src"))>;
52 def _F64 : I<(outs F64:$dst), (ins F64:$src),
53 [(set F64:$dst, (node F64:$src))],
54 !strconcat("f64.", !strconcat(name, "\t$dst, $src"))>;
56 multiclass BinaryFP<SDNode node, string name> {
57 def _F32 : I<(outs F32:$dst), (ins F32:$lhs, F32:$rhs),
58 [(set F32:$dst, (node F32:$lhs, F32:$rhs))],
59 !strconcat("f32.", !strconcat(name, "\t$dst, $lhs, $rhs"))>;
60 def _F64 : I<(outs F64:$dst), (ins F64:$lhs, F64:$rhs),
61 [(set F64:$dst, (node F64:$lhs, F64:$rhs))],
62 !strconcat("f64.", !strconcat(name, "\t$dst, $lhs, $rhs"))>;
64 multiclass ComparisonInt<CondCode cond, string name> {
65 def _I32 : I<(outs I32:$dst), (ins I32:$lhs, I32:$rhs),
66 [(set I32:$dst, (setcc I32:$lhs, I32:$rhs, cond))],
67 !strconcat("i32.", !strconcat(name, "\t$dst, $lhs, $rhs"))>;
68 def _I64 : I<(outs I32:$dst), (ins I64:$lhs, I64:$rhs),
69 [(set I32:$dst, (setcc I64:$lhs, I64:$rhs, cond))],
70 !strconcat("i64.", !strconcat(name, "\t$dst, $lhs, $rhs"))>;
72 multiclass ComparisonFP<CondCode cond, string name> {
73 def _F32 : I<(outs I32:$dst), (ins F32:$lhs, F32:$rhs),
74 [(set I32:$dst, (setcc F32:$lhs, F32:$rhs, cond))],
75 !strconcat("f32.", !strconcat(name, "\t$dst, $lhs, $rhs"))>;
76 def _F64 : I<(outs I32:$dst), (ins F64:$lhs, F64:$rhs),
77 [(set I32:$dst, (setcc F64:$lhs, F64:$rhs, cond))],
78 !strconcat("f64.", !strconcat(name, "\t$dst, $lhs, $rhs"))>;