<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-base.
</pre>
<p><a href="https://github.com/macports/macports-base/commit/6c3f62765a8dfa9ff23f06a10d140d4c70690033">https://github.com/macports/macports-base/commit/6c3f62765a8dfa9ff23f06a10d140d4c70690033</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 6c3f62765a8dfa9ff23f06a10d140d4c70690033
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Mon Feb 12 00:20:09 2024 +1100
<span style='display:block; white-space:pre;color:#404040;'> Do lreplaces in place
</span>---
src/macports1.0/macports.tcl | 10 +++++-----
src/macports1.0/macports_dlist.tcl | 2 +-
src/macports1.0/macports_util.tcl | 8 ++++----
3 files changed, 10 insertions(+), 10 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/macports.tcl b/src/macports1.0/macports.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 9b64f035d..74551b1bc 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/macports.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/macports.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -267,7 +267,7 @@ proc macports::pop_log {} {
</span> }
if {$::logenabled && [llength $::logstack] > 0} {
close $::debuglog
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set ::logstack [lreplace $::logstack end end]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set ::logstack [lreplace ${::logstack}[set ::logstack {}] end end]
</span> if {[llength $::logstack] > 0} {
set top [lindex $::logstack end]
set ::debuglog [lindex $top 0]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -5760,12 +5760,12 @@ proc macports::revupgrade_scanandrebuild {broken_port_counts_name opts} {
</span> lappend topsort_ports $port
# remove from unsorted list
set index [lsearch -exact $unsorted_ports $port]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set unsorted_ports [lreplace $unsorted_ports $index $index]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set unsorted_ports [lreplace ${unsorted_ports}[set unsorted_ports {}] $index $index]
</span>
# remove edges
foreach target $revadjlist($port) {
set index [lsearch -exact $adjlist($target) $port]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set adjlist($target) [lreplace $adjlist($target) $index $index]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set adjlist($target) [lreplace $adjlist($target)[set adjlist($target) {}] $index $index]
</span> }
break;
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -5779,11 +5779,11 @@ proc macports::revupgrade_scanandrebuild {broken_port_counts_name opts} {
</span> lappend topsort_ports $lowest_adj_port
set index [lsearch -exact $unsorted_ports $lowest_adj_port]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set unsorted_ports [lreplace $unsorted_ports $index $index]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set unsorted_ports [lreplace ${unsorted_ports}[set unsorted_ports {}] $index $index]
</span>
foreach target $revadjlist($port) {
set index [lsearch -exact $adjlist($target) $lowest_adj_port]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set adjlist($target) [lreplace $adjlist($target) $index $index]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set adjlist($target) [lreplace $adjlist($target)[set adjlist($target) {}] $index $index]
</span> }
}
}
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/macports_dlist.tcl b/src/macports1.0/macports_dlist.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 7201532c9..ba5fb3ee7 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/macports_dlist.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/macports_dlist.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -98,7 +98,7 @@ proc dlist_delete {dlist ditem} {
</span> upvar $dlist uplist
set ix [lsearch -exact $uplist $ditem]
if {$ix >= 0} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set uplist [lreplace $uplist $ix $ix]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set uplist [lreplace ${uplist}[set uplist {}] $ix $ix]
</span> }
}
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/macports1.0/macports_util.tcl b/src/macports1.0/macports_util.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 179b15e74..ce8d24213 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/macports1.0/macports_util.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/macports1.0/macports_util.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -134,7 +134,7 @@ proc ldindex {varName args} {
</span> lset var $idx $list
} else {
set item [lindex $var $idx]
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set var [lreplace $var $idx $idx]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set var [lreplace ${var}[set var {}] $idx $idx]
</span> }
} else {
set item $var
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -169,7 +169,7 @@ proc lshift {varName} {
</span> upvar 1 $varName var
set element [lindex $var 0]
# the [set] in the index argument ensures the list is not shared
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set var [lreplace $var [set var 0] 0]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set var [lreplace ${var}[set var {}] 0 0]
</span> return $element
}
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -182,7 +182,7 @@ proc lunshift {varName args} {
</span> set var [list]
}
# the [set] in the index argument ensures the list is not shared
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set var [lreplace $var [set var -1] -1 {*}$args]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set var [lreplace ${var}[set var {}] -1 -1 {*}$args]
</span> }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -293,7 +293,7 @@ namespace eval macports_util::tcl::control {
</span> set pass_signal no
if {[lindex $args 0] eq "-pass_signal"} {
set pass_signal yes
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set args [lreplace $args 0 0]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set args [lreplace ${args}[set args {}] 0 0]
</span> }
set trybody [lindex $args 0]
set finallybody {}
</pre><pre style='margin:0'>
</pre>