diff options
Diffstat (limited to 'lib/target.exp')
| -rw-r--r-- | lib/target.exp | 12 |
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 |