cpu.arm.assembler: fix tests, add url to check arm64 opcode compilation

diff --git a/basis/cpu/arm/assembler/64/64-tests.factor b/basis/cpu/arm/assembler/64/64-tests.factor
index a4668db58ef8e20877ad4397c882772ce9ae805f..2abc1e05746ffc014af71f1d3f4c1dbb65a8b5d7 100644 (file)
--- a/basis/cpu/arm/assembler/64/64-tests.factor
+++ b/basis/cpu/arm/assembler/64/64-tests.factor
@@ -15,16 +15,16 @@ IN: cpu.arm.assembler.64.tests
 
 { { 0x20 0xfc 0x6c 0xd3 } } [ [ 44 X1 X0 LSRi ] { } make ] unit-test
 
-{ { 0xfd 0x7b 0xbf 0xa9 } } [ [ -16 SP X30 X29 STP-pre ] { } make ] unit-test
-{ { 0xf0 0x7b 0xbf 0xa9 } } [ [ -16 SP X30 X16 STP-pre ] { } make ] unit-test
+{ { 0xfd 0x7b 0xbf 0xa9 } } [ [ -16 SP X30 X29 STPpre ] { } make ] unit-test
+{ { 0xf0 0x7b 0xbf 0xa9 } } [ [ -16 SP X30 X16 STPpre ] { } make ] unit-test
 
-{ { 0x11 0xfe  0x47 0xf9 } } [ [ 4088 X16 X17 LDR-uoff ] { } make ] unit-test
-{ { 0x11 0x02  0x40 0xf9 } } [ [ 0 X16 X17 LDR-uoff ] { } make ] unit-test
+{ { 0x11 0xfe  0x47 0xf9 } } [ [ 4088 X16 X17 LDRuoff ] { } make ] unit-test
+{ { 0x11 0x02  0x40 0xf9 } } [ [ 0 X16 X17 LDRuoff ] { } make ] unit-test
 ! ldr     x17, [x16,#8]
-{ {  0x11  0x06 0x40 0xf9 } } [ [ 8 X16 X17 LDR-uoff ] { } make ] unit-test
+{ {  0x11  0x06 0x40 0xf9 } } [ [ 8 X16 X17 LDRuoff ] { } make ] unit-test
 
 ! ldr     x1, [sp]
-{ { 0xe1 0x03 0x40 0xf9  } } [ [ 0 SP X1 LDR-uoff ] { } make ] unit-test
+{ { 0xe1 0x03 0x40 0xf9  } } [ [ 0 SP X1 LDRuoff ] { } make ] unit-test
 
 ! XXX: shift 4096 right first?
 ! { { 0x90 0x00 0x00 0xb0 } } [ [ 0x411000 X16 ADRP ] { } make ] unit-test

diff --git a/basis/cpu/arm/assembler/assembler-tests.factor b/basis/cpu/arm/assembler/assembler-tests.factor
index 32b026ec3501273e01ba7333225271b000188ac5..7e929caeff967a39535cb8e49dafef887fa5ddf2 100644 (file)
--- a/basis/cpu/arm/assembler/assembler-tests.factor
+++ b/basis/cpu/arm/assembler/assembler-tests.factor
@@ -3,7 +3,9 @@
 USING: cpu.arm.assembler cpu.arm.assembler.opcodes make tools.test ;
 IN: cpu.arm.assembler.tests
 
-{ { 0xb8 0x04 0x40 0x94 } } [ [ 0x04004b8 BL ] { } make ] unit-test
+! useful for testing maybe: https://armconverter.com/
+
+{ { 0x2e 0x01 0x10 0x94 } } [ [ 0x04004b8 BL ] { } make ] unit-test
 { { 0x20 0x02 0x1f 0xd6 } } [ [ X17 BR ] { } make ] unit-test
 
 { { 0xc0 0x03 0x5f 0xd6 } } [ [ f RET ] { } make ] unit-test