1. Vacuum is updated for MVCC.

2. Much faster btree tuples deletion in the case when first on page
   index tuple is deleted (no movement to the left page(s)).
3. Remember blkno of new root page in BTPageOpaque of
   left/right siblings when root page is splitted.

Author: vadim4o

src/backend/access/heap/heapam.c

@@ -7,7 +7,7 @@
  *
  *
  * IDENTIFICATION
- *	  $Header: /cvsroot/pgsql/src/backend/access/heap/heapam.c,v 1.41 1999/02/13 23:14:22 momjian Exp $
+ *	  $Header: /cvsroot/pgsql/src/backend/access/heap/heapam.c,v 1.42 1999/03/28 20:31:56 vadim Exp $
  *
  *
  * INTERFACE ROUTINES
@@ -1270,7 +1270,7 @@ heap_replace(Relation relation, ItemPointer otid, HeapTuple newtup,
 	newtup->t_data->t_cmin = GetCurrentCommandId();
 	StoreInvalidTransactionId(&(newtup->t_data->t_xmax));
 	newtup->t_data->t_infomask &= ~(HEAP_XACT_MASK);
-	newtup->t_data->t_infomask |= HEAP_XMAX_INVALID;
+	newtup->t_data->t_infomask |= (HEAP_XMAX_INVALID | HEAP_UPDATED);
 
 	/* logically delete old item */
 	TransactionIdStore(GetCurrentTransactionId(), &(oldtup.t_data->t_xmax));

src/backend/access/nbtree/nbtinsert.c

@@ -7,7 +7,7 @@
  *
  *
  * IDENTIFICATION
- *	  $Header: /cvsroot/pgsql/src/backend/access/nbtree/nbtinsert.c,v 1.35 1999/02/13 23:14:34 momjian Exp $
+ *	  $Header: /cvsroot/pgsql/src/backend/access/nbtree/nbtinsert.c,v 1.36 1999/03/28 20:31:56 vadim Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -853,6 +853,8 @@ _bt_split(Relation rel, Buffer buf, OffsetNumber firstright)
 	lopaque->btpo_next = BufferGetBlockNumber(rbuf);
 	ropaque->btpo_next = oopaque->btpo_next;
 
+	lopaque->btpo_parent = ropaque->btpo_parent = oopaque->btpo_parent;
+
 	/*
 	 * If the page we're splitting is not the rightmost page at its level
 	 * in the tree, then the first (0) entry on the page is the high key
@@ -1103,6 +1105,7 @@ _bt_newroot(Relation rel, Buffer lbuf, Buffer rbuf)
 	/* get a new root page */
 	rootbuf = _bt_getbuf(rel, P_NEW, BT_WRITE);
 	rootpage = BufferGetPage(rootbuf);
+	rootbknum = BufferGetBlockNumber(rootbuf);
 	_bt_pageinit(rootpage, BufferGetPageSize(rootbuf));
 
 	/* set btree special data */
@@ -1119,6 +1122,10 @@ _bt_newroot(Relation rel, Buffer lbuf, Buffer rbuf)
 	lpage = BufferGetPage(lbuf);
 	rpage = BufferGetPage(rbuf);
 
+	((BTPageOpaque) PageGetSpecialPointer(lpage))->btpo_parent = 
+	((BTPageOpaque) PageGetSpecialPointer(rpage))->btpo_parent = 
+		rootbknum;
+
 	/*
 	 * step over the high key on the left page while building the left
 	 * page pointer.
@@ -1156,11 +1163,13 @@ _bt_newroot(Relation rel, Buffer lbuf, Buffer rbuf)
 	pfree(new_item);
 
 	/* write and let go of the root buffer */
-	rootbknum = BufferGetBlockNumber(rootbuf);
 	_bt_wrtbuf(rel, rootbuf);
 
 	/* update metadata page with new root block number */
 	_bt_metaproot(rel, rootbknum, 0);
+
+	WriteNoReleaseBuffer(lbuf);
+	WriteNoReleaseBuffer(rbuf);
 }
 
 /*
@@ -1559,6 +1568,7 @@ _bt_shift(Relation rel, Buffer buf, BTStack stack, int keysz,
 		pageop->btpo_flags |= BTP_CHAIN;
 	pageop->btpo_prev = npageop->btpo_prev;		/* restore prev */
 	pageop->btpo_next = nbknum; /* next points to the new page */
+	pageop->btpo_parent = npageop->btpo_parent;
 
 	/* init shifted page opaque */
 	npageop->btpo_prev = bknum = BufferGetBlockNumber(buf);

src/backend/access/nbtree/nbtpage.c

@@ -8,7 +8,7 @@
  *
  *
  * IDENTIFICATION
- *	  $Header: /cvsroot/pgsql/src/backend/access/nbtree/nbtpage.c,v 1.18 1999/02/13 23:14:35 momjian Exp $
+ *	  $Header: /cvsroot/pgsql/src/backend/access/nbtree/nbtpage.c,v 1.19 1999/03/28 20:31:57 vadim Exp $
  *
  *	NOTES
  *	   Postgres btree pages look like ordinary relation pages.	The opaque
@@ -421,6 +421,8 @@ _bt_pageinit(Page page, Size size)
 	MemSet(page, 0, size);
 
 	PageInit(page, size, sizeof(BTPageOpaqueData));
+	((BTPageOpaque) PageGetSpecialPointer(page))->btpo_parent = 
+		InvalidBlockNumber;
 }
 
 /*

src/backend/access/nbtree/nbtree.c

@@ -8,7 +8,7 @@
  *
  *
  * IDENTIFICATION
- *	  $Header: /cvsroot/pgsql/src/backend/access/nbtree/nbtree.c,v 1.36 1999/02/21 03:48:27 scrappy Exp $
+ *	  $Header: /cvsroot/pgsql/src/backend/access/nbtree/nbtree.c,v 1.37 1999/03/28 20:31:58 vadim Exp $
  *
  * NOTES
  *	  This file contains only the public interface routines.
@@ -372,11 +372,6 @@ btinsert(Relation rel, Datum *datum, char *nulls, ItemPointer ht_ctid, Relation
 	pfree(btitem);
 	pfree(itup);
 
-#ifdef NOT_USED
-	/* adjust any active scans that will be affected by this insertion */
-	_bt_adjscans(rel, &(res->pointerData), BT_INSERT);
-#endif
-
 	return res;
 }
 
@@ -396,15 +391,9 @@ btgettuple(IndexScanDesc scan, ScanDirection dir)
 
 	if (ItemPointerIsValid(&(scan->currentItemData)))
 	{
-
 		/*
-		 * Now we don't adjust scans on insertion (comments in
-		 * nbtscan.c:_bt_scandel()) and I hope that we will unlock current
-		 * index page before leaving index in LLL: this means that current
-		 * index tuple could be moved right before we get here and we have
-		 * to restore our scan position. We save heap TID pointed by
-		 * current index tuple and use it. This will work untill we start
-		 * to re-use (move heap tuples) without vacuum... - vadim 07/29/98
+		 * Restore scan position using heap TID returned 
+		 * by previous call to btgettuple().
 		 */
 		_bt_restscan(scan);
 		res = _bt_next(scan, dir);
@@ -612,16 +601,12 @@ void
 btdelete(Relation rel, ItemPointer tid)
 {
 	/* adjust any active scans that will be affected by this deletion */
-	_bt_adjscans(rel, tid, BT_DELETE);
+	_bt_adjscans(rel, tid);
 
 	/* delete the data from the page */
 	_bt_pagedel(rel, tid);
 }
 
-/*
- * Reasons are in btgettuple... We have to find index item that
- * points to heap tuple returned by previous call to btgettuple().
- */
 static void
 _bt_restscan(IndexScanDesc scan)
 {
@@ -637,6 +622,20 @@ _bt_restscan(IndexScanDesc scan)
 	BTItem		item;
 	BlockNumber blkno;
 
+	/*
+	 * We use this as flag when first index tuple on page
+	 * is deleted but we do not move left (this would
+	 * slowdown vacuum) - so we set current->ip_posid
+	 * before first index tuple on the current page
+	 * (_bt_step will move it right)...
+	 */
+	if (!ItemPointerIsValid(&target))
+	{
+		ItemPointerSetOffsetNumber(&(scan->currentItemData), 
+			OffsetNumberPrev(P_RIGHTMOST(opaque) ? P_HIKEY : P_FIRSTKEY));
+		return;
+	}
+
 	if (maxoff >= offnum)
 	{