From: Peter Eisentraut <peter_e@gmx.net>
Date: Fri, 1 Feb 2013 03:08:53 +0000 (-0500)
Subject: PL/Tcl: Fix compiler warnings with Tcl 8.6
X-Git-Tag: REL9_3_BETA1~395
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=b1980f6d0;p=thirdparty%2Fpostgresql.git

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.
---

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;
 }