mirror of
https://github.com/espressif/binutils-gdb.git
synced 2025-06-17 16:05:56 +08:00
* lib/gdb.exp (gdb_compile_test): New.
(skip_ada_tests, skip_java_tests): New. (gdb_compile): Use gdb_compile_test for f77. * lib/ada.exp (gdb_compile_ada): Use gdb_compile_test to record result. * lib/java.exp (compile_java_from_source): Remove runtests check, use gdb_compile_test to record result. * gdb.ada/packed_array.exp, gdb.ada/fixed_points.exp, gdb.ada/exec_changed.exp, gdb.ada/start.exp, gdb.ada/watch_arg.exp, gdb.ada/null_record.exp, gdb.ada/array_return.exp, gdb.ada/arrayidx.exp, gdb.mi/mi-var-child-f.exp, gdb.fortran/types.exp, gdb.fortran/array-element.exp, gdb.fortran/subarray.exp, gdb.fortran/derived-type.exp, gdb.fortran/exprs.exp, gdb.java/jmisc.exp, gdb.java/jprint.exp, gdb.java/jv-print.exp, gdb.java/jmain.exp: Add language skip, adjust gdb_compile invocations.
This commit is contained in:
@ -91,31 +91,19 @@ proc java_init { args } {
|
||||
#
|
||||
proc compile_java_from_source { srcfile binfile compile_args } {
|
||||
global GCJ_UNDER_TEST
|
||||
global runtests
|
||||
global java_initialized
|
||||
|
||||
if { $java_initialized != 1 } { java_init }
|
||||
|
||||
set errname [file rootname [file tail $srcfile]]
|
||||
if {! [runtest_file_p $runtests $errname]} {
|
||||
return
|
||||
}
|
||||
|
||||
set args "compiler=$GCJ_UNDER_TEST"
|
||||
lappend args "additional_flags=--main=[file rootname [file tail $srcfile]]"
|
||||
if { $compile_args != "" } {
|
||||
lappend args "additional_flags=$compile_args"
|
||||
}
|
||||
|
||||
if { $compile_args != "" } {
|
||||
set errname "$errname $compile_args"
|
||||
}
|
||||
|
||||
set x [target_compile $srcfile ${binfile} executable $args]
|
||||
if { $x != "" } {
|
||||
verbose "target_compile failed: $x" 2
|
||||
return "$errname compilation from source";
|
||||
}
|
||||
set result [target_compile $srcfile ${binfile} ${binfile} executable $args]
|
||||
gdb_compile_test $srcfile $result
|
||||
return $result
|
||||
}
|
||||
|
||||
# Local Variables:
|
||||
|
Reference in New Issue
Block a user