rdelaage
/
postgresql
mirror of https://git.postgresql.org/git/postgresql.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

If the alternatives for a CASE construct all have the same typmod, 

use that typmod not -1 as the typmod of the CASE result.
Part of response to bug#513.
This commit is contained in:
Tom Lane 2001-11-12 20:05:24 +00:00
parent e433bf5a5e
commit d4d23852c1
1 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
src/backend/parser/parse_expr.c
View File

@ -8,7 +8,7 @@
*
*
* IDENTIFICATION
* $Header: /cvsroot/pgsql/src/backend/parser/parse_expr.c,v 1.104 2001/10/25 05:49:39 momjian Exp $
* $Header: /cvsroot/pgsql/src/backend/parser/parse_expr.c,v 1.105 2001/11/12 20:05:24 tgl Exp $
*
*-------------------------------------------------------------------------
*/
@ -806,6 +806,37 @@ exprTypmod(Node *expr)
case T_RelabelType:
return ((RelabelType *) expr)->resulttypmod;
break;
case T_CaseExpr:
{
/*
* If all the alternatives agree on type/typmod, return
* that typmod, else use -1
*/
CaseExpr *cexpr = (CaseExpr *) expr;
Oid casetype = cexpr->casetype;
int32 typmod;
List *arg;
if (!cexpr->defresult)
return -1;
if (exprType(cexpr->defresult) != casetype)
return -1;
typmod = exprTypmod(cexpr->defresult);
if (typmod < 0)
return -1; /* no point in trying harder */
foreach(arg, cexpr->args)
{
CaseWhen *w = (CaseWhen *) lfirst(arg);
Assert(IsA(w, CaseWhen));
if (exprType(w->result) != casetype)
return -1;
if (exprTypmod(w->result) != typmod)
return -1;
}
return typmod;
}
break;
default:
break;
}