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