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

<span style='display:block; white-space:pre;color:#404040;'>    porttest: use dict for file_archs
</span>---
 src/port1.0/porttest.tcl | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port1.0/porttest.tcl b/src/port1.0/porttest.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index a2e9e2c30..3b8dcc721 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port1.0/porttest.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port1.0/porttest.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -55,7 +55,7 @@ proc porttest::test_archs {} {
</span>     if {$handle eq "NULL"} {
         error "Error creating libmachista handle"
     }
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    array set file_archs {}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set file_archs [dict create]
</span>     set destrootlen [string length [option destroot]]
     fs-traverse -depth fullpath [list [option destpath]] {
         if {[file type $fullpath] ne "file"} {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -65,14 +65,14 @@ proc porttest::test_archs {} {
</span>             set archs [get_file_archs $handle $fullpath]
             if {$archs ne ""} {
                 # not guaranteed to be listed in canonical order
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                lappend file_archs([lsort -ascii $archs]) [string range $fullpath $destrootlen end]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                dict lappend file_archs [lsort -ascii $archs] [string range $fullpath $destrootlen end]
</span>             }
         }
     }
     set wanted_archs [get_canonical_archs]
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set has_wanted_archs [info exists file_archs($wanted_archs)]
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    unset -nocomplain file_archs($wanted_archs)
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {[array names file_archs] ne ""} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set has_wanted_archs [dict exists $file_archs $wanted_archs]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    dict unset file_archs $wanted_archs
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    if {[dict size $file_archs] > 0} {
</span>         set msg "[option name] is configured to build "
         if {$wanted_archs eq "noarch"} {
             append msg "no architecture-specific files,"
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -80,9 +80,9 @@ proc porttest::test_archs {} {
</span>             append msg "for the architecture(s) '$wanted_archs',"
         }
         append msg " but installed Mach-O files built for the following archs:\n"
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        foreach a [array names file_archs] {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            append msg [join $a ,]:\n
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-            foreach f $file_archs($a) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        dict for {archs files} $file_archs {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            append msg [join $archs ,]:\n
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            foreach f $files {
</span>                 append msg "  $f\n"
             }
         }
</pre><pre style='margin:0'>

</pre>