[prev in list] [next in list] [prev in thread] [next in thread] 

List:       macports-changes
Subject:    [mpbb] 02/02: sort-with-subports: small performance trick
From:       Joshua Root <jmr () macports ! org>
Date:       2021-12-31 19:39:59
Message-ID: 20211231194039.5F3AB100820 () braeburn ! macports ! org
[Download RAW message or body]

<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository mpbb.

</pre>
<p><a href="https://github.com/macports/mpbb/commit/4db50fdf2fbc9eba99d9784bccb06465f7 \
f6fae2">https://github.com/macports/mpbb/commit/4db50fdf2fbc9eba99d9784bccb06465f7f6fae2</a></p>
 <pre style="white-space: pre; background: #F8F8F8"><span style='display:block; \
white-space:pre;color:#808000;'>commit 4db50fdf2fbc9eba99d9784bccb06465f7f6fae2 \
                </span>Author: Joshua Root &lt;jmr@macports.org&gt;
AuthorDate: Sat Jan 1 06:39:57 2022 +1100

<span style='display:block; white-space:pre;color:#404040;'>    sort-with-subports: \
small performance trick </span>---
 tools/sort-with-subports.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git \
a/tools/sort-with-subports.tcl b/tools/sort-with-subports.tcl </span><span \
style='display:block; white-space:pre;color:#808080;'>index edd4e22..cf038d1 100755 \
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- \
a/tools/sort-with-subports.tcl </span><span style='display:block; \
white-space:pre;background:#e0e0ff;'>+++ b/tools/sort-with-subports.tcl </span><span \
style='display:block; white-space:pre;background:#e0e0e0;'>@@ -180,8 +180,8 @@ \
foreach p $todo { </span> # process all recursive deps
 set depstypes [list depends_fetch depends_extract depends_patch depends_build \
depends_lib depends_run]  while {[llength $todo] &gt; 0} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set p [lindex \
$todo 0] </span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    \
set todo [lrange $todo 1 end] </span><span style='display:block; \
white-space:pre;background:#e0ffe0;'>+    set p [lindex $todo end] </span><span \
style='display:block; white-space:pre;background:#e0ffe0;'>+    set todo [lreplace \
${todo}[set todo {}] end end] </span> 
     if {![info exists portdepinfo($p)]} {
         if {[catch {mportlookup $p} result]} {
</pre><pre style='margin:0'>

</pre>


[prev in list] [next in list] [prev in thread] [next in thread]