+ added basic WebAssembly inline assembler test

tests/test/wasm/twasminlineasm1.pp

@@ -0,0 +1,75 @@
+{ %cpu=wasm32 }
+
+program twasminlineasm1;
+
+const
+  eps = 0.000001;
+
+procedure Check(Cond: Boolean);
+begin
+  if not Cond then
+  begin
+    Writeln('Error!');
+    Halt(1);
+  end;
+end;
+
+function test_i32_const: longint; assembler; nostackframe;
+asm
+  i32.const 5
+end;
+
+function test_i64_const: int64; assembler; nostackframe;
+asm
+  i64.const 1234567890123456
+end;
+
+function test_f32_const: single; assembler; nostackframe;
+asm
+  f32.const 3.14159
+end;
+
+function test_f64_const: double; assembler; nostackframe;
+asm
+  f64.const 2.71828
+end;
+
+function test_i32_add(a, b: longint): longint; assembler; nostackframe;
+asm
+  local.get 0
+  local.get 1
+  i32.add
+end;
+
+function test_i64_add(a, b: int64): int64; assembler; nostackframe;
+asm
+  local.get 0
+  local.get 1
+  i64.add
+end;
+
+function test_f32_add(a, b: single): single; assembler; nostackframe;
+asm
+  local.get 0
+  local.get 1
+  f32.add
+end;
+
+function test_f64_add(a, b: double): double; assembler; nostackframe;
+asm
+  local.get 0
+  local.get 1
+  f64.add
+end;
+
+begin
+  Check(test_i32_const = 5);
+  Check(test_i64_const = 1234567890123456);
+  Check(Abs(test_f32_const - 3.14159) < eps);
+  Check(Abs(test_f64_const - 2.71828) < eps);
+  Check(test_i32_add(2, 3) = 5);
+  Check(test_i64_add(12354312234, 654765532432) = 667119844666);
+  Check(Abs(test_f32_add(1.23, 4.56) - 5.79) < eps);
+  Check(Abs(test_f64_add(1.23456, 4.56789) - 5.80245) < eps);
+  Writeln('Ok!');
+end.