gasp.exp

来自「俄罗斯高人Mamaich的Pocket gcc编译器（运行在PocketPC上）」· EXP 代码 · 共 48 行

# 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"
}

# FIXME: this is here cause of a bug in DejaGnu 1.1.1. When it is no longer
#        in use, then this can be removed.
if [info exists errorInfo] then {
    unset errorInfo
}