From b1980f6d03f79ab57da8f32aa8cd9677dbe1d58f Mon Sep 17 00:00:00 2001
From: Peter Eisentraut <peter_e@gmx.net>
Date: Thu, 31 Jan 2013 22:08:53 -0500
Subject: [PATCH] PL/Tcl: Fix compiler warnings with Tcl 8.6
Some constification was added in the Tcl APIs, so add the modifiers in
PL/Tcl as well.
---
src/pl/tcl/pltcl.c | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/src/pl/tcl/pltcl.c b/src/pl/tcl/pltcl.c
index d329e9def81..c4d5fa17000 100644
--- a/src/pl/tcl/pltcl.c
+++ b/src/pl/tcl/pltcl.c
@@ -18,6 +18,11 @@
#define CONST84
#endif
+/* ... and for Tcl 8.6. */
+#ifndef CONST86
+#define CONST86
+#endif
+
#include "access/htup_details.h"
#include "access/xact.h"
#include "catalog/pg_proc.h"
@@ -259,7 +264,7 @@ pltcl_FinalizeNotifier(ClientData clientData)
}
static void
-pltcl_SetTimer(Tcl_Time *timePtr)
+pltcl_SetTimer(CONST86 Tcl_Time *timePtr)
{
}
@@ -285,7 +290,7 @@ pltcl_ServiceModeHook(int mode)
}
static int
-pltcl_WaitForEvent(Tcl_Time *timePtr)
+pltcl_WaitForEvent(CONST86 Tcl_Time *timePtr)
{
return 0;
}
--
GitLab