Replace non-idiomatic nconc(x, lcons(y, NIL)) with lappend(x, y).
This commit is contained in:
parent
dec354ca97
commit
944d3c395e
|
@ -5,7 +5,7 @@
|
|||
*
|
||||
* Copyright (c) 1994, Regents of the University of California
|
||||
*
|
||||
* $Id: geqo_eval.c,v 1.30 1999/02/14 04:56:45 momjian Exp $
|
||||
* $Id: geqo_eval.c,v 1.31 1999/02/15 02:04:58 tgl Exp $
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
|
@ -337,24 +337,21 @@ new_join_tlist(List *tlist,
|
|||
{
|
||||
int resdomno = first_resdomno - 1;
|
||||
TargetEntry *xtl = NULL;
|
||||
List *temp_node = NIL;
|
||||
List *t_list = NIL;
|
||||
List *i = NIL;
|
||||
List *join_list = NIL;
|
||||
bool in_final_tlist = false;
|
||||
|
||||
|
||||
foreach(i, tlist)
|
||||
{
|
||||
xtl = lfirst(i);
|
||||
/* XXX surely this is wrong? join_list is never changed? tgl 2/99 */
|
||||
in_final_tlist = (join_list == NIL);
|
||||
if (in_final_tlist)
|
||||
{
|
||||
resdomno += 1;
|
||||
temp_node = lcons(create_tl_element(get_expr(xtl),
|
||||
resdomno),
|
||||
NIL);
|
||||
t_list = nconc(t_list, temp_node);
|
||||
t_list = lappend(t_list,
|
||||
create_tl_element(get_expr(xtl), resdomno));
|
||||
}
|
||||
}
|
||||
|
||||
|
@ -590,7 +587,6 @@ static List *
|
|||
geqo_final_join_rels(List *join_rel_list)
|
||||
{
|
||||
List *xrel = NIL;
|
||||
List *temp = NIL;
|
||||
List *t_list = NIL;
|
||||
|
||||
/*
|
||||
|
@ -615,8 +611,7 @@ geqo_final_join_rels(List *join_rel_list)
|
|||
}
|
||||
if (final)
|
||||
{
|
||||
temp = lcons(rel, NIL);
|
||||
t_list = nconc(t_list, temp);
|
||||
t_list = lappend(t_list, rel);
|
||||
}
|
||||
}
|
||||
|
||||
|
|
|
@ -5,7 +5,7 @@
|
|||
*
|
||||
* Copyright (c) 1994, Regents of the University of California
|
||||
*
|
||||
* $Id: geqo_paths.c,v 1.20 1999/02/13 23:16:11 momjian Exp $
|
||||
* $Id: geqo_paths.c,v 1.21 1999/02/15 02:04:58 tgl Exp $
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
|
@ -66,10 +66,9 @@ geqo_prune_rels(List *rel_list)
|
|||
static List *
|
||||
geqo_prune_rel(RelOptInfo *rel, List *other_rels)
|
||||
{
|
||||
List *i = NIL;
|
||||
List *t_list = NIL;
|
||||
List *temp_node = NIL;
|
||||
RelOptInfo *other_rel = (RelOptInfo *) NULL;
|
||||
List *i;
|
||||
RelOptInfo *other_rel;
|
||||
|
||||
foreach(i, other_rels)
|
||||
{
|
||||
|
@ -79,12 +78,10 @@ geqo_prune_rel(RelOptInfo *rel, List *other_rels)
|
|||
rel->pathlist = add_pathlist(rel,
|
||||
rel->pathlist,
|
||||
other_rel->pathlist);
|
||||
t_list = nconc(t_list, NIL); /* XXX is this right ? */
|
||||
}
|
||||
else
|
||||
{
|
||||
temp_node = lcons(other_rel, NIL);
|
||||
t_list = nconc(t_list, temp_node);
|
||||
t_list = lappend(t_list, other_rel);
|
||||
}
|
||||
}
|
||||
return t_list;
|
||||
|
|
|
@ -8,7 +8,7 @@
|
|||
*
|
||||
*
|
||||
* IDENTIFICATION
|
||||
* $Header: /cvsroot/pgsql/src/backend/optimizer/path/indxpath.c,v 1.45 1999/02/15 01:06:57 tgl Exp $
|
||||
* $Header: /cvsroot/pgsql/src/backend/optimizer/path/indxpath.c,v 1.46 1999/02/15 02:04:55 tgl Exp $
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
|
@ -170,14 +170,13 @@ find_index_paths(Query *root,
|
|||
|
||||
if (joinclausegroups != NIL)
|
||||
{
|
||||
List *new_join_paths = create_index_paths(root, rel,
|
||||
index,
|
||||
joinclausegroups,
|
||||
true);
|
||||
List *innerjoin_paths = index_innerjoin(root, rel, joinclausegroups, index);
|
||||
|
||||
rel->innerjoin = nconc(rel->innerjoin, innerjoin_paths);
|
||||
joinpaths = new_join_paths;
|
||||
joinpaths = create_index_paths(root, rel,
|
||||
index,
|
||||
joinclausegroups,
|
||||
true);
|
||||
rel->innerjoin = nconc(rel->innerjoin,
|
||||
index_innerjoin(root, rel,
|
||||
joinclausegroups, index));
|
||||
}
|
||||
|
||||
/*
|
||||
|
@ -1360,7 +1359,6 @@ create_index_paths(Query *root,
|
|||
foreach(i, clausegroup_list)
|
||||
{
|
||||
RestrictInfo *restrictinfo;
|
||||
List *temp_node = NIL;
|
||||
bool temp = true;
|
||||
|
||||
clausegroup = lfirst(i);
|
||||
|
@ -1377,8 +1375,7 @@ create_index_paths(Query *root,
|
|||
if (!join || temp)
|
||||
{ /* restriction, ordering scan */
|
||||
temp_path = create_index_path(root, rel, index, clausegroup, join);
|
||||
temp_node = lcons(temp_path, NIL);
|
||||
ip_list = nconc(ip_list, temp_node);
|
||||
ip_list = lappend(ip_list, temp_path);
|
||||
}
|
||||
}
|
||||
return ip_list;
|
||||
|
|
|
@ -7,7 +7,7 @@
|
|||
*
|
||||
*
|
||||
* IDENTIFICATION
|
||||
* $Header: /cvsroot/pgsql/src/backend/optimizer/path/joinpath.c,v 1.25 1999/02/14 05:27:12 momjian Exp $
|
||||
* $Header: /cvsroot/pgsql/src/backend/optimizer/path/joinpath.c,v 1.26 1999/02/15 02:04:57 tgl Exp $
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
|
@ -422,7 +422,6 @@ match_unsorted_inner(RelOptInfo *joinrel,
|
|||
{
|
||||
Path *innerpath = (Path *) NULL;
|
||||
List *mp_list = NIL;
|
||||
List *temp_node = NIL;
|
||||
PathOrder *innerpath_ordering = NULL;
|
||||
Cost temp1 = 0.0;
|
||||
bool temp2 = false;
|
||||
|
@ -482,7 +481,8 @@ match_unsorted_inner(RelOptInfo *joinrel,
|
|||
joinrel->targetlist,
|
||||
clauses);
|
||||
|
||||
temp_node = lcons(create_mergejoin_path(joinrel,
|
||||
mp_list = lappend(mp_list,
|
||||
create_mergejoin_path(joinrel,
|
||||
outerrel->size,
|
||||
innerrel->size,
|
||||
outerrel->width,
|
||||
|
@ -493,10 +493,7 @@ match_unsorted_inner(RelOptInfo *joinrel,
|
|||
xmergeinfo->m_ordering,
|
||||
matchedJoinClauses,
|
||||
outerkeys,
|
||||
NIL),
|
||||
NIL);
|
||||
|
||||
mp_list = nconc(mp_list, temp_node);
|
||||
NIL));
|
||||
}
|
||||
}
|
||||
}
|
||||
|
|
|
@ -7,7 +7,7 @@
|
|||
*
|
||||
*
|
||||
* IDENTIFICATION
|
||||
* $Header: /cvsroot/pgsql/src/backend/optimizer/path/joinrels.c,v 1.21 1999/02/14 04:56:47 momjian Exp $
|
||||
* $Header: /cvsroot/pgsql/src/backend/optimizer/path/joinrels.c,v 1.22 1999/02/15 02:04:57 tgl Exp $
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
|
@ -165,7 +165,6 @@ find_clauseless_joins(RelOptInfo *outer_rel, List *inner_rels)
|
|||
{
|
||||
RelOptInfo *inner_rel;
|
||||
List *t_list = NIL;
|
||||
List *temp_node = NIL;
|
||||
List *i = NIL;
|
||||
|
||||
foreach(i, inner_rels)
|
||||
|
@ -173,11 +172,10 @@ find_clauseless_joins(RelOptInfo *outer_rel, List *inner_rels)
|
|||
inner_rel = (RelOptInfo *) lfirst(i);
|
||||
if (nonoverlap_rels(inner_rel, outer_rel))
|
||||
{
|
||||
temp_node = lcons(init_join_rel(outer_rel,
|
||||
inner_rel,
|
||||
(JoinInfo *) NULL),
|
||||
NIL);
|
||||
t_list = nconc(t_list, temp_node);
|
||||
t_list = lappend(t_list,
|
||||
init_join_rel(outer_rel,
|
||||
inner_rel,
|
||||
(JoinInfo *) NULL));
|
||||
}
|
||||
}
|
||||
|
||||
|
@ -278,24 +276,21 @@ new_join_tlist(List *tlist,
|
|||
{
|
||||
int resdomno = first_resdomno - 1;
|
||||
TargetEntry *xtl = NULL;
|
||||
List *temp_node = NIL;
|
||||
List *t_list = NIL;
|
||||
List *i = NIL;
|
||||
List *join_list = NIL;
|
||||
bool in_final_tlist = false;
|
||||
|
||||
|
||||
foreach(i, tlist)
|
||||
{
|
||||
xtl = lfirst(i);
|
||||
/* XXX surely this is wrong? join_list is never changed? tgl 2/99 */
|
||||
in_final_tlist = (join_list == NIL);
|
||||
if (in_final_tlist)
|
||||
{
|
||||
resdomno += 1;
|
||||
temp_node = lcons(create_tl_element(get_expr(xtl),
|
||||
resdomno),
|
||||
NIL);
|
||||
t_list = nconc(t_list, temp_node);
|
||||
t_list = lappend(t_list,
|
||||
create_tl_element(get_expr(xtl), resdomno));
|
||||
}
|
||||
}
|
||||
|
||||
|
@ -479,7 +474,6 @@ List *
|
|||
final_join_rels(List *join_rel_list)
|
||||
{
|
||||
List *xrel = NIL;
|
||||
List *temp = NIL;
|
||||
List *t_list = NIL;
|
||||
|
||||
/*
|
||||
|
@ -504,8 +498,7 @@ final_join_rels(List *join_rel_list)
|
|||
}
|
||||
if (final)
|
||||
{
|
||||
temp = lcons(rel, NIL);
|
||||
t_list = nconc(t_list, temp);
|
||||
t_list = lappend(t_list, rel);
|
||||
}
|
||||
}
|
||||
|
||||
|
|
|
@ -7,7 +7,7 @@
|
|||
*
|
||||
*
|
||||
* IDENTIFICATION
|
||||
* $Header: /cvsroot/pgsql/src/backend/optimizer/path/Attic/joinutils.c,v 1.20 1999/02/13 23:16:19 momjian Exp $
|
||||
* $Header: /cvsroot/pgsql/src/backend/optimizer/path/Attic/joinutils.c,v 1.21 1999/02/15 02:04:57 tgl Exp $
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
|
@ -410,11 +410,10 @@ new_matching_subkeys(Var *subkey,
|
|||
List *join_rel_tlist,
|
||||
List *joinclauses)
|
||||
{
|
||||
Expr *joinclause = NULL;
|
||||
List *t_list = NIL;
|
||||
List *temp = NIL;
|
||||
List *i = NIL;
|
||||
Expr *tlist_other_var = (Expr *) NULL;
|
||||
Expr *joinclause;
|
||||
List *i;
|
||||
Expr *tlist_other_var;
|
||||
|
||||
foreach(i, joinclauses)
|
||||
{
|
||||
|
@ -436,8 +435,7 @@ new_matching_subkeys(Var *subkey,
|
|||
* am not sure of this.
|
||||
*/
|
||||
|
||||
temp = lcons(tlist_other_var, NIL);
|
||||
t_list = nconc(t_list, temp);
|
||||
t_list = lappend(t_list, tlist_other_var);
|
||||
}
|
||||
}
|
||||
return t_list;
|
||||
|
|
|
@ -7,7 +7,7 @@
|
|||
*
|
||||
*
|
||||
* IDENTIFICATION
|
||||
* $Header: /cvsroot/pgsql/src/backend/optimizer/plan/createplan.c,v 1.47 1999/02/15 01:06:58 tgl Exp $
|
||||
* $Header: /cvsroot/pgsql/src/backend/optimizer/plan/createplan.c,v 1.48 1999/02/15 02:04:55 tgl Exp $
|
||||
*
|
||||
*-------------------------------------------------------------------------
|
||||
*/
|
||||
|
@ -385,8 +385,7 @@ create_indexscan_node(IndexPath *best_path,
|
|||
lcons(index_clause, NIL));
|
||||
|
||||
if (lossy)
|
||||
qpqual = nconc(qpqual,
|
||||
lcons((List *) copyObject(index_clause), NIL));
|
||||
qpqual = lappend(qpqual, (List *) copyObject(index_clause));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
@ -1200,8 +1199,7 @@ generate_fjoin(List *tlist)
|
|||
inner,
|
||||
results,
|
||||
alwaysDone);
|
||||
tempList = lcons(fjoinNode, NIL);
|
||||
tempList = nconc(tempList, fjoinList);
|
||||
tempList = lcons(fjoinNode, fjoinList);
|
||||
newTlist = lappend(newTlist, tempList);
|
||||
}
|
||||
return newTlist;
|
||||
|
|
Loading…
Reference in New Issue