Fix bracketing error in CaseExpr code

This commit is contained in:
Tom Lane 1999-02-07 03:02:21 +00:00
parent 65decc3402
commit 65d320e7e4
1 changed files with 4 additions and 3 deletions

View File

@ -7,7 +7,7 @@
*
*
* IDENTIFICATION
* $Header: /cvsroot/pgsql/src/backend/optimizer/util/tlist.c,v 1.23 1999/02/03 21:16:54 momjian Exp $
* $Header: /cvsroot/pgsql/src/backend/optimizer/util/tlist.c,v 1.24 1999/02/07 03:02:21 tgl Exp $
*
*-------------------------------------------------------------------------
*/
@ -509,12 +509,13 @@ flatten_tlistentry(Node *tlistentry, List *flat_tlist)
else if (case_clause(tlistentry))
{
CaseExpr *cexpr = (CaseExpr *) tlistentry;
CaseWhen *cwhen;
List *elt = NIL;
foreach(elt, cexpr->args)
cwhen = (CaseWhen *)lfirst(elt);
{
CaseWhen *cwhen = (CaseWhen *)lfirst(elt);
cwhen->result = flatten_tlistentry(cwhen->result, flat_tlist);
}
cexpr->defresult = flatten_tlistentry(cexpr->defresult, flat_tlist);
return ((Node *) cexpr);