<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-ports.
</pre>
<p><a href="https://github.com/macports/macports-ports/commit/9b5cd63de5c20c951691ca836efa70e42e109223">https://github.com/macports/macports-ports/commit/9b5cd63de5c20c951691ca836efa70e42e109223</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'> new 9b5cd63de5c tclx: fix implicit function declarations
</span>9b5cd63de5c is described below
<span style='display:block; white-space:pre;color:#808000;'>commit 9b5cd63de5c20c951691ca836efa70e42e109223
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Tue Dec 22 21:16:51 2020 +1100
<span style='display:block; white-space:pre;color:#404040;'> tclx: fix implicit function declarations
</span><span style='display:block; white-space:pre;color:#404040;'>
</span><span style='display:block; white-space:pre;color:#404040;'> See: macports/macports-base@74b3130
</span><span style='display:block; white-space:pre;color:#404040;'> Closes: https://trac.macports.org/ticket/61890
</span>---
lang/tclx/Portfile | 3 +
.../files/configure-implicit-declarations.patch | 84 ++++++++
lang/tclx/files/implicit-panic.patch | 218 +++++++++++++++++++++
3 files changed, 305 insertions(+)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/lang/tclx/Portfile b/lang/tclx/Portfile
</span><span style='display:block; white-space:pre;color:#808080;'>index 20564736ea8..40ba539c5e2 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/lang/tclx/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lang/tclx/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -40,6 +40,9 @@ post-extract {
</span> system -W ${distpath} "tar xvfz tcl${tclv}-src.tar.gz -C ${workpath}"
}
<span style='display:block; white-space:pre;background:#e0ffe0;'>+patchfiles configure-implicit-declarations.patch \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ implicit-panic.patch
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> configure.cflags-append "-I${workpath}/tcl${tclv}/generic -I${workpath}/tcl${tclv}/unix"
configure.args --enable-shared \
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/lang/tclx/files/configure-implicit-declarations.patch b/lang/tclx/files/configure-implicit-declarations.patch
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 00000000000..536da1ff64f
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lang/tclx/files/configure-implicit-declarations.patch
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,84 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+https://github.com/macports/macports-base/commit/aeda00dfd7aa26fa4b78ac30d76ea64cdf0a4408
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/configure b/configure
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index be63b1795..154515ccc 100755
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- configure
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ configure
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -3214,6 +3214,7 @@ cat confdefs.h >>conftest.$ac_ext
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ cat >>conftest.$ac_ext <<_ACEOF
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ /* end confdefs.h. */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include <ctype.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++#include <stdlib.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #if ((' ' & 0x0FF) == 0x020)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -10766,6 +10767,7 @@ cat >>conftest.$ac_ext <<_ACEOF
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include <sys/types.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include <sys/times.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++#include <unistd.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ main() {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ struct tms cpu;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ times(&cpu);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/configure.in b/configure.in
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 173ec261f..d1be5550e 100755
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- configure.in
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ configure.in
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -194,6 +194,7 @@ WIFEXITED(x); /* Generates compiler error if WIFEXITED uses an int. */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ AC_TRY_RUN([
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include <sys/types.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #include <sys/times.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++#include <unistd.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ main() {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ struct tms cpu;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ times(&cpu);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/tclconfig/tcl.m4 b/tclconfig/tcl.m4
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 18d71343f..6b6ab41e4 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- tclconfig/tcl.m4
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ tclconfig/tcl.m4
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -2441,6 +2441,7 @@ AC_DEFUN(TEA_BUGGY_STRTOD, [
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if test "$tcl_strtod" = 1; then
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ AC_CACHE_CHECK([for Solaris2.4/Tru64 strtod bugs], tcl_cv_strtod_buggy,[
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ AC_TRY_RUN([
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ #include <stdlib.h>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ extern double strtod();
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ int main() {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ char *infString="Inf", *nanString="NaN", *spaceString=" ";
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- configure.orig 2020-12-22 21:08:08.000000000 +1100
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ configure 2020-12-22 21:14:04.000000000 +1100
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -10559,7 +10559,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ extern long timezone;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ timezone += 1;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- exit (0);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ return (0);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ ;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return 0;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -10624,7 +10624,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ extern time_t timezone;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ timezone += 1;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- exit (0);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ return (0);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ ;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return 0;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -10772,7 +10772,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ struct tms cpu;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ times(&cpu);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ sleep(2);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- exit ((times(&cpu) > 0) ? 0 : 1);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ return ((times(&cpu) > 0) ? 0 : 1);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ _ACEOF
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -13012,7 +13012,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ main ()
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- if (catclose ((nl_catd) 0) == 0) exit (0);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ if (catclose ((nl_catd) 0) == 0) return (0);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ ;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return 0;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;color:#808080;'>diff --git a/lang/tclx/files/implicit-panic.patch b/lang/tclx/files/implicit-panic.patch
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 00000000000..7c27b14847f
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lang/tclx/files/implicit-panic.patch
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,218 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+From 599111920090326d17a90853f9db5fd3c617b336 Mon Sep 17 00:00:00 2001
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+From: Jeremy Huddleston Sequoia <jeremyhu@macports.org>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Date: Mon, 22 Jun 2020 00:30:24 -0700
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Subject: [PATCH] tclx8.4: Use Tcl_Panic instead of deprecated / implicitly
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ declared panic()
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+Signed-off-by: Jeremy Huddleston Sequoia <jeremyhu@macports.org>
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+---
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ generic/tclExtdInt.h | 2 +-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ generic/tclXdup.c | 2 +-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ generic/tclXfcntl.c | 4 ++--
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ generic/tclXhandles.c | 2 +-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ generic/tclXprofile.c | 12 ++++++------
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ generic/tclXsignal.c | 6 +++---
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ generic/tclXstring.c | 2 +-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ generic/tclXutil.c | 10 +++++-----
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ 8 files changed, 20 insertions(+), 20 deletions(-)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/generic/tclExtdInt.h b/generic/tclExtdInt.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index fd3812ff6..ffa8b30ac 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- generic/tclExtdInt.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ generic/tclExtdInt.h
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -47,7 +47,7 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #ifdef TCLX_DEBUG
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # define TclX_Assert(expr) ((expr) ? (void)0 : \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic("TclX assertion failure: %s:%d \"%s\"\n",\
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic("TclX assertion failure: %s:%d \"%s\"\n",\
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ __FILE__, __LINE__, "expr"))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #else
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ # define TclX_Assert(expr)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/generic/tclXdup.c b/generic/tclXdup.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 41f3eec39..263e5d483 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- generic/tclXdup.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ generic/tclXdup.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -76,7 +76,7 @@ DupChannelOptions (interp, srcChannel, targetChannel)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ goto errorExit;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if ((optArgc % 2) != 0) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic("channel didn't return keyword/value pairs");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic("channel didn't return keyword/value pairs");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ for (idx = 0; idx < optArgc; idx += 2) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/generic/tclXfcntl.c b/generic/tclXfcntl.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 43a26117b..a83e8af15 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- generic/tclXfcntl.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ generic/tclXfcntl.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -211,7 +211,7 @@ GetFcntlAttr (interp, channel, mode, attrib)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return TCL_ERROR;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ break;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ default:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic ("bug in fcntl get attrib");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic ("bug in fcntl get attrib");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_SetIntObj (Tcl_GetObjResult (interp), value != 0);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -267,7 +267,7 @@ SetFcntlAttrObj (interp, channel, attrib, valueObj)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ case ATTR_KEEPALIVE:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return TclXOSsetsockopt (interp, channel, SO_KEEPALIVE, value);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ default:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic ("buf in fcntl set attrib");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic ("buf in fcntl set attrib");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return TCL_ERROR; /* Should never be reached */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/generic/tclXhandles.c b/generic/tclXhandles.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 83159139f..cc854367e 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- generic/tclXhandles.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ generic/tclXhandles.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -567,7 +567,7 @@ TclX_HandleFree (headerPtr, entryPtr)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ entryHdrPtr = HEADER_AREA (entryPtr);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (entryHdrPtr->freeLink != ALLOCATED_IDX)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic ("Tcl_HandleFree: entry not allocated %x\n", entryHdrPtr);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic ("Tcl_HandleFree: entry not allocated %x\n", entryHdrPtr);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ entryHdrPtr->freeLink = tblHdrPtr->freeHeadIdx;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ tblHdrPtr->freeHeadIdx =
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/generic/tclXprofile.c b/generic/tclXprofile.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index e45b78669..7444aa7f3 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- generic/tclXprofile.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ generic/tclXprofile.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -240,7 +240,7 @@ PushEntry (infoPtr, cmdName, isProc, procLevel, scopeLevel, evalLevel)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * Only global level can be NULL.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (scanPtr == NULL)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic (PROF_PANIC, 1);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic (PROF_PANIC, 1);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ entryPtr->prevScopePtr = scanPtr;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ infoPtr->scopeChainPtr = entryPtr;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -450,7 +450,7 @@ ProfCommandEvalSetup (infoPtr, isProcPtr)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ UpdateTOSTimes (infoPtr);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ while (infoPtr->stackPtr->procLevel > procLevel) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (infoPtr->stackPtr->evalLevel != UNKNOWN_LEVEL)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic (PROF_PANIC, 2); /* Not an initial entry */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic (PROF_PANIC, 2); /* Not an initial entry */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ PopEntry (infoPtr);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -595,15 +595,15 @@ ProfTraceRoutine (clientData, interp, evalLevel, command, cmdProc,
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_Command cmd;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (infoPtr->currentCmdPtr != NULL)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic (PROF_PANIC, 3);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic (PROF_PANIC, 3);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ cmd = Tcl_FindCommand (interp, argv [0], NULL, 0);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (cmd == NULL)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic (PROF_PANIC, 4);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic (PROF_PANIC, 4);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ cmdPtr = (Command *) cmd;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if ((cmdPtr->proc != cmdProc) || (cmdPtr->clientData != cmdClientData))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic (PROF_PANIC, 5);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic (PROF_PANIC, 5);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ /*
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * If command is to be compiled, we can't profile it.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -740,7 +740,7 @@ TurnOnProfiling (infoPtr, commandMode, evalMode)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * Only global level can be NULL.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (scanPtr == NULL)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic (PROF_PANIC, 6);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic (PROF_PANIC, 6);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ infoPtr->scopeChainPtr = scanPtr;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/generic/tclXsignal.c b/generic/tclXsignal.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 21c226cb6..96942a5f5 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- generic/tclXsignal.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ generic/tclXsignal.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -649,11 +649,11 @@ SignalTrap (signalNum)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #ifdef SIGCHLD
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (signalNum != SIGCHLD) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (SetSignalState (signalNum, SignalTrap, FALSE) == TCL_ERROR)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic ("SignalTrap bug");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic ("SignalTrap bug");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #else
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (SetSignalState (signalNum, SignalTrap, FALSE) == TCL_ERROR)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic ("SignalTrap bug");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic ("SignalTrap bug");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #endif /* SIGCHLD */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #endif /* NO_SIGACTION */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -1581,7 +1581,7 @@ SignalCmdCleanUp (clientData, interp)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ break;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (idx == numInterps)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic ("signal interp lost");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic ("signal interp lost");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ interpTable [idx] = interpTable [--numInterps];
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/generic/tclXstring.c b/generic/tclXstring.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 93e8b1e39..761148fee 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- generic/tclXstring.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ generic/tclXstring.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -677,7 +677,7 @@ TclX_CtypeObjCmd (dummy, interp, objc, objv)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ #define IS_8BIT_UNICHAR(c) (c <= 255)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ if (TCL_UTF_MAX > sizeof(number)) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic("TclX_CtypeObjCmd: UTF character longer than a int");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic("TclX_CtypeObjCmd: UTF character longer than a int");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ /*FIX: Split into multiple procs */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git a/generic/tclXutil.c b/generic/tclXutil.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 633e19ba8..d0ed7a487 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- generic/tclXutil.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ generic/tclXutil.c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -503,7 +503,7 @@ ParseTranslationOption (strValue)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ } else if (STREQU (strValue, "platform")) {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return TCLX_TRANSLATE_PLATFORM;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic ("ParseTranslationOption bug");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic ("ParseTranslationOption bug");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return TCL_ERROR; /* Not reached */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -535,7 +535,7 @@ FormatTranslationOption (value)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ case TCLX_TRANSLATE_PLATFORM:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return "platform";
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ default:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic ("FormatTranslationOption bug");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic ("FormatTranslationOption bug");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return NULL; /* Not reached */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -649,7 +649,7 @@ TclX_GetChannelOption (interp, channel, option, valuePtr)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return TCL_OK;
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ fatalError:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic ("TclX_GetChannelOption bug"); /* FIX: return error. */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic ("TclX_GetChannelOption bug"); /* FIX: return error. */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return 0; /* Not reached */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -745,7 +745,7 @@ TclX_SetChannelOption (interp, channel, option, value)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return Tcl_SetChannelOption (interp, channel, strOption, strValue);
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ fatalError:
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic ("TclX_SetChannelOption bug");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic ("TclX_SetChannelOption bug");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ return TCL_ERROR; /* Not reached */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -965,7 +965,7 @@ TclX_RestoreResultErrorInfo (interp, saveObjPtr)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ /*
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ * This should never happen
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ */
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+- panic ("invalid TclX result save object");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++ Tcl_Panic ("invalid TclX result save object");
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ Tcl_SetVar2Ex(interp, ERRORCODE, NULL, saveObjv[2], TCL_GLOBAL_ONLY);
</span></pre><pre style='margin:0'>
</pre>