if there were no deletions to do.
*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/commands/vacuum.c,v 1.205 2001/07/15 22:48:17 tgl Exp $
+ * $Header: /cvsroot/pgsql/src/backend/commands/vacuum.c,v 1.206 2001/07/18 00:46:24 tgl Exp $
*
*-------------------------------------------------------------------------
*/
double num_tuples, int keep_tuples);
static void scan_index(Relation indrel, double num_tuples);
static bool tid_reaped(ItemPointer itemptr, void *state);
+static bool dummy_tid_reaped(ItemPointer itemptr, void *state);
static void vac_update_fsm(Relation onerel, VacPageList fraged_pages,
BlockNumber rel_pages);
static VacPage copy_vac_page(VacPage vacpage);
static void vpage_insert(VacPageList vacpagelist, VacPage vpnew);
-static bool is_partial_index(Relation indrel);
static void *vac_bsearch(const void *key, const void *base,
size_t nelem, size_t size,
int (*compar) (const void *, const void *));
/*
* scan_index() -- scan one index relation to update statistic.
+ *
+ * We use this when we have no deletions to do.
*/
static void
scan_index(Relation indrel, double num_tuples)
{
- RetrieveIndexResult res;
- IndexScanDesc iscan;
- BlockNumber nipages;
- double nitups;
+ IndexBulkDeleteResult *stats;
VacRUsage ru0;
vac_init_rusage(&ru0);
- /* walk through the entire index */
- iscan = index_beginscan(indrel, false, 0, (ScanKey) NULL);
- nitups = 0;
-
- while ((res = index_getnext(iscan, ForwardScanDirection))
- != (RetrieveIndexResult) NULL)
- {
- nitups += 1;
- pfree(res);
- }
+ /*
+ * Even though we're not planning to delete anything, use the
+ * ambulkdelete call, so that the scan happens within the index AM
+ * for more speed.
+ */
+ stats = index_bulk_delete(indrel, dummy_tid_reaped, NULL);
- index_endscan(iscan);
+ if (!stats)
+ return;
/* now update statistics in pg_class */
- nipages = RelationGetNumberOfBlocks(indrel);
- vac_update_relstats(RelationGetRelid(indrel), nipages, nitups, false);
+ vac_update_relstats(RelationGetRelid(indrel),
+ stats->num_pages, stats->num_index_tuples,
+ false);
elog(MESSAGE_LEVEL, "Index %s: Pages %u; Tuples %.0f.\n\t%s",
- RelationGetRelationName(indrel), nipages, nitups,
+ RelationGetRelationName(indrel),
+ stats->num_pages, stats->num_index_tuples,
vac_show_rusage(&ru0));
/*
* Check for tuple count mismatch. If the index is partial, then
* it's OK for it to have fewer tuples than the heap; else we got trouble.
*/
- if (nitups != num_tuples)
+ if (stats->num_index_tuples != num_tuples)
{
- if (nitups > num_tuples ||
- ! is_partial_index(indrel))
+ if (stats->num_index_tuples > num_tuples ||
+ ! vac_is_partial_index(indrel))
elog(NOTICE, "Index %s: NUMBER OF INDEX' TUPLES (%.0f) IS NOT THE SAME AS HEAP' (%.0f).\
\n\tRecreate the index.",
- RelationGetRelationName(indrel), nitups, num_tuples);
+ RelationGetRelationName(indrel),
+ stats->num_index_tuples, num_tuples);
}
+
+ pfree(stats);
}
/*
if (stats->num_index_tuples != num_tuples + keep_tuples)
{
if (stats->num_index_tuples > num_tuples + keep_tuples ||
- ! is_partial_index(indrel))
+ ! vac_is_partial_index(indrel))
elog(NOTICE, "Index %s: NUMBER OF INDEX' TUPLES (%.0f) IS NOT THE SAME AS HEAP' (%.0f).\
\n\tRecreate the index.",
RelationGetRelationName(indrel),
return true;
}
+/*
+ * Dummy version for scan_index.
+ */
+static bool
+dummy_tid_reaped(ItemPointer itemptr, void *state)
+{
+ return false;
+}
+
/*
* Update the shared Free Space Map with the info we now have about
* free space in the relation, discarding any old info the map may have.
}
-static bool
-is_partial_index(Relation indrel)
+/*
+ * Is an index partial (ie, could it contain fewer tuples than the heap?)
+ */
+bool
+vac_is_partial_index(Relation indrel)
{
bool result;
HeapTuple cachetuple;
ObjectIdGetDatum(RelationGetRelid(indrel)),
0, 0, 0);
if (!HeapTupleIsValid(cachetuple))
- elog(ERROR, "is_partial_index: index %u not found",
+ elog(ERROR, "vac_is_partial_index: index %u not found",
RelationGetRelid(indrel));
indexStruct = (Form_pg_index) GETSTRUCT(cachetuple);
*
*
* IDENTIFICATION
- * $Header: /cvsroot/pgsql/src/backend/commands/vacuumlazy.c,v 1.2 2001/07/15 22:48:17 tgl Exp $
+ * $Header: /cvsroot/pgsql/src/backend/commands/vacuumlazy.c,v 1.3 2001/07/18 00:46:25 tgl Exp $
*
*-------------------------------------------------------------------------
*/
static void lazy_scan_heap(Relation onerel, LVRelStats *vacrelstats,
Relation *Irel, int nindexes);
static void lazy_vacuum_heap(Relation onerel, LVRelStats *vacrelstats);
+static void lazy_scan_index(Relation indrel, LVRelStats *vacrelstats);
static void lazy_vacuum_index(Relation indrel, LVRelStats *vacrelstats);
static int lazy_vacuum_page(Relation onerel, BlockNumber blkno, Buffer buffer,
int tupindex, LVRelStats *vacrelstats);
static void lazy_record_free_space(LVRelStats *vacrelstats,
BlockNumber page, Size avail);
static bool lazy_tid_reaped(ItemPointer itemptr, void *state);
+static bool dummy_tid_reaped(ItemPointer itemptr, void *state);
static void lazy_update_fsm(Relation onerel, LVRelStats *vacrelstats);
static int vac_cmp_itemptr(const void *left, const void *right);
tups_vacuumed,
nkeep,
nunused;
+ bool did_vacuum_index = false;
int i;
VacRUsage ru0;
/* Remove index entries */
for (i = 0; i < nindexes; i++)
lazy_vacuum_index(Irel[i], vacrelstats);
+ did_vacuum_index = true;
/* Remove tuples from heap */
lazy_vacuum_heap(onerel, vacrelstats);
/* Forget the now-vacuumed tuples, and press on */
ReleaseBuffer(buf);
}
+ /* save stats for use later */
+ vacrelstats->rel_tuples = num_tuples;
+
/* If any tuples need to be deleted, perform final vacuum cycle */
/* XXX put a threshold on min nuber of tuples here? */
if (vacrelstats->num_dead_tuples > 0)
/* Remove tuples from heap */
lazy_vacuum_heap(onerel, vacrelstats);
}
-
- /* save stats for use later */
- vacrelstats->rel_tuples = num_tuples;
+ else if (! did_vacuum_index)
+ {
+ /* Scan indexes just to update pg_class statistics about them */
+ for (i = 0; i < nindexes; i++)
+ lazy_scan_index(Irel[i], vacrelstats);
+ }
elog(MESSAGE_LEVEL, "Pages %u: Changed %u, Empty %u; \
Tup %.0f: Vac %.0f, Keep %.0f, UnUsed %.0f.\n\tTotal %s",
return tupindex;
}
+/*
+ * lazy_scan_index() -- scan one index relation to update pg_class statistic.
+ *
+ * We use this when we have no deletions to do.
+ */
+static void
+lazy_scan_index(Relation indrel, LVRelStats *vacrelstats)
+{
+ IndexBulkDeleteResult *stats;
+ VacRUsage ru0;
+
+ vac_init_rusage(&ru0);
+
+ /*
+ * If the index is not partial, skip the scan, and just assume it
+ * has the same number of tuples as the heap.
+ */
+ if (! vac_is_partial_index(indrel))
+ {
+ vac_update_relstats(RelationGetRelid(indrel),
+ RelationGetNumberOfBlocks(indrel),
+ vacrelstats->rel_tuples,
+ false);
+ return;
+ }
+
+ /*
+ * If index is unsafe for concurrent access, must lock it;
+ * but a shared lock should be sufficient.
+ */
+ if (! indrel->rd_am->amconcurrent)
+ LockRelation(indrel, AccessShareLock);
+
+ /*
+ * Even though we're not planning to delete anything, use the
+ * ambulkdelete call, so that the scan happens within the index AM
+ * for more speed.
+ */
+ stats = index_bulk_delete(indrel, dummy_tid_reaped, NULL);
+
+ /*
+ * Release lock acquired above.
+ */
+ if (! indrel->rd_am->amconcurrent)
+ UnlockRelation(indrel, AccessShareLock);
+
+ if (!stats)
+ return;
+
+ /* now update statistics in pg_class */
+ vac_update_relstats(RelationGetRelid(indrel),
+ stats->num_pages, stats->num_index_tuples,
+ false);
+
+ elog(MESSAGE_LEVEL, "Index %s: Pages %u; Tuples %.0f.\n\t%s",
+ RelationGetRelationName(indrel),
+ stats->num_pages, stats->num_index_tuples,
+ vac_show_rusage(&ru0));
+
+ pfree(stats);
+}
+
/*
* lazy_vacuum_index() -- vacuum one index relation.
*
return (res != NULL);
}
+/*
+ * Dummy version for lazy_scan_index.
+ */
+static bool
+dummy_tid_reaped(ItemPointer itemptr, void *state)
+{
+ return false;
+}
+
/*
* Update the shared Free Space Map with the info we now have about
* free space in the relation, discarding any old info the map may have.
* Portions Copyright (c) 1996-2001, PostgreSQL Global Development Group
* Portions Copyright (c) 1994, Regents of the University of California
*
- * $Id: vacuum.h,v 1.38 2001/07/13 22:55:59 tgl Exp $
+ * $Id: vacuum.h,v 1.39 2001/07/18 00:46:25 tgl Exp $
*
*-------------------------------------------------------------------------
*/
BlockNumber num_pages,
double num_tuples,
bool hasindex);
+extern bool vac_is_partial_index(Relation indrel);
extern void vac_init_rusage(VacRUsage *ru0);
extern const char *vac_show_rusage(VacRUsage *ru0);