diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2000-11-20 20:36:57 +0000 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2000-11-20 20:36:57 +0000 |
| commit | 5bb2300b59b74cdc7c8e3f0bf3c8d31c27657670 (patch) | |
| tree | 8a0e76a6742884477e5bb50639e9a7ab9ba42872 /src/pl/tcl/pltcl.c | |
| parent | 99198ac6b8d2003949a02a148f4483e2f95e7dd4 (diff) | |
Revise handling of oldstyle/newstyle functions per recent discussions
in pghackers list. Support for oldstyle internal functions is gone
(no longer needed, since conversion is complete) and pg_language entry
'internal' now implies newstyle call convention. pg_language entry
'newC' is gone; both old and newstyle dynamically loaded C functions
are now called language 'C'. A newstyle function must be identified
by an associated info routine. See src/backend/utils/fmgr/README.
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) |