diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2002-01-24 21:40:44 +0000 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2002-01-24 21:40:44 +0000 |
| commit | 989b7d66d8213fcc69ce7e5b16ecdbe40a1678f3 (patch) | |
| tree | 4f70910cd399412f0347ba7e4b8f6a8f6e00cebb /src | |
| parent | 3f5d3ceed000edc91d94944672acedfec741633f (diff) | |
| download | postgresql-989b7d66d8213fcc69ce7e5b16ecdbe40a1678f3.tar.gz postgresql-989b7d66d8213fcc69ce7e5b16ecdbe40a1678f3.zip | |
Tweak plperl.c to compile against threaded Perls, per report from
cturner@redhat.com.
Diffstat (limited to 'src')
| -rw-r--r-- | src/pl/plperl/plperl.c | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index a37f59781f9..c6d5875b7e3 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.27 2002/01/24 16:53:42 tgl Exp $ + * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.28 2002/01/24 21:40:44 tgl Exp $ * **********************************************************************/ @@ -80,8 +80,15 @@ #include "EXTERN.h" #include "perl.h" +#include "XSUB.h" #include "ppport.h" +/* just in case these symbols aren't provided */ +#ifndef pTHX_ +#define pTHX_ +#define pTHX void +#endif + /********************************************************************** * The information we cache about loaded procedures @@ -124,7 +131,7 @@ static Datum plperl_func_handler(PG_FUNCTION_ARGS); static plperl_proc_desc *compile_plperl_function(Oid fn_oid, bool is_trigger); static SV *plperl_build_tuple_argument(HeapTuple tuple, TupleDesc tupdesc); -static void plperl_init_shared_libs(void); +static void plperl_init_shared_libs(pTHX); /* @@ -350,11 +357,11 @@ plperl_create_sub(char *s, bool trusted) * **********************************************************************/ -extern void boot_DynaLoader _((CV * cv)); -extern void boot_SPI _((CV * cv)); +EXTERN_C void boot_DynaLoader(pTHX_ CV* cv); +EXTERN_C void boot_SPI(pTHX_ CV* cv); static void -plperl_init_shared_libs(void) +plperl_init_shared_libs(pTHX) { char *file = __FILE__; |