sim: testsuite: drop sim_compile cover function

Most code isn't using this, and the only call site (in one cris file)
can use target_compile directly.  So switch it over to simplify.

diff --git a/sim/testsuite/cris/c/c.exp b/sim/testsuite/cris/c/c.exp
index 08ea18812ec5bd655556d0db2877eb5ebefe5d39..26084682dc955a3d4c2f76ce387221aab3ebe2a6 100644 (file)
--- a/sim/testsuite/cris/c/c.exp
+++ b/sim/testsuite/cris/c/c.exp
@@ -189,7 +189,7 @@ foreach src [lsort [glob -nocomplain $srcdir/$subdir/*.c]] {
     verbose -log "Compiling $src with $opts(cc)"
 
     set dest "$opts(dest)"
-    if { [sim_compile $src $dest "executable" "$opts(cc)" ] != "" } {
+    if { [target_compile $src $dest "executable" "$opts(cc)" ] != "" } {
        unresolved $testname
        continue
     }

diff --git a/sim/testsuite/lib/sim-defs.exp b/sim/testsuite/lib/sim-defs.exp
index 6e8feaf6bf8938c2b2094f964daf534d9fc42359..7bc4c66549eeab7195bc79b7f8ade845d6d2e3b1 100644 (file)
--- a/sim/testsuite/lib/sim-defs.exp
+++ b/sim/testsuite/lib/sim-defs.exp
@@ -35,19 +35,6 @@ proc sim_version {} {
     clone_output "$sim_path $version\n"
 }
 
-# Cover function to target_compile.
-# Copied from gdb_compile.
-
-proc sim_compile { source dest type options } {
-    set result [target_compile $source $dest $type $options]
-    regsub "\[\r\n\]*$" "$result" "" result
-    regsub "^\[\r\n\]*" "$result" "" result
-    if { $result != "" } {
-       clone_output "sim compile output: $result"
-    }
-    return $result
-}
-
 # Find the path to the simulator for executing.
 proc sim_tool_path {} {
     global sim_path