diff options
| author | Bruce Momjian <bruce@momjian.us> | 2001-10-13 04:23:50 +0000 |
|---|---|---|
| committer | Bruce Momjian <bruce@momjian.us> | 2001-10-13 04:23:50 +0000 |
| commit | 1d3a47af0ce4bff7c3b92e614266b8bf45a118ef (patch) | |
| tree | 3e768aeec366821705f0eb74c11e3e031f5c83a8 /src/pl/tcl/pltcl.c | |
| parent | 36458b93e0961c983f76db415aa0aeef9ebeeffd (diff) | |
| download | postgresql-1d3a47af0ce4bff7c3b92e614266b8bf45a118ef.tar.gz | |
Attached patch for unconditional enabling of pltcl-unknown support.
Enabling this feature adds very light overhead of 1 select from pg_class on
first using of pl/tcl in backend if unknown suppport is really unused.
But pl/tcl with this support has very improved functionality.
Patch includes changes to documentation.
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 38d7d43450..af3af23cd0 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 |