Add D support to gdb_default_target_compile.

gdb/testsuite/ChangeLog:

	* lib/future.exp: Add D support.
	(gdb_find_gdc): New proc.
	(gdb_default_target_compile): Add D support.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 31f8d3873fe1309d9e638a3d61a4698c51dfa3fa..5676cac9aa86885dfe264298a6aa8c3b9d9c37d4 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2016-02-18  Iain Buclaw  <ibuclaw@gdcproject.org>
+
+       * lib/future.exp: Add D support.
+       (gdb_find_gdc): New proc.
+       (gdb_default_target_compile): Add D support.
+
 2016-02-18  Wei-cheng Wang  <cole945@gmail.com>
 
        * gdb.trace/tspeed.c (myclock): Return wallclock instead of

diff --git a/gdb/testsuite/lib/future.exp b/gdb/testsuite/lib/future.exp
index 538fa5aa24690578325e40dc318eb61deee42483..4f771b8cfc7bd2ed576b335102ebe66c032dab7c 100644 (file)
--- 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