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 | |
| parent | 99198ac6b8d2003949a02a148f4483e2f95e7dd4 (diff) | |
| download | postgresql-5bb2300b59b74cdc7c8e3f0bf3c8d31c27657670.tar.gz | |
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')
| -rw-r--r-- | src/pl/plperl/plperl.c | 3 | ||||
| -rw-r--r-- | src/pl/plpgsql/src/pl_handler.c | 4 | ||||
| -rw-r--r-- | src/pl/tcl/pltcl.c | 9 |
3 files changed, 13 insertions, 3 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 81a4cd75d4..0b2d7d4e42 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -33,7 +33,7 @@ * ENHANCEMENTS, OR MODIFICATIONS. * * IDENTIFICATION - * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.15 2000/11/16 22:30:49 tgl Exp $ + * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.16 2000/11/20 20:36:51 tgl Exp $ * **********************************************************************/ @@ -258,6 +258,7 @@ plperl_init_safe_interp(void) * call this function for execution of * perl procedures. **********************************************************************/ +PG_FUNCTION_INFO_V1(plperl_call_handler); /* keep non-static */ Datum diff --git a/src/pl/plpgsql/src/pl_handler.c b/src/pl/plpgsql/src/pl_handler.c index 31788b0706..d9e208ee98 100644 --- a/src/pl/plpgsql/src/pl_handler.c +++ b/src/pl/plpgsql/src/pl_handler.c @@ -3,7 +3,7 @@ * procedural language * * IDENTIFICATION - * $Header: /cvsroot/pgsql/src/pl/plpgsql/src/pl_handler.c,v 1.5 2000/05/29 01:59:14 tgl Exp $ + * $Header: /cvsroot/pgsql/src/pl/plpgsql/src/pl_handler.c,v 1.6 2000/11/20 20:36:52 tgl Exp $ * * This software is copyrighted by Jan Wieck - Hamburg. * @@ -66,6 +66,8 @@ static PLpgSQL_function *compiled_functions = NULL; * call this function for execution of PL/pgSQL procedures. * ---------- */ +PG_FUNCTION_INFO_V1(plpgsql_call_handler); + Datum plpgsql_call_handler(PG_FUNCTION_ARGS) { diff --git a/src/pl/tcl/pltcl.c b/src/pl/tcl/pltcl.c index 8658cac306..94a67ef043 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) |