diff options
Diffstat (limited to 'src/pl/tcl/pltcl.c')
| -rw-r--r-- | src/pl/tcl/pltcl.c | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/pl/tcl/pltcl.c b/src/pl/tcl/pltcl.c index 38d7d434501..af3af23cd0e 100644 --- a/src/pl/tcl/pltcl.c +++ b/src/pl/tcl/pltcl.c @@ -31,7 +31,7 @@ * ENHANCEMENTS, OR MODIFICATIONS. * * IDENTIFICATION - * $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.43 2001/10/06 23:21:45 tgl Exp $ + * $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.44 2001/10/13 04:23:50 momjian Exp $ * **********************************************************************/ @@ -146,9 +146,7 @@ static FunctionCallInfo pltcl_current_fcinfo = NULL; static void pltcl_init_all(void); static void pltcl_init_interp(Tcl_Interp *interp); -#ifdef ENABLE_PLTCL_UNKNOWN static void pltcl_init_load_unknown(Tcl_Interp *interp); -#endif Datum pltcl_call_handler(PG_FUNCTION_ARGS); Datum pltclu_call_handler(PG_FUNCTION_ARGS); @@ -293,7 +291,6 @@ pltcl_init_interp(Tcl_Interp *interp) Tcl_CreateCommand(interp, "spi_lastoid", pltcl_SPI_lastoid, NULL, NULL); -#ifdef ENABLE_PLTCL_UNKNOWN /************************************************************ * Try to load the unknown procedure from pltcl_modules ************************************************************/ @@ -302,12 +299,9 @@ pltcl_init_interp(Tcl_Interp *interp) pltcl_init_load_unknown(interp); if (SPI_finish() != SPI_OK_FINISH) elog(ERROR, "pltcl_init_interp(): SPI_finish failed"); -#endif /* ENABLE_PLTCL_UNKNOWN */ } -#ifdef ENABLE_PLTCL_UNKNOWN - /********************************************************************** * pltcl_init_load_unknown() - Load the unknown procedure from * table pltcl_modules (if it exists) @@ -380,8 +374,6 @@ pltcl_init_load_unknown(Tcl_Interp *interp) Tcl_DStringFree(&unknown_src); } -#endif /* ENABLE_PLTCL_UNKNOWN */ - /********************************************************************** * pltcl_call_handler - This is the only visible function |