PL/Tcl: Fix compiler warnings with Tcl 8.6

petere · petere · commit b1980f6d03f7 · 2013-01-31T22:08:53.000-05:00
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
@@ -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;
 }

Original file line number	Diff line number	Diff line change
`@@ -18,6 +18,11 @@`
`18`	`18`	`#define CONST84`
`19`	`19`	`#endif`
`20`	`20`
	`21`	`+/* ... and for Tcl 8.6. */`
	`22`	`+#ifndef CONST86`
	`23`	`+#define CONST86`
	`24`	`+#endif`
	`25`	`+`
`21`	`26`	`#include "access/htup_details.h"`
`22`	`27`	`#include "access/xact.h"`
`23`	`28`	`#include "catalog/pg_proc.h"`
`@@ -259,7 +264,7 @@ pltcl_FinalizeNotifier(ClientData clientData)`
`259`	`264`	`}`
`260`	`265`
`261`	`266`	`static void`
`262`		`-pltcl_SetTimer(Tcl_Time *timePtr)`
	`267`	`+pltcl_SetTimer(CONST86 Tcl_Time *timePtr)`
`263`	`268`	`{`
`264`	`269`	`}`
`265`	`270`
`@@ -285,7 +290,7 @@ pltcl_ServiceModeHook(int mode)`
`285`	`290`	`}`
`286`	`291`
`287`	`292`	`static int`
`288`		`-pltcl_WaitForEvent(Tcl_Time *timePtr)`
	`293`	`+pltcl_WaitForEvent(CONST86 Tcl_Time *timePtr)`
`289`	`294`	`{`
`290`	`295`	`return 0;`
`291`	`296`	`}`