<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/a8cda3b05b58143e1d5cee53c2d3e7243dfb400a">https://github.com/macports/macports-base/commit/a8cda3b05b58143e1d5cee53c2d3e7243dfb400a</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit a8cda3b05b58143e1d5cee53c2d3e7243dfb400a
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Sun Feb 11 06:05:44 2024 +1100

<span style='display:block; white-space:pre;color:#404040;'>    port.tcl: use in-place lreplace trick
</span>---
 src/port/port.tcl | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port/port.tcl b/src/port/port.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index a7296c4bb..47699ae80 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -745,8 +745,8 @@ proc get_rdepends_ports {portname} {
</span>     set results [list]
     set portList [list [string tolower $portname]]
     while {[llength $portList] > 0} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        set aPort [lindex $portList 0]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        set portList [lreplace $portList 0 0]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set aPort [lindex $portList end]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        set portList [lreplace ${portList}[set portList {}] end end]
</span>         if {[dict exists $::portDependenciesDict $aPort]} {
             foreach possiblyNewPort [dict get $::portDependenciesDict $aPort] {
                 set lcport [string tolower $possiblyNewPort]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2580,8 +2580,8 @@ proc action_dependents { action portlist opts } {
</span>                     set cur_portlist [lindex $portstack end]
                     set cur_pos [lindex $pos_stack end]
                     if {$cur_pos >= [llength $cur_portlist]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                        set portstack [lreplace $portstack end end]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                        set pos_stack [lreplace $pos_stack end end]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        set portstack [lreplace ${portstack}[set portstack {}] end end]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        set pos_stack [lreplace ${pos_stack}[set pos_stack {}] end end]
</span>                         if {[llength $portstack] <= 0} {
                             break
                         } else {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2599,7 +2599,7 @@ proc action_dependents { action portlist opts } {
</span>                         }
                         set seen($cur_portname) 1
                         incr cur_pos
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                        set pos_stack [lreplace $pos_stack end end $cur_pos]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        set pos_stack [lreplace ${pos_stack}[set pos_stack {}] end end $cur_pos]
</span>                         if {[info exists dependentsof($cur_portname)]} {
                             lappend portstack $dependentsof($cur_portname)
                             lappend pos_stack 0
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2607,7 +2607,7 @@ proc action_dependents { action portlist opts } {
</span>                         continue
                     }
                     incr cur_pos
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                    set pos_stack [lreplace $pos_stack end end $cur_pos]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    set pos_stack [lreplace ${pos_stack}[set pos_stack {}] end end $cur_pos]
</span>                 }
             } else {
                 foreach dep $deplist {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2817,8 +2817,8 @@ proc action_deps { action portlist opts } {
</span>             set cur_portlist [lindex $portstack end]
             set cur_pos [lindex $pos_stack end]
             if {$cur_pos >= [llength $cur_portlist]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                set portstack [lreplace $portstack end end]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                set pos_stack [lreplace $pos_stack end end]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                set portstack [lreplace ${portstack}[set portstack {}] end end]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                set pos_stack [lreplace ${pos_stack}[set pos_stack {}] end end]
</span>                 if {[llength $portstack] <= 0} {
                     break
                 } else {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2845,7 +2845,7 @@ proc action_deps { action portlist opts } {
</span>                     puts "${spaces}${cur_portname}${cyclic_marker}"
                 }
                 incr cur_pos
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                set pos_stack [lreplace $pos_stack end end $cur_pos]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                set pos_stack [lreplace ${pos_stack}[set pos_stack {}] end end $cur_pos]
</span>                 if {$cyclic_marker eq ""} {
                     if {[dict exists $depsof $cur_portname]} {
                         # Mark as currently processing this port's deps
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -2860,7 +2860,7 @@ proc action_deps { action portlist opts } {
</span>                 continue
             }
             incr cur_pos
<span style='display:block; white-space:pre;background:#ffe0e0;'>-            set pos_stack [lreplace $pos_stack end end $cur_pos]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            set pos_stack [lreplace ${pos_stack}[set pos_stack {}] end end $cur_pos]
</span>         }
         set separator "--\n"
     }
</pre><pre style='margin:0'>

</pre>