|
33 | 33 | * ENHANCEMENTS, OR MODIFICATIONS. |
34 | 34 | * |
35 | 35 | * IDENTIFICATION |
36 | | - * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.27 2002/01/2416:53:42 tgl Exp $ |
| 36 | + * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.28 2002/01/2421:40:44 tgl Exp $ |
37 | 37 | * |
38 | 38 | **********************************************************************/ |
39 | 39 |
|
|
80 | 80 |
|
81 | 81 | #include"EXTERN.h" |
82 | 82 | #include"perl.h" |
| 83 | +#include"XSUB.h" |
83 | 84 | #include"ppport.h" |
84 | 85 |
|
| 86 | +/* just in case these symbols aren't provided */ |
| 87 | +#ifndefpTHX_ |
| 88 | +#definepTHX_ |
| 89 | +#definepTHX void |
| 90 | +#endif |
| 91 | + |
85 | 92 |
|
86 | 93 | /********************************************************************** |
87 | 94 | * The information we cache about loaded procedures |
@@ -124,7 +131,7 @@ static Datum plperl_func_handler(PG_FUNCTION_ARGS); |
124 | 131 | staticplperl_proc_desc*compile_plperl_function(Oidfn_oid,boolis_trigger); |
125 | 132 |
|
126 | 133 | staticSV*plperl_build_tuple_argument(HeapTupletuple,TupleDesctupdesc); |
127 | | -staticvoidplperl_init_shared_libs(void); |
| 134 | +staticvoidplperl_init_shared_libs(pTHX); |
128 | 135 |
|
129 | 136 |
|
130 | 137 | /* |
@@ -350,11 +357,11 @@ plperl_create_sub(char *s, bool trusted) |
350 | 357 | * |
351 | 358 | **********************************************************************/ |
352 | 359 |
|
353 | | -externvoidboot_DynaLoader_((CV*cv)); |
354 | | -externvoidboot_SPI_((CV*cv)); |
| 360 | +EXTERN_Cvoidboot_DynaLoader(pTHX_CV*cv); |
| 361 | +EXTERN_Cvoidboot_SPI(pTHX_CV*cv); |
355 | 362 |
|
356 | 363 | staticvoid |
357 | | -plperl_init_shared_libs(void) |
| 364 | +plperl_init_shared_libs(pTHX) |
358 | 365 | { |
359 | 366 | char*file=__FILE__; |
360 | 367 |
|
|