<pre style='margin:0'>
Rainer Müller (raimue) pushed a commit to branch vcs-fetch
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/26b1db3f3ec24cc654590e15cbc6608d0c865294">https://github.com/macports/macports-base/commit/26b1db3f3ec24cc654590e15cbc6608d0c865294</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 26b1db3f3ec24cc654590e15cbc6608d0c865294
</span>Author: Rainer Müller <raimue@macports.org>
AuthorDate: Mon Apr 2 00:44:39 2018 +0200

<span style='display:block; white-space:pre;color:#404040;'>    fs-traverse: Error checking for calloc()
</span>---
 src/pextlib1.0/fs-traverse.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/pextlib1.0/fs-traverse.c b/src/pextlib1.0/fs-traverse.c
</span><span style='display:block; white-space:pre;color:#808080;'>index 026bf4c..b1022dd 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/pextlib1.0/fs-traverse.c
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/pextlib1.0/fs-traverse.c
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -126,7 +126,13 @@ FsTraverseCmd(ClientData clientData UNUSED, Tcl_Interp *interp, int objc, Tcl_Ob
</span>         }
 
         entries = calloc(lobjc+1, sizeof(char *));
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        iter = (char **)entries;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if (!entries) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            Tcl_SetErrno(errno);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            Tcl_ResetResult(interp);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            Tcl_AppendResult(interp, "malloc: ", (char *)Tcl_PosixError(interp), NULL);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return TCL_ERROR;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        iter = entries;
</span>         while (lobjc > 0) {
             *iter++ = Tcl_GetString(*lobjv);
             --lobjc, ++lobjv;
</pre><pre style='margin:0'>

</pre>