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

#
# Some generic alpha tests
#

proc run_list_test { name opts } {
    global srcdir subdir
    set testname "alpha $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 alpha*-*-*] } then {

    set elf [expr [istarget *-*-elf*] \
		  || [istarget *-*-linux*] \
		  || [istarget *-*-freebsd*] \
		  || [istarget *-*-netbsd*] ]

    if $elf {
	run_dump_test "elf-reloc-1"
	run_list_test "elf-reloc-2" ""
	run_list_test "elf-reloc-3" ""
	run_dump_test "elf-reloc-4"
    }

    run_dump_test "fp"
}
Commit	Line	Data
19f78583 RH	1	#
	2	# Some generic alpha tests
	3	#
	4
	5	proc run_list_test { name opts } {
	6	global srcdir subdir
	7	set testname "alpha $name"
	8	set file $srcdir/$subdir/$name
	9	gas_run ${name}.s $opts ">&dump.out"
	10	if { [regexp_diff "dump.out" "${file}.l"] } then {
	11	fail $testname
	12	verbose "output is [file_contents "dump.out"]" 2
	13	return
	14	}
	15	pass $testname
	16	}
	17
	18	if { [istarget alpha--*] } then {
	19
	20	set elf [expr [istarget --elf*] \
	21	\|\| [istarget --linux*] \
	22	\|\| [istarget --freebsd*] \
	23	\|\| [istarget --netbsd*] ]
	24
	25	if $elf {
	26	run_dump_test "elf-reloc-1"
	27	run_list_test "elf-reloc-2" ""
	28	run_list_test "elf-reloc-3" ""
	29	run_dump_test "elf-reloc-4"
	30	}
	31
	32	run_dump_test "fp"
	33	}