diff options
| author | Richard Earnshaw <richard.earnshaw@arm.com> | 2002-01-14 15:00:18 +0000 |
|---|---|---|
| committer | Richard Earnshaw <richard.earnshaw@arm.com> | 2002-01-14 15:00:18 +0000 |
| commit | 2ad6300c8ef1bebb8f774d6eb6c4f18f8e07f9e2 (patch) | |
| tree | 343600e78574bb9e3b6594d6cf0aad8bf7db3784 /gas | |
| parent | 1209e219c7959fabc721933472e382839554459c (diff) | |
| download | fsf-binutils-gdb-2ad6300c8ef1bebb8f774d6eb6c4f18f8e07f9e2.zip fsf-binutils-gdb-2ad6300c8ef1bebb8f774d6eb6c4f18f8e07f9e2.tar.gz fsf-binutils-gdb-2ad6300c8ef1bebb8f774d6eb6c4f18f8e07f9e2.tar.bz2 | |
* gas/arm/armv1-bad.s gas/arm/armv1-bad.l: New files.
* gas/arm/arm.exp (run_error_test): New proc.
(armv1-bad): New error test.
Diffstat (limited to 'gas')
| -rw-r--r-- | gas/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gas/testsuite/gas/arm/arm.exp | 15 | ||||
| -rw-r--r-- | gas/testsuite/gas/arm/armv1-bad.l | 8 | ||||
| -rw-r--r-- | gas/testsuite/gas/arm/armv1-bad.s | 10 |
4 files changed, 39 insertions, 0 deletions
diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog index 4f00f3d..9a2b609 100644 --- a/gas/testsuite/ChangeLog +++ b/gas/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2002-01-14 Richard Earnshaw <rearnsha@arm.com> + + * gas/arm/armv1-bad.s gas/arm/armv1-bad.l: New files. + * gas/arm/arm.exp (run_error_test): New proc. + (armv1-bad): New error test. + 2002-01-11 Richard Earnshaw <rearnsha@arm.com> * gas/arm/ldconst.s gas/arm/ldconst.d: New files. Test ldr with diff --git a/gas/testsuite/gas/arm/arm.exp b/gas/testsuite/gas/arm/arm.exp index 12d7b32..cacf0b0 100644 --- a/gas/testsuite/gas/arm/arm.exp +++ b/gas/testsuite/gas/arm/arm.exp @@ -1,11 +1,26 @@ # # Some ARM tests # +proc run_errors_test { name opts tname} { + global srcdir subdir + set testname "$tname" + set file $srcdir/$subdir/$name + gas_run ${name}.s $opts ">&${name}.out" + if { [regexp_diff "${name}.out" "${file}.l"] } then { + fail $testname + verbose "output is [file_contents "${name}.out"]" 2 + return + } + pass $testname +} + if {[istarget *arm*-*-*] || [istarget "xscale-*-*"]} then { run_dump_test "inst" run_dump_test "ldconst" + run_errors_test "armv1-bad" "-marm1" "ARM v1 errors" + gas_test "arm3.s" "-marm3" $stdoptlist "Arm 3 instructions" gas_test "arm6.s" "-marm6" $stdoptlist "Arm 6 instructions" diff --git a/gas/testsuite/gas/arm/armv1-bad.l b/gas/testsuite/gas/arm/armv1-bad.l new file mode 100644 index 0000000..96d9e73 --- /dev/null +++ b/gas/testsuite/gas/arm/armv1-bad.l @@ -0,0 +1,8 @@ +[^:]*: Assembler messages: +[^:]*:4: Error: invalid pseudo operation -- `str r0,=0x00ff0000' +[^:]*:5: Error: bad expression -- `ldr r0,{r1}' +[^:]*:6: Error: address offset too large -- `ldr r0,\[r1,#4096\]' +[^:]*:7: Error: address offset too large -- `ldr r0,\[r1,#-4096\]' +[^:]*:8: Error: invalid constant -- `mov r0,#0x1ff' +[^:]*:9: Error: bad instruction `cmpl r0,r0' +[^:]*:10: Error: selected processor does not support `strh r0,\[r1\]' diff --git a/gas/testsuite/gas/arm/armv1-bad.s b/gas/testsuite/gas/arm/armv1-bad.s new file mode 100644 index 0000000..c879a73 --- /dev/null +++ b/gas/testsuite/gas/arm/armv1-bad.s @@ -0,0 +1,10 @@ + .global entry + .text +entry: + str r0, =0x00ff0000 + ldr r0, {r1} + ldr r0, [r1, #4096] + ldr r0, [r1, #-4096] + mov r0, #0x1ff + cmpl r0, r0 + strh r0, [r1] |