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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [gas/] [testsuite/] [gas/] [cfi/] [cfi.exp] - Blame information for rev 816

Details | Compare with Previous | View Log


if ![is_elf_format] then {
    return
}
 
proc gas_x86_64_check { } {
    global NM
    global NMFLAGS
 
    set status [gas_host_run "$NM $NMFLAGS --help" ""]
    return [regexp "targets:.*x86-64" [lindex $status 1]];
}
 
proc gas_x86_32_check { } {
    global NM
    global NMFLAGS
 
    set status [gas_host_run "$NM $NMFLAGS --help" ""]
    return [regexp "targets:.*i386" [lindex $status 1]];
}
 
if  { [istarget "i*86-*-*"] || [istarget "x86_64-*-*"] } then {
 
    global ASFLAGS
    set old_ASFLAGS "$ASFLAGS"
 
    if { [gas_x86_64_check] } then {
        set ASFLAGS "$ASFLAGS --64"
        run_dump_test "cfi-x86_64"
        set ASFLAGS "$old_ASFLAGS"
    }
 
    if { [gas_x86_32_check] }  then {
        set ASFLAGS "$ASFLAGS --32"
        run_dump_test "cfi-i386"
        set ASFLAGS "$old_ASFLAGS"
    }
 
} elseif { [istarget alpha*-*-*] } then {
    run_dump_test "cfi-alpha-1"
    run_dump_test "cfi-alpha-2"
    run_dump_test "cfi-alpha-3"
 
} elseif { [istarget ppc*-*-*] || [istarget powerpc*-*-*] } then {
    run_dump_test "cfi-ppc-1"
 
} elseif { [istarget s390*-*-*] } then {
    run_dump_test "cfi-s390-1"
    if { [istarget s390x*-*-*] } then {
        run_dump_test "cfi-s390x-1"
    }
 
} elseif { [istarget "m68*-*"] } then {
    run_dump_test "cfi-m68k"
 
} elseif { [istarget sparc*-*-*] } then {
    global NM
    global NMFLAGS
 
    set nm_status [gas_host_run "$NM $NMFLAGS --help" ""]
    run_dump_test "cfi-sparc-1"
    if { [regexp "elf64\[_-\]sparc" [lindex $nm_status 1]] } then {
        run_dump_test "cfi-sparc64-1"
    }
 
} elseif [istarget "sh*-*"] then {
    if { [istarget sh64*-*-*] || [istarget sh5*-*-*] } then {
    } else {
        run_dump_test "cfi-sh-1"
    }
 
} elseif { [istarget "arm*-*"] || [istarget "xscale*-*"] } then {
    run_dump_test "cfi-arm-1"
 
} elseif { [istarget "mips*-*"] } then {
    run_dump_test "cfi-mips-1"
} elseif { [istarget "hppa*-linux*"] } then {
    run_dump_test "cfi-hppa-1"
} else {
    return
}
 
run_list_test "cfi-diag-1" ""
run_dump_test "cfi-common-1"
run_dump_test "cfi-common-2"
run_dump_test "cfi-common-3"
run_dump_test "cfi-common-4"
run_dump_test "cfi-common-5"
 
# MIPS doesn't support PC relative cfi directives
if { ![istarget "mips*-*"] } then {
    run_dump_test "cfi-common-6"
}

Line No.	Rev	Author	Line
1	38	julius	`if ![is_elf_format] then {`
2			`return`
3			`}`
4
5			`proc gas_x86_64_check { } {`
6			`global NM`
7			`global NMFLAGS`
8
9			`set status [gas_host_run "$NM $NMFLAGS --help" ""]`
10			`return [regexp "targets:.*x86-64" [lindex $status 1]];`
11			`}`
12
13			`proc gas_x86_32_check { } {`
14			`global NM`
15			`global NMFLAGS`
16
17			`set status [gas_host_run "$NM $NMFLAGS --help" ""]`
18			`return [regexp "targets:.*i386" [lindex $status 1]];`
19			`}`
20
21			`if { [istarget "i86--"] \|\| [istarget "x86_64--*"] } then {`
22
23			`global ASFLAGS`
24			`set old_ASFLAGS "$ASFLAGS"`
25
26			`if { [gas_x86_64_check] } then {`
27			`set ASFLAGS "$ASFLAGS --64"`
28			`run_dump_test "cfi-x86_64"`
29			`set ASFLAGS "$old_ASFLAGS"`
30			`}`
31
32			`if { [gas_x86_32_check] } then {`
33			`set ASFLAGS "$ASFLAGS --32"`
34			`run_dump_test "cfi-i386"`
35			`set ASFLAGS "$old_ASFLAGS"`
36			`}`
37
38			`} elseif { [istarget alpha--*] } then {`
39			`run_dump_test "cfi-alpha-1"`
40			`run_dump_test "cfi-alpha-2"`
41			`run_dump_test "cfi-alpha-3"`
42
43			`} elseif { [istarget ppc--] \|\| [istarget powerpc--] } then {`
44			`run_dump_test "cfi-ppc-1"`
45
46			`} elseif { [istarget s390--*] } then {`
47			`run_dump_test "cfi-s390-1"`
48			`if { [istarget s390x--*] } then {`
49			`run_dump_test "cfi-s390x-1"`
50			`}`
51
52			`} elseif { [istarget "m68-"] } then {`
53			`run_dump_test "cfi-m68k"`
54
55			`} elseif { [istarget sparc--*] } then {`
56			`global NM`
57			`global NMFLAGS`
58
59			`set nm_status [gas_host_run "$NM $NMFLAGS --help" ""]`
60			`run_dump_test "cfi-sparc-1"`
61			`if { [regexp "elf64\[_-\]sparc" [lindex $nm_status 1]] } then {`
62			`run_dump_test "cfi-sparc64-1"`
63			`}`
64
65			`} elseif [istarget "sh-"] then {`
66			`if { [istarget sh64--] \|\| [istarget sh5--] } then {`
67			`} else {`
68			`run_dump_test "cfi-sh-1"`
69			`}`
70
71			`} elseif { [istarget "arm-"] \|\| [istarget "xscale-"] } then {`
72			`run_dump_test "cfi-arm-1"`
73
74			`} elseif { [istarget "mips-"] } then {`
75			`run_dump_test "cfi-mips-1"`
76			`} elseif { [istarget "hppa-linux"] } then {`
77			`run_dump_test "cfi-hppa-1"`
78			`} else {`
79			`return`
80			`}`
81
82			`run_list_test "cfi-diag-1" ""`
83			`run_dump_test "cfi-common-1"`
84			`run_dump_test "cfi-common-2"`
85			`run_dump_test "cfi-common-3"`
86			`run_dump_test "cfi-common-4"`
87			`run_dump_test "cfi-common-5"`
88
89			`# MIPS doesn't support PC relative cfi directives`
90			`if { ![istarget "mips-"] } then {`
91			`run_dump_test "cfi-common-6"`
92			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [gas/] [testsuite/] [gas/] [cfi/] [cfi.exp] - Blame information for rev 816