diff options
| author | Tom Lane | 2000-06-05 07:29:25 +0000 |
|---|---|---|
| committer | Tom Lane | 2000-06-05 07:29:25 +0000 |
| commit | 48165ec2262b73c5b81a6caabab66d883d013a83 (patch) | |
| tree | 08e878a2a1e7f76981406ac2b34729a510aecac6 /src/pl | |
| parent | c61db5ba2decf2e620f6ce3699d4b702957ed72a (diff) | |
Latest round of fmgr updates. All functions with bool,char, or int2
inputs have been converted to newstyle. This should go a long way towards
fixing our portability problems with platforms where char and short
parameters are passed differently from int-width parameters. Still
more to do for the Alpha port however.
Diffstat (limited to 'src/pl')
| -rw-r--r-- | src/pl/plperl/plperl.c | 5 | ||||
| -rw-r--r-- | src/pl/plpgsql/src/gram.y | 4 | ||||
| -rw-r--r-- | src/pl/tcl/pltcl.c | 5 |
3 files changed, 8 insertions, 6 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index e51c950ef6..66ae44373d 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.10 2000/05/30 04:24:57 tgl Exp $ + * $Header: /cvsroot/pgsql/src/pl/plperl/plperl.c,v 1.11 2000/06/05 07:29:11 tgl Exp $ * **********************************************************************/ @@ -858,7 +858,8 @@ plperl_trigger_handler(PG_FUNCTION_ARGS) Tcl_DStringAppendElement(&tcl_cmd, trigdata->tg_trigger->tgname); /* The oid of the trigger relation for argument TG_relid */ - stroid = oidout(trigdata->tg_relation->rd_id); + stroid = DatumGetCString(DirectFunctionCall1(oidout, + ObjectIdGetDatum(trigdata->tg_relation->rd_id))); Tcl_DStringAppendElement(&tcl_cmd, stroid); pfree(stroid); diff --git a/src/pl/plpgsql/src/gram.y b/src/pl/plpgsql/src/gram.y index 831ad83e8c..e76ddecb3c 100644 --- a/src/pl/plpgsql/src/gram.y +++ b/src/pl/plpgsql/src/gram.y @@ -4,7 +4,7 @@ * procedural language * * IDENTIFICATION - * $Header: /cvsroot/pgsql/src/pl/plpgsql/src/gram.y,v 1.9 2000/05/29 21:25:07 momjian Exp $ + * $Header: /cvsroot/pgsql/src/pl/plpgsql/src/gram.y,v 1.10 2000/06/05 07:29:14 tgl Exp $ * * This software is copyrighted by Jan Wieck - Hamburg. * @@ -433,7 +433,7 @@ decl_atttypmod : decl_atttypmodval : T_NUMBER { - $$ = int2in(yytext) + VARHDRSZ; + $$ = pg_atoi(yytext, sizeof(int16), '\0') + VARHDRSZ; } ; diff --git a/src/pl/tcl/pltcl.c b/src/pl/tcl/pltcl.c index b2bceb9218..37b413da2d 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.25 2000/05/30 04:24:59 tgl Exp $ + * $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.26 2000/06/05 07:29:13 tgl Exp $ * **********************************************************************/ @@ -905,7 +905,8 @@ pltcl_trigger_handler(PG_FUNCTION_ARGS) Tcl_DStringAppendElement(&tcl_cmd, trigdata->tg_trigger->tgname); /* The oid of the trigger relation for argument TG_relid */ - stroid = oidout(trigdata->tg_relation->rd_id); + stroid = DatumGetCString(DirectFunctionCall1(oidout, + ObjectIdGetDatum(trigdata->tg_relation->rd_id))); Tcl_DStringAppendElement(&tcl_cmd, stroid); pfree(stroid); |