[deliverable/binutils-gdb.git] / gas / testsuite / gas / cfi / cfi.exp

# ??? This probably shouldn't be replicated here...
proc run_list_test { name opts } {
    global srcdir subdir
    set testname "cfi $name"
    set file $srcdir/$subdir/$name
    gas_run ${name}.s $opts ">&dump.out"
    if { [regexp_diff "dump.out" "${file}.l"] } then {
        fail $testname
        verbose "output is [file_contents "dump.out"]" 2
        return
    }
    pass $testname
}

if ![is_elf_format] then {
    return
}

if [istarget "x86_64-*"] then {
    run_dump_test "cfi-x86_64"

} elseif [istarget "i?86-*"] then {
    run_dump_test "cfi-i386"

} elseif { [istarget alpha*-*-*] } then {
    run_dump_test "cfi-alpha-1"
    run_dump_test "cfi-alpha-2"
    run_dump_test "cfi-alpha-3"

} else {
    return
}

run_list_test "cfi-diag-1" ""
run_dump_test "cfi-common-1"
run_dump_test "cfi-common-2"
Commit	Line	Data
	1	# ??? This probably shouldn't be replicated here...
	2	proc run_list_test { name opts } {
	3	global srcdir subdir
	4	set testname "cfi $name"
	5	set file $srcdir/$subdir/$name
	6	gas_run ${name}.s $opts ">&dump.out"
	7	if { [regexp_diff "dump.out" "${file}.l"] } then {
	8	fail $testname
	9	verbose "output is [file_contents "dump.out"]" 2
	10	return
	11	}
	12	pass $testname
	13	}
	14
	15	if ![is_elf_format] then {
	16	return
	17	}
	18
	19	if [istarget "x86_64-*"] then {
	20	run_dump_test "cfi-x86_64"
	21
	22	} elseif [istarget "i?86-*"] then {
	23	run_dump_test "cfi-i386"
	24
	25	} elseif { [istarget alpha--*] } then {
	26	run_dump_test "cfi-alpha-1"
	27	run_dump_test "cfi-alpha-2"
	28	run_dump_test "cfi-alpha-3"
	29
	30	} else {
	31	return
	32	}
	33
	34	run_list_test "cfi-diag-1" ""
	35	run_dump_test "cfi-common-1"
	36	run_dump_test "cfi-common-2"