global subdir
global srcdir
- if { ! [regexp "^/" "$executable"] } then {
+ if {![regexp "^/" "$executable"]} {
set binfile [standard_output_file $executable]
} else {
set binfile $executable
set s [lindex $spec 0]
set local_options [lindex $spec 1]
- if { ! [regexp "^/" "$s"] } then {
+ if {![regexp "^/" "$s"]} {
set s "$srcdir/$subdir/$s"
}
proc base { addr } {
variable _debug_ranges_64_bit
- if { $_debug_ranges_64_bit } then {
+ if {$_debug_ranges_64_bit} {
_op .8byte 0xffffffffffffffff "Base Marker"
_op .8byte $addr "Base Address"
} else {
proc range { start end } {
variable _debug_ranges_64_bit
- if { $_debug_ranges_64_bit } then {
+ if {$_debug_ranges_64_bit} {
_op .8byte $start "Start Address"
_op .8byte $end "End Address"
} else {
uplevel $body
# End of the sequence.
- if { $_debug_ranges_64_bit } then {
+ if {$_debug_ranges_64_bit} {
_op .8byte 0x0 "End of Sequence Marker (Part 1)"
_op .8byte 0x0 "End of Sequence Marker (Part 2)"
} else {