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

View File

@ -7,7 +7,7 @@
* *
* *
* IDENTIFICATION * 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)) else if (case_clause(tlistentry))
{ {
CaseExpr *cexpr = (CaseExpr *) tlistentry; CaseExpr *cexpr = (CaseExpr *) tlistentry;
CaseWhen *cwhen;
List *elt = NIL; List *elt = NIL;
foreach(elt, cexpr->args) foreach(elt, cexpr->args)
cwhen = (CaseWhen *)lfirst(elt); {
CaseWhen *cwhen = (CaseWhen *)lfirst(elt);
cwhen->result = flatten_tlistentry(cwhen->result, flat_tlist); cwhen->result = flatten_tlistentry(cwhen->result, flat_tlist);
}
cexpr->defresult = flatten_tlistentry(cexpr->defresult, flat_tlist); cexpr->defresult = flatten_tlistentry(cexpr->defresult, flat_tlist);
return ((Node *) cexpr); return ((Node *) cexpr);