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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [gas/] [testsuite/] [gas/] [vax/] [vax.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
#
2
# Some generic VAX tests
3
#
4
 
5
proc do_quad {} {
6
    set testname "quad.s: quadword immediate values"
7
    set x1 0
8
    set x2 0
9
    set x3 0
10
    set file "quad.s"
11
    if { [istarget vax-*-*elf*] || [istarget vax-*-linux-*] } then {
12
        set file "quad_elf.s"
13
    }
14
    gas_start $file "-al"
15
    while 1 {
16
        expect {
17
            -re "^ +2\[ \t\]+0000+ 7D8F7856\[ \t\]+movq\[^\n\]*\n" { set x1 1 }
18
            -re "^ +2\[ \t\]+3412DDCC\[^\n\]*\n"                   { set x2 1 }
19
            -re "^ +2\[ \t\]+BBAA50\[ \t\]*\r\n"                   { set x3 1 }
20
            -re "\[^\n\]*\n"                            { }
21
            timeout                             { perror "timeout\n"; break }
22
            eof                                 { break }
23
        }
24
    }
25
    gas_finish
26
    if [all_ones $x1 $x2 $x3] then { pass $testname } else { fail $testname }
27
}
28
 
29
if [istarget vax-*-* ] then {
30
    do_quad
31
 
32
    run_dump_test "flonum"
33
 
34
    if { [istarget vax-*-*elf*] || [istarget vax-*-linux-*] } then {
35
        run_dump_test "elf-rel"
36
    }
37
}

powered by: WebSVN 2.1.0

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