fc697c14bd
* gas/hppa/basic/basic.exp: Update DejaGnu mail address. * gas/hppa/parse/parse.exp: Likewise. * gas/hppa/reloc/reloc.exp: Likewise. * gas/hppa/unsorted/unsorted.exp: Likewise. * gas/mn10200/basic.exp: Likewise. * gas/mn10300/basic.exp: Likewise. * gas/sh/basic.exp: Likewise. * gas/sh/sh64/sh64.exp: Likewise. * gas/v850/basic.exp: Likewise. * lib/gas-defs.exp: Likewise. * gas/all/gas.exp: Removing limping support for DejaGnu 1.1.1. * gasp/gasp.exp: Likewise.
40 lines
1 KiB
Text
40 lines
1 KiB
Text
# Test gasp.
|
|
|
|
# GASP is now deprecated (and not built by default)
|
|
# so if it does not exist, do not test it.
|
|
global GASP
|
|
if {![info exists GASP] || ! [file exists $GASP] } then {
|
|
return 1
|
|
}
|
|
|
|
proc gasp_test { filename testname opt } {
|
|
global GASP
|
|
global srcdir
|
|
global host_triplet
|
|
|
|
send_log "$srcdir/lib/run $GASP -I$srcdir/gasp -s $opt $filename.asm -o gasp.out\n"
|
|
catch "exec $srcdir/lib/run $GASP -I$srcdir/gasp -s $opt $filename.asm -o gasp.out" errs
|
|
catch "exec diff gasp.out $filename.out" diffs
|
|
set diffs [prune_warnings $diffs]
|
|
if ![string match "" $diffs] {
|
|
send_log "$diffs\n"
|
|
verbose $diffs
|
|
fail $testname
|
|
return 0
|
|
} else {
|
|
pass $testname
|
|
}
|
|
|
|
}
|
|
|
|
foreach src [ lsort [ glob $srcdir/gasp/*.asm ] ] {
|
|
regsub -all ".asm" $src "" t
|
|
regsub "^.*/(\[^/\]*)$" $t "gasp \\1" testname
|
|
gasp_test $t $testname ""
|
|
}
|
|
|
|
foreach src [ lsort [ glob $srcdir/gasp/mri/*.asm ] ] {
|
|
regsub -all ".asm" $src "" t
|
|
regsub "^.*/(\[^/\]*)$" $t "gasp MRI \\1" testname
|
|
gasp_test $t $testname "-M"
|
|
}
|