diff options
Diffstat (limited to 'src/pl/tcl/pltcl.c')
| -rw-r--r-- | src/pl/tcl/pltcl.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/pl/tcl/pltcl.c b/src/pl/tcl/pltcl.c index 8658cac3065..94a67ef0433 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.29 2000/11/16 22:30:52 tgl Exp $ + * $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.30 2000/11/20 20:36:52 tgl Exp $ * **********************************************************************/ @@ -325,6 +325,7 @@ pltcl_init_load_unknown(void) * call this function for execution of * PL/Tcl procedures. **********************************************************************/ +PG_FUNCTION_INFO_V1(pltcl_call_handler); /* keep non-static */ Datum @@ -371,6 +372,12 @@ pltcl_call_handler(PG_FUNCTION_ARGS) return retval; } + +/* + * Alternate handler for unsafe functions + */ +PG_FUNCTION_INFO_V1(pltclu_call_handler); + /* keep non-static */ Datum pltclu_call_handler(PG_FUNCTION_ARGS) |