aboutsummaryrefslogtreecommitdiff
path: root/lib/target.exp
diff options
context:
space:
mode:
authorBen Elliston <bje@gnu.org>2018-12-09 17:00:21 +1100
committerBen Elliston <bje@gnu.org>2018-12-09 17:00:21 +1100
commit1ebfbcd81f3e1918cc96e3654f9120ea7458b1f6 (patch)
tree3d8b6ed82c08e11af0cdadc1429d37232de66aaf /lib/target.exp
parentea3d6ba5abc895eb968b5990c4ff8aa604d6a8e1 (diff)
downloaddejagnu-1ebfbcd81f3e1918cc96e3654f9120ea7458b1f6.zip
dejagnu-1ebfbcd81f3e1918cc96e3654f9120ea7458b1f6.tar.gz
dejagnu-1ebfbcd81f3e1918cc96e3654f9120ea7458b1f6.tar.bz2
* lib/debugger.exp, lib/dg.exp, lib/framework.exp, lib/ftp.exp,
lib/kermit.exp, lib/libgloss.exp, lib/remote.exp, lib/rlogin.exp, lib/target.exp, lib/tip.exp, lib/utils.exp, runtest.exp: Remove unnecessary quotes and braces around variable expansions.
Diffstat (limited to 'lib/target.exp')
-rw-r--r--lib/target.exp12
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/target.exp b/lib/target.exp
index dbb50f6..b818d92 100644
--- a/lib/target.exp
+++ b/lib/target.exp
@@ -639,7 +639,7 @@ proc default_target_compile {source destfile type options} {
if {[isremote host]} {
if {[host_info exists use_at]} {
set fid [open "atfile" "w"]
- puts $fid "$opts"
+ puts $fid $opts
close $fid
set opts "@[remote_download host atfile]"
remote_file build delete atfile
@@ -673,7 +673,7 @@ proc default_target_compile {source destfile type options} {
if { [lindex $status 1] ne "" } {
verbose "output is:\n[lindex $status 1]" 2
}
- if { [lindex $status 0] != 0 && "${comp_output}" eq "" } {
+ if { [lindex $status 0] != 0 && $comp_output eq "" } {
set comp_output "exit status is [lindex $status 0]"
}
return ${comp_output}
@@ -698,7 +698,7 @@ proc default_target_assemble { source destfile flags } {
global ASFLAGS_FOR_TARGET
if {[info exists AS_FOR_TARGET]} {
- set AS "$AS_FOR_TARGET"
+ set AS $AS_FOR_TARGET
} else {
if {![board_info target exists assembler]} {
set AS [find_gas]
@@ -737,7 +737,7 @@ proc default_target_assemble { source destfile flags } {
# linker.
#
proc target_link { objects destfile flags } {
- return [default_link target "$objects" "$destfile" $flags]
+ return [default_link target $objects $destfile $flags]
}
proc default_link { board objects destfile flags } {
@@ -770,7 +770,7 @@ proc default_link { board objects destfile flags } {
}
if {[info exists LD_FOR_TARGET]} {
- set LD "$LD_FOR_TARGET"
+ set LD $LD_FOR_TARGET
} else {
if {![board_info target exists linker]} {
set LD [find_ld]
@@ -804,7 +804,7 @@ proc default_link { board objects destfile flags } {
foreach x $objects {
set nobjects "$nobjects [remote_download host $x]"
}
- set objects "$nobjects"
+ set objects $nobjects
set dest "a.out"
} else {
set dest $destfile