diff options
Diffstat (limited to 'gdb/testsuite/lib/future.exp')
| -rw-r--r-- | gdb/testsuite/lib/future.exp | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/gdb/testsuite/lib/future.exp b/gdb/testsuite/lib/future.exp index 538fa5a..4f771b8 100644 --- a/gdb/testsuite/lib/future.exp +++ b/gdb/testsuite/lib/future.exp @@ -41,6 +41,27 @@ proc gdb_find_gnatmake {} { return $GM } +proc gdb_find_gdc {} { + global tool_root_dir + print "Tool Root: $tool_root_dir" + + if {![is_remote host]} { + set file [lookfor_file $tool_root_dir gdc] + if { $file == "" } { + set file [lookfor_file $tool_root_dir gcc/gdc] + } + if { $file != "" } { + set CC "$file -B[file dirname $file]/" + } else { + set CC [transform gdc] + } + } else { + set CC [transform gdc] + } + print "CC: $CC" + return $CC +} + proc gdb_find_gfortran {} { global tool_root_dir @@ -185,6 +206,18 @@ proc gdb_default_target_compile {source destfile type options} { } } + if { $i == "d" } { + set compiler_type "d" + if {[board_info $dest exists dflags]} { + append add_flags " [target_info dflags]" + } + if {[board_info $dest exists dcompiler]} { + set compiler [target_info dcompiler] + } else { + set compiler [find_gdc] + } + } + if { $i == "f77" } { set compiler_type "f77" if {[board_info $dest exists f77flags]} { @@ -285,6 +318,7 @@ proc gdb_default_target_compile {source destfile type options} { global CC_FOR_TARGET global CXX_FOR_TARGET + global D_FOR_TARGET global F77_FOR_TARGET global F90_FOR_TARGET global GNATMAKE_FOR_TARGET @@ -309,6 +343,12 @@ proc gdb_default_target_compile {source destfile type options} { } } + if {[info exists D_FOR_TARGET]} { + if { $compiler_type == "d" } { + set compiler $D_FOR_TARGET + } + } + if {[info exists F77_FOR_TARGET]} { if { $compiler_type == "f77" } { set compiler $F77_FOR_TARGET @@ -560,6 +600,11 @@ if {[info procs find_go_linker] == ""} { set use_gdb_compile 1 } +if {[info procs find_gdc] == ""} { + rename gdb_find_gdc find_gdc + set use_gdb_compile 1 +} + if {$use_gdb_compile} { catch {rename default_target_compile {}} rename gdb_default_target_compile default_target_compile |