OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [gas/] [testsuite/] [gas/] [mt/] [errors.exp] - Blame information for rev 856

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 38 julius
# Test for error messages when a bad register name, an out of range operand, or
2
# invalid syntax is used.  Adapted from Ben Elliston's load-hazard testcase.
3
 
4
# Run GAS and check that it emits the desired error for the test case.
5
# Arguments:
6
#   file -- name of the test case to assemble.
7
#   testname -- a string describing the test.
8
#   warnpattern -- a regular expression, suitable for use by the Tcl
9
#     regexp command, to decide if the warning string was emitted by
10
#     the assembler to stderr.
11
 
12
proc mrisc1_error_test { file testname {warnpattern ""} } {
13
    global comp_output
14
 
15
    gas_run $file "" ">/dev/null"
16
    verbose "output was $comp_output" 2
17
 
18
    if {$warnpattern == ""} {
19
        if {$comp_output == ""} { pass $testname } else { fail $testname }
20
        return
21
    }
22
 
23
    if {[regexp "Error: $warnpattern" $comp_output]} {
24
        pass $testname
25
    } else {
26
        fail $testname
27
    }
28
}
29
 
30
if [istarget mt-*-*] {
31
    foreach file [glob -nocomplain -- $srcdir/$subdir/bad*.s] {
32
        set file [file tail $file]
33
        switch -- $file {
34
            "badreg.s" {
35
                set warnpattern "unrecognized keyword/register name *"
36
            }
37
            "badorder.s" {
38
                set warnpattern "unrecognized form of instruction*"
39
            }
40
            "badsyntax.s" {
41
                set warnpattern "unrecognized keyword/register name *"
42
            }
43
            "badsyntax1.s" {
44
                set warnpattern "unrecognized form of instruction*"
45
            }
46
            "badoffsethigh.s" {
47
                set warnpattern "Operand out of range. Must be between -32768 and 32767.*"
48
            }
49
            "badoffsetlow.s" {
50
                set warnpattern "Operand out of range. Must be between -32768 and 32767.*"
51
            }
52
            "badunsignedimmhigh.s" {
53
                set warnpattern "operand out of range (65536 not between 0 and 65535)*"
54
            }
55
            "badunsignedimmlow.s" {
56
                set warnpattern "operand out of range (65536 not between 0 and 65535)*"
57
            }
58
            "badsignedimmhigh.s" {
59
                set warnpattern "operand out of range.*"
60
            }
61
            "badsignedimmlow.s" {
62
                set warnpattern "operand out of range.*"
63
            }
64
            "badinsn.s" {
65
                set warnpattern "unrecognized instruction *"
66
            }
67
            "badinsn1.s" {
68
                set warnpattern "junk at end of line *"
69
            }
70
            default {
71
                error "no expected result specified for $file"
72
                return
73
 
74
            }
75
        }
76
        mrisc1_error_test $file "assembler emits error for $file" $warnpattern
77
    }
78
 
79
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.