The recent TCL patch assumed Tcl_NotifierProcs.initNotifierProc was
added in TCL 8.2:
#if HAVE_TCL_VERSION(8,2)
/*
* Override the functions in the Notifier subsystem. See comments above.
*/
{
Tcl_NotifierProcs notifier;
notifier.setTimerProc = pltcl_SetTimer;
notifier.waitForEventProc = pltcl_WaitForEvent;
notifier.createFileHandlerProc = pltcl_CreateFileHandler;
notifier.deleteFileHandlerProc = pltcl_DeleteFileHandler;
notifier.initNotifierProc = pltcl_InitNotifier;
In fact it was added in 8.4 so I have modified the CVS with the
following patch.
--
Bruce Momjian <bruce@momjian.us> http://momjian.us
EnterpriseDB http://postgres.enterprisedb.com
+ If your life is a hard drive, Christ can be your backup. +
Index: src/pl/tcl/pltcl.c
===================================================================
RCS file: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v
retrieving revision 1.113
diff -c -c -r1.113 pltcl.c
*** src/pl/tcl/pltcl.c 21 Sep 2007 00:30:49 -0000 1.113
--- src/pl/tcl/pltcl.c 28 Sep 2007 21:02:55 -0000
***************
*** 178,184 ****
* within Postgres, but we implement all the functions for completeness.
* We can only fix this with Tcl >= 8.2, when Tcl_SetNotifier() appeared.
*/
! #if HAVE_TCL_VERSION(8,2)
static ClientData
pltcl_InitNotifier(void)
--- 178,184 ----
* within Postgres, but we implement all the functions for completeness.
* We can only fix this with Tcl >= 8.2, when Tcl_SetNotifier() appeared.
*/
! #if HAVE_TCL_VERSION(8,4)
static ClientData
pltcl_InitNotifier(void)
***************
*** 262,268 ****
Tcl_FindExecutable("");
#endif
! #if HAVE_TCL_VERSION(8,2)
/*
* Override the functions in the Notifier subsystem. See comments above.
*/
--- 262,268 ----
Tcl_FindExecutable("");
#endif
! #if HAVE_TCL_VERSION(8,4)
/*
* Override the functions in the Notifier subsystem. See comments above.
*/