#
# i386 tests
#
proc run_list_test { name opts } {
    global srcdir subdir
    set testname "i386 $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 [istarget "i*86-*-*"] then {

    run_list_test "float" "-al"
    run_list_test "general" "-al --listing-lhs-width=2"
    run_list_test "inval" "-al"
    run_list_test "modrm" "-al --listing-lhs-width=2"
    run_dump_test "opcode"
    run_dump_test "prefix"
    run_dump_test "amd"

    # The reloc and white tests require support for 8 and 16 bit
    # relocs, so we only run them for ELF targets.
    if {[istarget "*-*-elf*"] || [istarget "*-*-linux*"]} then {
	run_dump_test "reloc"
	run_list_test "white" "-al --listing-lhs-width=3"
    }
}