paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 19:29:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added WebAssembly inline asm tests for:

Browse Source 
i32.rotl
  i64.rotl
  i32.rotr
  i64.rotr
This commit is contained in:
Nikolay Nikolov 2024-07-28 19:24:02 +03:00
parent 5043bdaf18
commit c1d6cad444
1 changed files with 32 additions and 0 deletions

32
tests/test/wasm/twasminlineasm1.pp
View File

@ -258,6 +258,34 @@ asm
i64.shr_u
end;
function test_i32_rotl(a, b: longword): longword; assembler; nostackframe;
asm
local.get 0
local.get 1
i32.rotl
end;
function test_i64_rotl(a, b: qword): qword; assembler; nostackframe;
asm
local.get 0
local.get 1
i64.rotl
end;
function test_i32_rotr(a, b: longword): longword; assembler; nostackframe;
asm
local.get 0
local.get 1
i32.rotr
end;
function test_i64_rotr(a, b: qword): qword; assembler; nostackframe;
asm
local.get 0
local.get 1
i64.rotr
end;
function test_call: longint; assembler; nostackframe;
asm
i32.const 10
@ -302,6 +330,10 @@ begin
Check(test_i64_shr_s(-549750071149968174, 40) = -499995);
Check(test_i32_shr_u(3128451123, 15) = 95472);
Check(test_i64_shr_u(13472797416736092787, 61) = 5);
Check(test_i32_rotl(794311356, 9) = 2960488542);
Check(test_i64_rotl(16308732359199215765, 54) = 2700071874357346100);
Check(test_i32_rotr(1183709466, 15) = 4063530267);
Check(test_i64_rotr(18216775875638200500, 49) = 9120411745173274215);
Check(test_call = 27);
Writeln('Ok!');
end.