<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>