  }
   
-@@ -535,7 +535,7 @@ FormatTranslationOption (value)
+@@ -507,7 +507,7 @@ FormatTranslationOption (int value)
        case TCLX_TRANSLATE_PLATFORM:
          return "platform";
        default:

From 599111920090326d17a90853f9db5fd3c617b336 Mon Sep 17 00:00:00 2001
From: Jeremy Huddleston Sequoia <jeremyhu@macports.org>
Date: Mon, 22 Jun 2020 00:30:24 -0700
Subject: [PATCH] tclx8.4: Use Tcl_Panic instead of deprecated / implicitly
 declared panic()

Signed-off-by: Jeremy Huddleston Sequoia <jeremyhu@macports.org>
---
 vendor/tclx8.4/generic/tclExtdInt.h  |  2 +-
 vendor/tclx8.4/generic/tclXdup.c     |  2 +-
 vendor/tclx8.4/generic/tclXfcntl.c   |  4 ++--
 vendor/tclx8.4/generic/tclXhandles.c |  2 +-
 vendor/tclx8.4/generic/tclXprofile.c | 12 ++++++------
 vendor/tclx8.4/generic/tclXsignal.c  |  6 +++---
 vendor/tclx8.4/generic/tclXstring.c  |  2 +-
 vendor/tclx8.4/generic/tclXutil.c    | 10 +++++-----
 8 files changed, 20 insertions(+), 20 deletions(-)

diff --git a/vendor/tclx8.4/generic/tclExtdInt.h b/vendor/tclx8.4/generic/tclExtdInt.h
index fd3812ff6..ffa8b30ac 100644
--- a/vendor/tclx8.4/generic/tclExtdInt.h
+++ b/vendor/tclx8.4/generic/tclExtdInt.h
@@ -47,7 +47,7 @@
  */
 #ifdef TCLX_DEBUG

 
     interpTable [idx] = interpTable [--numInterps];
 
diff --git a/vendor/tclx-8.4.4/generic/tclXstring.c b/vendor/tclx-8.4.4/generic/tclXstring.c
index 2c4216936..76ab80a8f 100644
--- a/vendor/tclx-8.4.4/generic/tclXstring.c
+++ b/vendor/tclx-8.4.4/generic/tclXstring.c
@@ -666,7 +666,7 @@ TclX_CtypeObjCmd (ClientData clientData,
 #define IS_8BIT_UNICHAR(c) (c <= 255)
 
     if (TCL_UTF_MAX > sizeof(number)) {
