From: Stephane Carrez Date: Sun, 8 Dec 2002 21:23:42 +0000 (+0000) Subject: * gas/m68hc11/m68hc11.exp (gas_m68hc11_error): New function; X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=f39f5da9e66e6da4aebe7e3e25e51ce623692772;p=binutils-gdb.git * gas/m68hc11/m68hc11.exp (gas_m68hc11_error): New function; (gas_m68hc11_warning): New function. (gas_m68hc11_message): New function. (top): New tests for assembler errors. (gas_m68hc11_opcode_list): New function. (top): New tests for opcode list. --- diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog index 57d3c6ee8cc..15b41eb6061 100644 --- a/gas/testsuite/ChangeLog +++ b/gas/testsuite/ChangeLog @@ -1,3 +1,12 @@ +2002-12-08 Stephane Carrez + + * gas/m68hc11/m68hc11.exp (gas_m68hc11_error): New function; + (gas_m68hc11_warning): New function. + (gas_m68hc11_message): New function. + (top): New tests for assembler errors. + (gas_m68hc11_opcode_list): New function. + (top): New tests for opcode list. + 2002-12-08 Stephane Carrez * gas/m68hc11/bug-1825.s: Add some tests. diff --git a/gas/testsuite/gas/m68hc11/m68hc11.exp b/gas/testsuite/gas/m68hc11/m68hc11.exp index ea9957c02af..b1513906c96 100644 --- a/gas/testsuite/gas/m68hc11/m68hc11.exp +++ b/gas/testsuite/gas/m68hc11/m68hc11.exp @@ -10,6 +10,144 @@ if ![istarget "m68hc11-*-*"] then { } } } + +# Simple test for --print-opcodes (list of supported opcodes) +# We don't check the list result but just the syntax and the +# number it +proc gas_m68hc11_opcode_list { flags expect_count } { + global comp_output + + set testname "Opcode list generation \[$flags\]" + gas_run "x.s" "--print-opcodes $flags" "" + + set lines [split $comp_output "\n"] + set cnt [llength $lines] + verbose -log "Found $cnt opcodes" + if { $cnt == $expect_count } then { + pass $testname + } else { + fail $testname + } +} + +gas_m68hc11_opcode_list "-m68hc11" 149 +gas_m68hc11_opcode_list "-m68hc12" 192 + + +# Test for a message produced when assembling a file +proc gas_m68hc11_message { kind options line expect } { + global srcdir + global subdir + + regsub -all "\n" "$line: $expect" " " title + + # Make a file containing the instructions to assemble. + set fd [open "$srcdir/$subdir/tst-m68hc1x.s" "w"]; + puts -nonewline $fd "$line" + close $fd + + verbose -log "Test: $title" + gas_start "tst-m68hc1x.s" "$options" + set ok 0 + while 1 { + expect { + -re ".*: Assembler messages:\n" { } + -re ".*1: $kind: $expect" { incr ok; break } + timeout { perror "timeout\n"; break } + eof { verbose "EOF from gas"; break } + } + } + #sleep 1 # Uncomment this line when using gcov + gas_finish + if { $ok > 0 } then { + pass $title + } else { + fail $title + } + catch "exec rm -f $srcdir/$subdir/tst-m68hc1x.s" +} + +# Test for an error message produced by gas +proc gas_m68hc11_error { options line expect } { + gas_m68hc11_message "Error" $options $line $expect +} + +# Test for a warning message produced by gas +proc gas_m68hc11_warning { options line expect } { + gas_m68hc11_message "Warning" $options $line $expect +} + +# ------------------ +# 68HC11 error tests +gas_m68hc11_error "" "puld\n" "Opcode .puld. is not recognized" +gas_m68hc11_error "" "ldab\n" "Invalid operand for .ldab." +gas_m68hc11_error "" "ldab 256,x\n" "Operand out of 8-bit range:.*256" +gas_m68hc11_error "" "ldab 257,y\n" "Operand out of 8-bit range:.*257" +gas_m68hc11_error "" "ldab -1,y\n" "Operand out of 8-bit range:.*-1" +gas_m68hc11_error "" "ldab bar,y\nbar=300" "value of 300 too large for field of 1 byte" +gas_m68hc11_error "" "jmp \#23\n" "Immediate operand is not allowed" +gas_m68hc11_error "" "ldab \[d,pc\]\n" "Indirect indexed addressing is not valid for 68HC11" +gas_m68hc11_error "" "ldab ,t\n" "Spurious .,. or bad indirect register" +gas_m68hc11_error "" "ldab 1,t\n" "Garbage at end of instruction:.*,t" +gas_m68hc11_error "" "ldab 1,,x\n" "Garbage at end of instruction:.*,x" +gas_m68hc11_error "" "ldab 1,+x\n" "Pre-increment mode is not valid" +gas_m68hc11_error "" "ldab 1,-x\n" "Pre-increment mode is not valid" +gas_m68hc11_error "" "ldab 1,x+\n" "Post-increment mode is not valid" +gas_m68hc11_error "" "ldab 1,x-\n" "Post-decrement mode is not valid" +gas_m68hc11_error "" "ldd \#65536\n" "Operand out of 16-bit range" +gas_m68hc11_error "--short-branchs" "bne 200\n" \ + "Operand out of range for a relative branch" +gas_m68hc11_error "" "bar\n" "Opcode .bar. is not recognized." +gas_m68hc11_error "--print-insn-syntax" "bne\n" \ + "Instruction formats for .bne..*" + +# ------------------ +# 68HC12 error tests +gas_m68hc11_error "-m68hc12" "ldab x,y\n" "Invalid accumulator register" +gas_m68hc11_error "-m68hc12" "ldab \[d,y\n" \ + "Missing .\]. to close indexed-indirect mode" +gas_m68hc11_error "-m68hc12" "ldab 0,\n" "Garbage at end of instruction: .,." +gas_m68hc11_error "-m68hc12" "ldab \[d\]\n" \ + "Missing second register or offset for indexed-indirect mode" +gas_m68hc11_error "-m68hc12" "ldab \[d x\]\n" \ + "Missing second register for indexed-indirect mode" +gas_m68hc11_error "-m68hc12" "ldab \[d d\]\n" \ + "Missing second register for indexed-indirect mode" +gas_m68hc11_error "-m68hc12" "ldab \[pc d\]\n" \ + "Missing second register for indexed-indirect mode" +gas_m68hc11_error "-m68hc12" "ldab 65536,x\n" \ + "Offset out of 16-bit range:" +gas_m68hc11_error "-m68hc12 -S" "ibeq d,500\n" \ + "Operand out of range for a relative branch" +gas_m68hc11_error "-m68hc12" "ibeq pc,3\n" \ + "Invalid register for dbcc/tbcc instruction" +gas_m68hc11_error "-m68hc12 -S" "ibeq pc,500\n" \ + "Invalid register for dbcc/tbcc instruction" +gas_m68hc11_error "-m68hc12" "orab 9,+x\n" \ + "Increment/decrement value is out of range" +gas_m68hc11_error "-m68hc12" "orab -9,x-\n" \ + "Increment/decrement value is out of range" +gas_m68hc11_error "-m68hc12" "orab -3,-pc\n" \ + "Invalid register for post/pre increment" +gas_m68hc11_error "-m68hc12" "trap \#0\n" "Trap id .0. is out of range" +gas_m68hc11_error "-m68hc12" "trap \#300\n" "Trap id .300. is out of range" +gas_m68hc11_error "-m68hc12" "trap \#bar\n" "The trap id must be a constant" +gas_m68hc11_error "-m68hc12" "sex x,d\n" \ + "Invalid source register for this instruction, use .tfr." +gas_m68hc11_error "-m68hc12" "tfr pc,a\n" "Invalid source register" +gas_m68hc11_error "-m68hc12" "movb 200,x,3,y\n" \ + "Offset out of 5-bit range for movw/movb insn: 200" +gas_m68hc11_error "-m68hc12" "movb 2,x,300,y\n" \ + "Offset out of 5-bit range for movw/movb insn: 300" + +# ------------------ +# Specific commands +gas_m68hc11_warning "" ".mode \"bar\"\n" "Invalid mode: .bar." +gas_m68hc11_error "" ".relax 23\n" "bad .relax format" +gas_m68hc11_error "" ".relax bar-23\n" "bad .relax format" +gas_m68hc11_warning "" ".far bar bar\n" "rest of line ignored" + + run_dump_test insns run_dump_test lbranch run_dump_test all_insns