]> granicus.if.org Git - postgresql/blobdiff - src/backend/access/nbtree/nbtutils.c
Report progress of CREATE INDEX operations
[postgresql] / src / backend / access / nbtree / nbtutils.c
index c00255567116e3b6f7bd8426eb32b2398c8d95d5..7e409d616fe401fa3843d2931b6e4eca9ab97099 100644 (file)
@@ -3,7 +3,7 @@
  * nbtutils.c
  *       Utility code for Postgres btree implementation.
  *
- * Portions Copyright (c) 1996-2011, PostgreSQL Global Development Group
+ * Portions Copyright (c) 1996-2019, PostgreSQL Global Development Group
  * Portions Copyright (c) 1994, Regents of the University of California
  *
  *
 #include "access/nbtree.h"
 #include "access/reloptions.h"
 #include "access/relscan.h"
+#include "commands/progress.h"
 #include "miscadmin.h"
 #include "utils/array.h"
+#include "utils/datum.h"
 #include "utils/lsyscache.h"
 #include "utils/memutils.h"
 #include "utils/rel.h"
@@ -37,18 +39,20 @@ typedef struct BTSortArrayContext
 static Datum _bt_find_extreme_element(IndexScanDesc scan, ScanKey skey,
                                                 StrategyNumber strat,
                                                 Datum *elems, int nelems);
-static int     _bt_sort_array_elements(IndexScanDesc scan, ScanKey skey,
+static int _bt_sort_array_elements(IndexScanDesc scan, ScanKey skey,
                                                bool reverse,
                                                Datum *elems, int nelems);
-static int _bt_compare_array_elements(const void *a, const void *b, void *arg);
+static int     _bt_compare_array_elements(const void *a, const void *b, void *arg);
 static bool _bt_compare_scankey_args(IndexScanDesc scan, ScanKey op,
                                                 ScanKey leftarg, ScanKey rightarg,
                                                 bool *result);
 static bool _bt_fix_scankey_strategy(ScanKey skey, int16 *indoption);
 static void _bt_mark_scankey_required(ScanKey skey);
 static bool _bt_check_rowcompare(ScanKey skey,
-                                        IndexTuple tuple, TupleDesc tupdesc,
+                                        IndexTuple tuple, int tupnatts, TupleDesc tupdesc,
                                         ScanDirection dir, bool *continuescan);
+static int _bt_keep_natts(Relation rel, IndexTuple lastleft,
+                          IndexTuple firstright, BTScanInsert itup_key);
 
 
 /*
@@ -56,24 +60,60 @@ static bool _bt_check_rowcompare(ScanKey skey,
  *             Build an insertion scan key that contains comparison data from itup
  *             as well as comparator routines appropriate to the key datatypes.
  *
- *             The result is intended for use with _bt_compare().
+ *             When itup is a non-pivot tuple, the returned insertion scan key is
+ *             suitable for finding a place for it to go on the leaf level.  Pivot
+ *             tuples can be used to re-find leaf page with matching high key, but
+ *             then caller needs to set scan key's pivotsearch field to true.  This
+ *             allows caller to search for a leaf page with a matching high key,
+ *             which is usually to the left of the first leaf page a non-pivot match
+ *             might appear on.
+ *
+ *             The result is intended for use with _bt_compare() and _bt_truncate().
+ *             Callers that don't need to fill out the insertion scankey arguments
+ *             (e.g. they use an ad-hoc comparison routine, or only need a scankey
+ *             for _bt_truncate()) can pass a NULL index tuple.  The scankey will
+ *             be initialized as if an "all truncated" pivot tuple was passed
+ *             instead.
+ *
+ *             Note that we may occasionally have to share lock the metapage to
+ *             determine whether or not the keys in the index are expected to be
+ *             unique (i.e. if this is a "heapkeyspace" index).  We assume a
+ *             heapkeyspace index when caller passes a NULL tuple, allowing index
+ *             build callers to avoid accessing the non-existent metapage.
  */
-ScanKey
+BTScanInsert
 _bt_mkscankey(Relation rel, IndexTuple itup)
 {
+       BTScanInsert key;
        ScanKey         skey;
        TupleDesc       itupdesc;
-       int                     natts;
+       int                     indnkeyatts;
        int16      *indoption;
+       int                     tupnatts;
        int                     i;
 
        itupdesc = RelationGetDescr(rel);
-       natts = RelationGetNumberOfAttributes(rel);
+       indnkeyatts = IndexRelationGetNumberOfKeyAttributes(rel);
        indoption = rel->rd_indoption;
+       tupnatts = itup ? BTreeTupleGetNAtts(itup, rel) : 0;
 
-       skey = (ScanKey) palloc(natts * sizeof(ScanKeyData));
+       Assert(tupnatts <= IndexRelationGetNumberOfAttributes(rel));
 
-       for (i = 0; i < natts; i++)
+       /*
+        * We'll execute search using scan key constructed on key columns.
+        * Truncated attributes and non-key attributes are omitted from the final
+        * scan key.
+        */
+       key = palloc(offsetof(BTScanInsertData, scankeys) +
+                                sizeof(ScanKeyData) * indnkeyatts);
+       key->heapkeyspace = itup == NULL || _bt_heapkeyspace(rel);
+       key->nextkey = false;
+       key->pivotsearch = false;
+       key->keysz = Min(indnkeyatts, tupnatts);
+       key->scantid = key->heapkeyspace && itup ?
+               BTreeTupleGetHeapTID(itup) : NULL;
+       skey = key->scankeys;
+       for (i = 0; i < indnkeyatts; i++)
        {
                FmgrInfo   *procinfo;
                Datum           arg;
@@ -85,56 +125,20 @@ _bt_mkscankey(Relation rel, IndexTuple itup)
                 * comparison can be needed.
                 */
                procinfo = index_getprocinfo(rel, i + 1, BTORDER_PROC);
-               arg = index_getattr(itup, i + 1, itupdesc, &null);
-               flags = (null ? SK_ISNULL : 0) | (indoption[i] << SK_BT_INDOPTION_SHIFT);
-               ScanKeyEntryInitializeWithInfo(&skey[i],
-                                                                          flags,
-                                                                          (AttrNumber) (i + 1),
-                                                                          InvalidStrategy,
-                                                                          InvalidOid,
-                                                                          rel->rd_indcollation[i],
-                                                                          procinfo,
-                                                                          arg);
-       }
-
-       return skey;
-}
-
-/*
- * _bt_mkscankey_nodata
- *             Build an insertion scan key that contains 3-way comparator routines
- *             appropriate to the key datatypes, but no comparison data.  The
- *             comparison data ultimately used must match the key datatypes.
- *
- *             The result cannot be used with _bt_compare(), unless comparison
- *             data is first stored into the key entries.      Currently this
- *             routine is only called by nbtsort.c and tuplesort.c, which have
- *             their own comparison routines.
- */
-ScanKey
-_bt_mkscankey_nodata(Relation rel)
-{
-       ScanKey         skey;
-       int                     natts;
-       int16      *indoption;
-       int                     i;
-
-       natts = RelationGetNumberOfAttributes(rel);
-       indoption = rel->rd_indoption;
-
-       skey = (ScanKey) palloc(natts * sizeof(ScanKeyData));
-
-       for (i = 0; i < natts; i++)
-       {
-               FmgrInfo   *procinfo;
-               int                     flags;
 
                /*
-                * We can use the cached (default) support procs since no cross-type
-                * comparison can be needed.
+                * Key arguments built from truncated attributes (or when caller
+                * provides no tuple) are defensively represented as NULL values. They
+                * should never be used.
                 */
-               procinfo = index_getprocinfo(rel, i + 1, BTORDER_PROC);
-               flags = SK_ISNULL | (indoption[i] << SK_BT_INDOPTION_SHIFT);
+               if (i < tupnatts)
+                       arg = index_getattr(itup, i + 1, itupdesc, &null);
+               else
+               {
+                       arg = (Datum) 0;
+                       null = true;
+               }
+               flags = (null ? SK_ISNULL : 0) | (indoption[i] << SK_BT_INDOPTION_SHIFT);
                ScanKeyEntryInitializeWithInfo(&skey[i],
                                                                           flags,
                                                                           (AttrNumber) (i + 1),
@@ -142,19 +146,10 @@ _bt_mkscankey_nodata(Relation rel)
                                                                           InvalidOid,
                                                                           rel->rd_indcollation[i],
                                                                           procinfo,
-                                                                          (Datum) 0);
+                                                                          arg);
        }
 
-       return skey;
-}
-
-/*
- * free a scan key made by either _bt_mkscankey or _bt_mkscankey_nodata.
- */
-void
-_bt_freeskey(ScanKey skey)
-{
-       pfree(skey);
+       return key;
 }
 
 /*
@@ -227,15 +222,13 @@ _bt_preprocess_array_keys(IndexScanDesc scan)
        }
 
        /*
-        * Make a scan-lifespan context to hold array-associated data, or reset
-        * it if we already have one from a previous rescan cycle.
+        * Make a scan-lifespan context to hold array-associated data, or reset it
+        * if we already have one from a previous rescan cycle.
         */
        if (so->arrayContext == NULL)
                so->arrayContext = AllocSetContextCreate(CurrentMemoryContext,
-                                                                                                "BTree Array Context",
-                                                                                                ALLOCSET_SMALL_MINSIZE,
-                                                                                                ALLOCSET_SMALL_INITSIZE,
-                                                                                                ALLOCSET_SMALL_MAXSIZE);
+                                                                                                "BTree array context",
+                                                                                                ALLOCSET_SMALL_SIZES);
        else
                MemoryContextReset(so->arrayContext);
 
@@ -387,9 +380,10 @@ _bt_find_extreme_element(IndexScanDesc scan, ScanKey skey,
        /*
         * Look up the appropriate comparison operator in the opfamily.
         *
-        * Note: it's possible that this would fail, if the opfamily is incomplete,
-        * but it seems quite unlikely that an opfamily would omit non-cross-type
-        * comparison operators for any datatype that it supports at all.
+        * Note: it's possible that this would fail, if the opfamily is
+        * incomplete, but it seems quite unlikely that an opfamily would omit
+        * non-cross-type comparison operators for any datatype that it supports
+        * at all.
         */
        cmp_op = get_opfamily_member(rel->rd_opfamily[skey->sk_attno - 1],
                                                                 elemtype,
@@ -455,9 +449,10 @@ _bt_sort_array_elements(IndexScanDesc scan, ScanKey skey,
        /*
         * Look up the appropriate comparison function in the opfamily.
         *
-        * Note: it's possible that this would fail, if the opfamily is incomplete,
-        * but it seems quite unlikely that an opfamily would omit non-cross-type
-        * support functions for any datatype that it supports at all.
+        * Note: it's possible that this would fail, if the opfamily is
+        * incomplete, but it seems quite unlikely that an opfamily would omit
+        * non-cross-type support functions for any datatype that it supports at
+        * all.
         */
        cmp_proc = get_opfamily_proc(rel->rd_opfamily[skey->sk_attno - 1],
                                                                 elemtype,
@@ -507,7 +502,7 @@ _bt_compare_array_elements(const void *a, const void *b, void *arg)
                                                                                          cxt->collation,
                                                                                          da, db));
        if (cxt->reverse)
-               compare = -compare;
+               INVERT_COMPARE_RESULT(compare);
        return compare;
 }
 
@@ -540,8 +535,8 @@ _bt_start_array_keys(IndexScanDesc scan, ScanDirection dir)
 /*
  * _bt_advance_array_keys() -- Advance to next set of array elements
  *
- * Returns TRUE if there is another set of values to consider, FALSE if not.
- * On TRUE result, the scankeys are initialized with the next set of values.
+ * Returns true if there is another set of values to consider, false if not.
+ * On true result, the scankeys are initialized with the next set of values.
  */
 bool
 _bt_advance_array_keys(IndexScanDesc scan, ScanDirection dir)
@@ -590,9 +585,72 @@ _bt_advance_array_keys(IndexScanDesc scan, ScanDirection dir)
                        break;
        }
 
+       /* advance parallel scan */
+       if (scan->parallel_scan != NULL)
+               _bt_parallel_advance_array_keys(scan);
+
        return found;
 }
 
+/*
+ * _bt_mark_array_keys() -- Handle array keys during btmarkpos
+ *
+ * Save the current state of the array keys as the "mark" position.
+ */
+void
+_bt_mark_array_keys(IndexScanDesc scan)
+{
+       BTScanOpaque so = (BTScanOpaque) scan->opaque;
+       int                     i;
+
+       for (i = 0; i < so->numArrayKeys; i++)
+       {
+               BTArrayKeyInfo *curArrayKey = &so->arrayKeys[i];
+
+               curArrayKey->mark_elem = curArrayKey->cur_elem;
+       }
+}
+
+/*
+ * _bt_restore_array_keys() -- Handle array keys during btrestrpos
+ *
+ * Restore the array keys to where they were when the mark was set.
+ */
+void
+_bt_restore_array_keys(IndexScanDesc scan)
+{
+       BTScanOpaque so = (BTScanOpaque) scan->opaque;
+       bool            changed = false;
+       int                     i;
+
+       /* Restore each array key to its position when the mark was set */
+       for (i = 0; i < so->numArrayKeys; i++)
+       {
+               BTArrayKeyInfo *curArrayKey = &so->arrayKeys[i];
+               ScanKey         skey = &so->arrayKeyData[curArrayKey->scan_key];
+               int                     mark_elem = curArrayKey->mark_elem;
+
+               if (curArrayKey->cur_elem != mark_elem)
+               {
+                       curArrayKey->cur_elem = mark_elem;
+                       skey->sk_argument = curArrayKey->elem_values[mark_elem];
+                       changed = true;
+               }
+       }
+
+       /*
+        * If we changed any keys, we must redo _bt_preprocess_keys.  That might
+        * sound like overkill, but in cases with multiple keys per index column
+        * it seems necessary to do the full set of pushups.
+        */
+       if (changed)
+       {
+               _bt_preprocess_keys(scan);
+               /* The mark should have been set on a consistent set of keys... */
+               Assert(so->qual_ok);
+       }
+}
+
 
 /*
  *     _bt_preprocess_keys() -- Preprocess scan keys
@@ -609,14 +667,14 @@ _bt_advance_array_keys(IndexScanDesc scan, ScanDirection dir)
  * so that the index sorts in the desired direction.
  *
  * One key purpose of this routine is to discover which scan keys must be
- * satisfied to continue the scan. It also attempts to eliminate redundant
+ * satisfied to continue the scan.  It also attempts to eliminate redundant
  * keys and detect contradictory keys.  (If the index opfamily provides
  * incomplete sets of cross-type operators, we may fail to detect redundant
  * or contradictory keys, but we can survive that.)
  *
  * The output keys must be sorted by index attribute.  Presently we expect
  * (but verify) that the input keys are already so sorted --- this is done
- * by group_clauses_by_indexkey() in indxpath.c.  Some reordering of the keys
+ * by match_clauses_to_index() in indxpath.c.  Some reordering of the keys
  * within each attribute may be done as a byproduct of the processing here,
  * but no other code depends on that.
  *
@@ -641,13 +699,13 @@ _bt_advance_array_keys(IndexScanDesc scan, ScanDirection dir)
  * that's the only one returned.  (So, we return either a single = key,
  * or one or two boundary-condition keys for each attr.)  However, if we
  * cannot compare two keys for lack of a suitable cross-type operator,
- * we cannot eliminate either. If there are two such keys of the same
+ * we cannot eliminate either.  If there are two such keys of the same
  * operator strategy, the second one is just pushed into the output array
  * without further processing here.  We may also emit both >/>= or both
  * </<= keys if we can't compare them.  The logic about required keys still
  * works if we don't eliminate redundant keys.
  *
- * Note that the reason we need direction-sensitive required-key flags is
+ * Note that one reason we need direction-sensitive required-key flags is
  * precisely that we may not be able to eliminate redundant keys.  Suppose
  * we have "x > 4::int AND x > 10::bigint", and we are unable to determine
  * which key is more restrictive for lack of a suitable cross-type operator.
@@ -655,10 +713,13 @@ _bt_advance_array_keys(IndexScanDesc scan, ScanDirection dir)
  * positioning with.  If it picks x > 4, then the x > 10 condition will fail
  * until we reach index entries > 10; but we can't stop the scan just because
  * x > 10 is failing.  On the other hand, if we are scanning backwards, then
- * failure of either key is indeed enough to stop the scan.
+ * failure of either key is indeed enough to stop the scan.  (In general, when
+ * inequality keys are present, the initial-positioning code only promises to
+ * position before the first possible match, not exactly at the first match,
+ * for a forward scan; or after the last match for a backward scan.)
  *
  * As a byproduct of this work, we can detect contradictory quals such
- * as "x = 1 AND x > 2".  If we see that, we return so->qual_ok = FALSE,
+ * as "x = 1 AND x > 2".  If we see that, we return so->qual_ok = false,
  * indicating the scan need not be run at all since no tuples can match.
  * (In this case we do not bother completing the output key array!)
  * Again, missing cross-type operators might cause us to fail to prove the
@@ -778,8 +839,8 @@ _bt_preprocess_keys(IndexScanDesc scan)
                         * set qual_ok to false and abandon further processing.
                         *
                         * We also have to deal with the case of "key IS NULL", which is
-                        * unsatisfiable in combination with any other index condition.
-                        * By the time we get here, that's been classified as an equality
+                        * unsatisfiable in combination with any other index condition. By
+                        * the time we get here, that's been classified as an equality
                         * check, and we've rejected any combination of it with a regular
                         * equality condition; but not with other types of conditions.
                         */
@@ -855,7 +916,7 @@ _bt_preprocess_keys(IndexScanDesc scan)
 
                        /*
                         * Emit the cleaned-up keys into the outkeys[] array, and then
-                        * mark them if they are required.      They are required (possibly
+                        * mark them if they are required.  They are required (possibly
                         * only in one direction) if all attrs before this one had "=".
                         */
                        for (j = BTMaxStrategyNumber; --j >= 0;)
@@ -953,8 +1014,8 @@ _bt_preprocess_keys(IndexScanDesc scan)
  * and amoplefttype/amoprighttype equal to the two argument datatypes.
  *
  * If the opfamily doesn't supply a complete set of cross-type operators we
- * may not be able to make the comparison.     If we can make the comparison
- * we store the operator result in *result and return TRUE.  We return FALSE
+ * may not be able to make the comparison.  If we can make the comparison
+ * we store the operator result in *result and return true.  We return false
  * if the comparison could not be made.
  *
  * Note: op always points at the same ScanKey as either leftarg or rightarg.
@@ -979,7 +1040,7 @@ _bt_compare_scankey_args(IndexScanDesc scan, ScanKey op,
        StrategyNumber strat;
 
        /*
-        * First, deal with cases where one or both args are NULL.      This should
+        * First, deal with cases where one or both args are NULL.  This should
         * only happen when the scankeys represent IS NULL/NOT NULL conditions.
         */
        if ((leftarg->sk_flags | rightarg->sk_flags) & SK_ISNULL)
@@ -1097,7 +1158,7 @@ _bt_compare_scankey_args(IndexScanDesc scan, ScanKey op,
                        *result = DatumGetBool(OidFunctionCall2Coll(cmp_proc,
                                                                                                                op->sk_collation,
                                                                                                                leftarg->sk_argument,
-                                                                                                        rightarg->sk_argument));
+                                                                                                               rightarg->sk_argument));
                        return true;
                }
        }
@@ -1119,8 +1180,8 @@ _bt_compare_scankey_args(IndexScanDesc scan, ScanKey op,
  *
  * Lastly, for ordinary scankeys (not IS NULL/NOT NULL), we check for a
  * NULL comparison value.  Since all btree operators are assumed strict,
- * a NULL means that the qual cannot be satisfied.     We return TRUE if the
- * comparison value isn't NULL, or FALSE if the scan should be abandoned.
+ * a NULL means that the qual cannot be satisfied.  We return true if the
+ * comparison value isn't NULL, or false if the scan should be abandoned.
  *
  * This function is applied to the *input* scankey structure; therefore
  * on a rescan we will be looking at already-processed scankeys.  Hence
@@ -1148,7 +1209,7 @@ _bt_fix_scankey_strategy(ScanKey skey, int16 *indoption)
         * --- we can treat IS NULL as an equality operator for purposes of search
         * strategy.
         *
-        * Likewise, "x IS NOT NULL" is supported.      We treat that as either "less
+        * Likewise, "x IS NOT NULL" is supported.  We treat that as either "less
         * than NULL" in a NULLS LAST index, or "greater than NULL" in a NULLS
         * FIRST index.
         *
@@ -1220,19 +1281,16 @@ _bt_fix_scankey_strategy(ScanKey skey, int16 *indoption)
  * Mark a scankey as "required to continue the scan".
  *
  * Depending on the operator type, the key may be required for both scan
- * directions or just one.     Also, if the key is a row comparison header,
- * we have to mark the appropriate subsidiary ScanKeys as required.  In
- * such cases, the first subsidiary key is required, but subsequent ones
- * are required only as long as they correspond to successive index columns
- * and match the leading column as to sort direction.
- * Otherwise the row comparison ordering is different from the index ordering
- * and so we can't stop the scan on the basis of those lower-order columns.
+ * directions or just one.  Also, if the key is a row comparison header,
+ * we have to mark its first subsidiary ScanKey as required.  (Subsequent
+ * subsidiary ScanKeys are normally for lower-order columns, and thus
+ * cannot be required, since they're after the first non-equality scankey.)
  *
  * Note: when we set required-key flag bits in a subsidiary scankey, we are
  * scribbling on a data structure belonging to the index AM's caller, not on
  * our private copy.  This should be OK because the marking will not change
  * from scan to scan within a query, and so we'd just re-mark the same way
- * anyway on a rescan. Something to keep an eye on though.
+ * anyway on a rescan.  Something to keep an eye on though.
  */
 static void
 _bt_mark_scankey_required(ScanKey skey)
@@ -1264,96 +1322,46 @@ _bt_mark_scankey_required(ScanKey skey)
        if (skey->sk_flags & SK_ROW_HEADER)
        {
                ScanKey         subkey = (ScanKey) DatumGetPointer(skey->sk_argument);
-               AttrNumber      attno = skey->sk_attno;
-
-               /* First subkey should be same as the header says */
-               Assert(subkey->sk_attno == attno);
 
-               for (;;)
-               {
-                       Assert(subkey->sk_flags & SK_ROW_MEMBER);
-                       if (subkey->sk_attno != attno)
-                               break;                  /* non-adjacent key, so not required */
-                       if (subkey->sk_strategy != skey->sk_strategy)
-                               break;                  /* wrong direction, so not required */
-                       subkey->sk_flags |= addflags;
-                       if (subkey->sk_flags & SK_ROW_END)
-                               break;
-                       subkey++;
-                       attno++;
-               }
+               /* First subkey should be same column/operator as the header */
+               Assert(subkey->sk_flags & SK_ROW_MEMBER);
+               Assert(subkey->sk_attno == skey->sk_attno);
+               Assert(subkey->sk_strategy == skey->sk_strategy);
+               subkey->sk_flags |= addflags;
        }
 }
 
 /*
  * Test whether an indextuple satisfies all the scankey conditions.
  *
- * If so, return the address of the index tuple on the index page.
- * If not, return NULL.
+ * Return true if so, false if not.  If the tuple fails to pass the qual,
+ * we also determine whether there's any need to continue the scan beyond
+ * this tuple, and set *continuescan accordingly.  See comments for
+ * _bt_preprocess_keys(), above, about how this is done.
  *
- * If the tuple fails to pass the qual, we also determine whether there's
- * any need to continue the scan beyond this tuple, and set *continuescan
- * accordingly.  See comments for _bt_preprocess_keys(), above, about how
- * this is done.
+ * Forward scan callers can pass a high key tuple in the hopes of having
+ * us set *continuescanthat to false, and avoiding an unnecessary visit to
+ * the page to the right.
  *
  * scan: index scan descriptor (containing a search-type scankey)
- * page: buffer page containing index tuple
- * offnum: offset number of index tuple (must be a valid item!)
+ * tuple: index tuple to test
+ * tupnatts: number of attributes in tupnatts (high key may be truncated)
  * dir: direction we are scanning in
  * continuescan: output parameter (will be set correctly in all cases)
- *
- * Caller must hold pin and lock on the index page.
  */
-IndexTuple
-_bt_checkkeys(IndexScanDesc scan,
-                         Page page, OffsetNumber offnum,
+bool
+_bt_checkkeys(IndexScanDesc scan, IndexTuple tuple, int tupnatts,
                          ScanDirection dir, bool *continuescan)
 {
-       ItemId          iid = PageGetItemId(page, offnum);
-       bool            tuple_alive;
-       IndexTuple      tuple;
        TupleDesc       tupdesc;
        BTScanOpaque so;
        int                     keysz;
        int                     ikey;
        ScanKey         key;
 
-       *continuescan = true;           /* default assumption */
+       Assert(BTreeTupleGetNAtts(tuple, scan->indexRelation) == tupnatts);
 
-       /*
-        * If the scan specifies not to return killed tuples, then we treat a
-        * killed tuple as not passing the qual.  Most of the time, it's a win to
-        * not bother examining the tuple's index keys, but just return
-        * immediately with continuescan = true to proceed to the next tuple.
-        * However, if this is the last tuple on the page, we should check the
-        * index keys to prevent uselessly advancing to the next page.
-        */
-       if (scan->ignore_killed_tuples && ItemIdIsDead(iid))
-       {
-               /* return immediately if there are more tuples on the page */
-               if (ScanDirectionIsForward(dir))
-               {
-                       if (offnum < PageGetMaxOffsetNumber(page))
-                               return NULL;
-               }
-               else
-               {
-                       BTPageOpaque opaque = (BTPageOpaque) PageGetSpecialPointer(page);
-
-                       if (offnum > P_FIRSTDATAKEY(opaque))
-                               return NULL;
-               }
-
-               /*
-                * OK, we want to check the keys so we can set continuescan correctly,
-                * but we'll return NULL even if the tuple passes the key tests.
-                */
-               tuple_alive = false;
-       }
-       else
-               tuple_alive = true;
-
-       tuple = (IndexTuple) PageGetItem(page, iid);
+       *continuescan = true;           /* default assumption */
 
        tupdesc = RelationGetDescr(scan->indexRelation);
        so = (BTScanOpaque) scan->opaque;
@@ -1365,12 +1373,25 @@ _bt_checkkeys(IndexScanDesc scan,
                bool            isNull;
                Datum           test;
 
+               if (key->sk_attno > tupnatts)
+               {
+                       /*
+                        * This attribute is truncated (must be high key).  The value for
+                        * this attribute in the first non-pivot tuple on the page to the
+                        * right could be any possible value.  Assume that truncated
+                        * attribute passes the qual.
+                        */
+                       Assert(ScanDirectionIsForward(dir));
+                       continue;
+               }
+
                /* row-comparison keys need special processing */
                if (key->sk_flags & SK_ROW_HEADER)
                {
-                       if (_bt_check_rowcompare(key, tuple, tupdesc, dir, continuescan))
+                       if (_bt_check_rowcompare(key, tuple, tupnatts, tupdesc, dir,
+                                                                        continuescan))
                                continue;
-                       return NULL;
+                       return false;
                }
 
                datum = index_getattr(tuple,
@@ -1394,40 +1415,62 @@ _bt_checkkeys(IndexScanDesc scan,
                        }
 
                        /*
-                        * Tuple fails this qual.  If it's a required qual, then we can
-                        * conclude no further tuples will pass, either.  We can stop
-                        * regardless of the scan direction, because we know that NULLs
-                        * sort to one end or the other of the range of values.  If this
-                        * tuple doesn't pass, then no future ones will either, until we
-                        * reach the next set of values of the higher-order index attrs
-                        * (if any) ... and those attrs must have equality quals, else
-                        * this one wouldn't be marked required.
+                        * Tuple fails this qual.  If it's a required qual for the current
+                        * scan direction, then we can conclude no further tuples will
+                        * pass, either.
                         */
-                       if (key->sk_flags & (SK_BT_REQFWD | SK_BT_REQBKWD))
+                       if ((key->sk_flags & SK_BT_REQFWD) &&
+                               ScanDirectionIsForward(dir))
+                               *continuescan = false;
+                       else if ((key->sk_flags & SK_BT_REQBKWD) &&
+                                        ScanDirectionIsBackward(dir))
                                *continuescan = false;
 
                        /*
                         * In any case, this indextuple doesn't match the qual.
                         */
-                       return NULL;
+                       return false;
                }
 
                if (isNull)
                {
-                       /*
-                        * The index entry is NULL, so it must fail this qual (we assume
-                        * all btree operators are strict).  Furthermore, we know that
-                        * all remaining entries with the same higher-order index attr
-                        * values must be NULLs too.  So, just as above, we can stop the
-                        * scan regardless of direction, if the qual is required.
-                        */
-                       if (key->sk_flags & (SK_BT_REQFWD | SK_BT_REQBKWD))
-                               *continuescan = false;
+                       if (key->sk_flags & SK_BT_NULLS_FIRST)
+                       {
+                               /*
+                                * Since NULLs are sorted before non-NULLs, we know we have
+                                * reached the lower limit of the range of values for this
+                                * index attr.  On a backward scan, we can stop if this qual
+                                * is one of the "must match" subset.  We can stop regardless
+                                * of whether the qual is > or <, so long as it's required,
+                                * because it's not possible for any future tuples to pass. On
+                                * a forward scan, however, we must keep going, because we may
+                                * have initially positioned to the start of the index.
+                                */
+                               if ((key->sk_flags & (SK_BT_REQFWD | SK_BT_REQBKWD)) &&
+                                       ScanDirectionIsBackward(dir))
+                                       *continuescan = false;
+                       }
+                       else
+                       {
+                               /*
+                                * Since NULLs are sorted after non-NULLs, we know we have
+                                * reached the upper limit of the range of values for this
+                                * index attr.  On a forward scan, we can stop if this qual is
+                                * one of the "must match" subset.  We can stop regardless of
+                                * whether the qual is > or <, so long as it's required,
+                                * because it's not possible for any future tuples to pass. On
+                                * a backward scan, however, we must keep going, because we
+                                * may have initially positioned to the end of the index.
+                                */
+                               if ((key->sk_flags & (SK_BT_REQFWD | SK_BT_REQBKWD)) &&
+                                       ScanDirectionIsForward(dir))
+                                       *continuescan = false;
+                       }
 
                        /*
                         * In any case, this indextuple doesn't match the qual.
                         */
-                       return NULL;
+                       return false;
                }
 
                test = FunctionCall2Coll(&key->sk_func, key->sk_collation,
@@ -1455,16 +1498,12 @@ _bt_checkkeys(IndexScanDesc scan,
                        /*
                         * In any case, this indextuple doesn't match the qual.
                         */
-                       return NULL;
+                       return false;
                }
        }
 
-       /* Check for failure due to it being a killed tuple. */
-       if (!tuple_alive)
-               return NULL;
-
        /* If we get here, the tuple passes all index quals. */
-       return tuple;
+       return true;
 }
 
 /*
@@ -1477,8 +1516,8 @@ _bt_checkkeys(IndexScanDesc scan,
  * This is a subroutine for _bt_checkkeys, which see for more info.
  */
 static bool
-_bt_check_rowcompare(ScanKey skey, IndexTuple tuple, TupleDesc tupdesc,
-                                        ScanDirection dir, bool *continuescan)
+_bt_check_rowcompare(ScanKey skey, IndexTuple tuple, int tupnatts,
+                                        TupleDesc tupdesc, ScanDirection dir, bool *continuescan)
 {
        ScanKey         subkey = (ScanKey) DatumGetPointer(skey->sk_argument);
        int32           cmpresult = 0;
@@ -1495,6 +1534,22 @@ _bt_check_rowcompare(ScanKey skey, IndexTuple tuple, TupleDesc tupdesc,
 
                Assert(subkey->sk_flags & SK_ROW_MEMBER);
 
+               if (subkey->sk_attno > tupnatts)
+               {
+                       /*
+                        * This attribute is truncated (must be high key).  The value for
+                        * this attribute in the first non-pivot tuple on the page to the
+                        * right could be any possible value.  Assume that truncated
+                        * attribute passes the qual.
+                        */
+                       Assert(ScanDirectionIsForward(dir));
+                       cmpresult = 0;
+                       if (subkey->sk_flags & SK_ROW_END)
+                               break;
+                       subkey++;
+                       continue;
+               }
+
                datum = index_getattr(tuple,
                                                          subkey->sk_attno,
                                                          tupdesc,
@@ -1502,15 +1557,38 @@ _bt_check_rowcompare(ScanKey skey, IndexTuple tuple, TupleDesc tupdesc,
 
                if (isNull)
                {
-                       /*
-                        * The index entry is NULL, so it must fail this qual (we assume
-                        * all btree operators are strict).  Furthermore, we know that
-                        * all remaining entries with the same higher-order index attr
-                        * values must be NULLs too.  So, just as above, we can stop the
-                        * scan regardless of direction, if the qual is required.
-                        */
-                       if (subkey->sk_flags & (SK_BT_REQFWD | SK_BT_REQBKWD))
-                               *continuescan = false;
+                       if (subkey->sk_flags & SK_BT_NULLS_FIRST)
+                       {
+                               /*
+                                * Since NULLs are sorted before non-NULLs, we know we have
+                                * reached the lower limit of the range of values for this
+                                * index attr.  On a backward scan, we can stop if this qual
+                                * is one of the "must match" subset.  We can stop regardless
+                                * of whether the qual is > or <, so long as it's required,
+                                * because it's not possible for any future tuples to pass. On
+                                * a forward scan, however, we must keep going, because we may
+                                * have initially positioned to the start of the index.
+                                */
+                               if ((subkey->sk_flags & (SK_BT_REQFWD | SK_BT_REQBKWD)) &&
+                                       ScanDirectionIsBackward(dir))
+                                       *continuescan = false;
+                       }
+                       else
+                       {
+                               /*
+                                * Since NULLs are sorted after non-NULLs, we know we have
+                                * reached the upper limit of the range of values for this
+                                * index attr.  On a forward scan, we can stop if this qual is
+                                * one of the "must match" subset.  We can stop regardless of
+                                * whether the qual is > or <, so long as it's required,
+                                * because it's not possible for any future tuples to pass. On
+                                * a backward scan, however, we must keep going, because we
+                                * may have initially positioned to the end of the index.
+                                */
+                               if ((subkey->sk_flags & (SK_BT_REQFWD | SK_BT_REQBKWD)) &&
+                                       ScanDirectionIsForward(dir))
+                                       *continuescan = false;
+                       }
 
                        /*
                         * In any case, this indextuple doesn't match the qual.
@@ -1522,7 +1600,7 @@ _bt_check_rowcompare(ScanKey skey, IndexTuple tuple, TupleDesc tupdesc,
                {
                        /*
                         * Unlike the simple-scankey case, this isn't a disallowed case.
-                        * But it can never match.      If all the earlier row comparison
+                        * But it can never match.  If all the earlier row comparison
                         * columns are required for the scan direction, we can stop the
                         * scan, because there can't be another tuple that will succeed.
                         */
@@ -1544,7 +1622,7 @@ _bt_check_rowcompare(ScanKey skey, IndexTuple tuple, TupleDesc tupdesc,
                                                                                                        subkey->sk_argument));
 
                if (subkey->sk_flags & SK_BT_DESC)
-                       cmpresult = -cmpresult;
+                       INVERT_COMPARE_RESULT(cmpresult);
 
                /* Done comparing if unequal, else advance to next column */
                if (cmpresult != 0)
@@ -1587,7 +1665,7 @@ _bt_check_rowcompare(ScanKey skey, IndexTuple tuple, TupleDesc tupdesc,
                /*
                 * Tuple fails this qual.  If it's a required qual for the current
                 * scan direction, then we can conclude no further tuples will pass,
-                * either.      Note we have to look at the deciding column, not
+                * either.  Note we have to look at the deciding column, not
                 * necessarily the first or last column of the row condition.
                 */
                if ((subkey->sk_flags & SK_BT_REQFWD) &&
@@ -1605,27 +1683,35 @@ _bt_check_rowcompare(ScanKey skey, IndexTuple tuple, TupleDesc tupdesc,
  * _bt_killitems - set LP_DEAD state for items an indexscan caller has
  * told us were killed
  *
- * scan->so contains information about the current page and killed tuples
- * thereon (generally, this should only be called if so->numKilled > 0).
+ * scan->opaque, referenced locally through so, contains information about the
+ * current page and killed tuples thereon (generally, this should only be
+ * called if so->numKilled > 0).
  *
- * The caller must have pin on so->currPos.buf, but may or may not have
- * read-lock, as indicated by haveLock.  Note that we assume read-lock
- * is sufficient for setting LP_DEAD status (which is only a hint).
+ * The caller does not have a lock on the page and may or may not have the
+ * page pinned in a buffer.  Note that read-lock is sufficient for setting
+ * LP_DEAD status (which is only a hint).
  *
  * We match items by heap TID before assuming they are the right ones to
- * delete.     We cope with cases where items have moved right due to insertions.
+ * delete.  We cope with cases where items have moved right due to insertions.
  * If an item has moved off the current page due to a split, we'll fail to
  * find it and do nothing (this is not an error case --- we assume the item
- * will eventually get marked in a future indexscan).  Note that because we
- * hold pin on the target page continuously from initially reading the items
- * until applying this function, VACUUM cannot have deleted any items from
- * the page, and so there is no need to search left from the recorded offset.
- * (This observation also guarantees that the item is still the right one
- * to delete, which might otherwise be questionable since heap TIDs can get
- * recycled.)
+ * will eventually get marked in a future indexscan).
+ *
+ * Note that if we hold a pin on the target page continuously from initially
+ * reading the items until applying this function, VACUUM cannot have deleted
+ * any items from the page, and so there is no need to search left from the
+ * recorded offset.  (This observation also guarantees that the item is still
+ * the right one to delete, which might otherwise be questionable since heap
+ * TIDs can get recycled.)     This holds true even if the page has been modified
+ * by inserts and page splits, so there is no need to consult the LSN.
+ *
+ * If the pin was released after reading the page, then we re-read it.  If it
+ * has been modified since we read it (as determined by the LSN), we dare not
+ * flag any entries because it is possible that the old entry was vacuumed
+ * away and the TID was re-used by a completely different heap tuple.
  */
 void
-_bt_killitems(IndexScanDesc scan, bool haveLock)
+_bt_killitems(IndexScanDesc scan)
 {
        BTScanOpaque so = (BTScanOpaque) scan->opaque;
        Page            page;
@@ -1633,19 +1719,56 @@ _bt_killitems(IndexScanDesc scan, bool haveLock)
        OffsetNumber minoff;
        OffsetNumber maxoff;
        int                     i;
+       int                     numKilled = so->numKilled;
        bool            killedsomething = false;
 
-       Assert(BufferIsValid(so->currPos.buf));
+       Assert(BTScanPosIsValid(so->currPos));
 
-       if (!haveLock)
+       /*
+        * Always reset the scan state, so we don't look for same items on other
+        * pages.
+        */
+       so->numKilled = 0;
+
+       if (BTScanPosIsPinned(so->currPos))
+       {
+               /*
+                * We have held the pin on this page since we read the index tuples,
+                * so all we need to do is lock it.  The pin will have prevented
+                * re-use of any TID on the page, so there is no need to check the
+                * LSN.
+                */
                LockBuffer(so->currPos.buf, BT_READ);
 
-       page = BufferGetPage(so->currPos.buf);
+               page = BufferGetPage(so->currPos.buf);
+       }
+       else
+       {
+               Buffer          buf;
+
+               /* Attempt to re-read the buffer, getting pin and lock. */
+               buf = _bt_getbuf(scan->indexRelation, so->currPos.currPage, BT_READ);
+
+               /* It might not exist anymore; in which case we can't hint it. */
+               if (!BufferIsValid(buf))
+                       return;
+
+               page = BufferGetPage(buf);
+               if (BufferGetLSNAtomic(buf) == so->currPos.lsn)
+                       so->currPos.buf = buf;
+               else
+               {
+                       /* Modified while not pinned means hinting is not safe. */
+                       _bt_relbuf(scan->indexRelation, buf);
+                       return;
+               }
+       }
+
        opaque = (BTPageOpaque) PageGetSpecialPointer(page);
        minoff = P_FIRSTDATAKEY(opaque);
        maxoff = PageGetMaxOffsetNumber(page);
 
-       for (i = 0; i < so->numKilled; i++)
+       for (i = 0; i < numKilled; i++)
        {
                int                     itemIndex = so->killedItems[i];
                BTScanPosItem *kitem = &so->currPos.items[itemIndex];
@@ -1672,9 +1795,7 @@ _bt_killitems(IndexScanDesc scan, bool haveLock)
        }
 
        /*
-        * Since this can be redone later if needed, it's treated the same as a
-        * commit-hint-bit status update for heap tuples: we mark the buffer dirty
-        * but don't make a WAL log entry.
+        * Since this can be redone later if needed, mark as dirty hint.
         *
         * Whenever we mark anything LP_DEAD, we also set the page's
         * BTP_HAS_GARBAGE flag, which is likewise just a hint.
@@ -1682,25 +1803,18 @@ _bt_killitems(IndexScanDesc scan, bool haveLock)
        if (killedsomething)
        {
                opaque->btpo_flags |= BTP_HAS_GARBAGE;
-               SetBufferCommitInfoNeedsSave(so->currPos.buf);
+               MarkBufferDirtyHint(so->currPos.buf, true);
        }
 
-       if (!haveLock)
-               LockBuffer(so->currPos.buf, BUFFER_LOCK_UNLOCK);
-
-       /*
-        * Always reset the scan state, so we don't look for same items on other
-        * pages.
-        */
-       so->numKilled = 0;
+       LockBuffer(so->currPos.buf, BUFFER_LOCK_UNLOCK);
 }
 
 
 /*
  * The following routines manage a shared-memory area in which we track
  * assignment of "vacuum cycle IDs" to currently-active btree vacuuming
- * operations. There is a single counter which increments each time we
- * start a vacuum to assign it a cycle ID.     Since multiple vacuums could
+ * operations.  There is a single counter which increments each time we
+ * start a vacuum to assign it a cycle ID.  Since multiple vacuums could
  * be active concurrently, we have to track the cycle ID for each active
  * vacuum; this requires at most MaxBackends entries (usually far fewer).
  * We assume at most one vacuum can be active for a given index.
@@ -1722,7 +1836,7 @@ typedef struct BTVacInfo
        BTCycleId       cycle_ctr;              /* cycle ID most recently assigned */
        int                     num_vacuums;    /* number of currently active VACUUMs */
        int                     max_vacuums;    /* allocated length of vacuums[] array */
-       BTOneVacInfo vacuums[1];        /* VARIABLE LENGTH ARRAY */
+       BTOneVacInfo vacuums[FLEXIBLE_ARRAY_MEMBER];
 } BTVacInfo;
 
 static BTVacInfo *btvacinfo;
@@ -1870,7 +1984,7 @@ BTreeShmemSize(void)
 {
        Size            size;
 
-       size = offsetof(BTVacInfo, vacuums[0]);
+       size = offsetof(BTVacInfo, vacuums);
        size = add_size(size, mul_size(MaxBackends, sizeof(BTOneVacInfo)));
        return size;
 }
@@ -1906,15 +2020,554 @@ BTreeShmemInit(void)
                Assert(found);
 }
 
-Datum
-btoptions(PG_FUNCTION_ARGS)
+bytea *
+btoptions(Datum reloptions, bool validate)
+{
+       return default_reloptions(reloptions, validate, RELOPT_KIND_BTREE);
+}
+
+/*
+ *     btproperty() -- Check boolean properties of indexes.
+ *
+ * This is optional, but handling AMPROP_RETURNABLE here saves opening the rel
+ * to call btcanreturn.
+ */
+bool
+btproperty(Oid index_oid, int attno,
+                  IndexAMProperty prop, const char *propname,
+                  bool *res, bool *isnull)
+{
+       switch (prop)
+       {
+               case AMPROP_RETURNABLE:
+                       /* answer only for columns, not AM or whole index */
+                       if (attno == 0)
+                               return false;
+                       /* otherwise, btree can always return data */
+                       *res = true;
+                       return true;
+
+               default:
+                       return false;           /* punt to generic code */
+       }
+}
+
+/*
+ *     btbuildphasename() -- Return name of index build phase.
+ */
+char *
+btbuildphasename(int64 phasenum)
+{
+       switch (phasenum)
+       {
+               case PROGRESS_CREATEIDX_SUBPHASE_INITIALIZE:
+                       return "initializing";
+               case PROGRESS_BTREE_PHASE_INDEXBUILD_TABLESCAN:
+                       return "scanning table";
+               case PROGRESS_BTREE_PHASE_PERFORMSORT_1:
+                       return "sorting live tuples";
+               case PROGRESS_BTREE_PHASE_PERFORMSORT_2:
+                       return "sorting dead tuples";
+               case PROGRESS_BTREE_PHASE_LEAF_LOAD:
+                       return "loading tuples in tree";
+               default:
+                       return NULL;
+       }
+}
+
+/*
+ *     _bt_truncate() -- create tuple without unneeded suffix attributes.
+ *
+ * Returns truncated pivot index tuple allocated in caller's memory context,
+ * with key attributes copied from caller's firstright argument.  If rel is
+ * an INCLUDE index, non-key attributes will definitely be truncated away,
+ * since they're not part of the key space.  More aggressive suffix
+ * truncation can take place when it's clear that the returned tuple does not
+ * need one or more suffix key attributes.  We only need to keep firstright
+ * attributes up to and including the first non-lastleft-equal attribute.
+ * Caller's insertion scankey is used to compare the tuples; the scankey's
+ * argument values are not considered here.
+ *
+ * Sometimes this routine will return a new pivot tuple that takes up more
+ * space than firstright, because a new heap TID attribute had to be added to
+ * distinguish lastleft from firstright.  This should only happen when the
+ * caller is in the process of splitting a leaf page that has many logical
+ * duplicates, where it's unavoidable.
+ *
+ * Note that returned tuple's t_tid offset will hold the number of attributes
+ * present, so the original item pointer offset is not represented.  Caller
+ * should only change truncated tuple's downlink.  Note also that truncated
+ * key attributes are treated as containing "minus infinity" values by
+ * _bt_compare().
+ *
+ * In the worst case (when a heap TID is appended) the size of the returned
+ * tuple is the size of the first right tuple plus an additional MAXALIGN()'d
+ * item pointer.  This guarantee is important, since callers need to stay
+ * under the 1/3 of a page restriction on tuple size.  If this routine is ever
+ * taught to truncate within an attribute/datum, it will need to avoid
+ * returning an enlarged tuple to caller when truncation + TOAST compression
+ * ends up enlarging the final datum.
+ */
+IndexTuple
+_bt_truncate(Relation rel, IndexTuple lastleft, IndexTuple firstright,
+                        BTScanInsert itup_key)
 {
-       Datum           reloptions = PG_GETARG_DATUM(0);
-       bool            validate = PG_GETARG_BOOL(1);
-       bytea      *result;
-
-       result = default_reloptions(reloptions, validate, RELOPT_KIND_BTREE);
-       if (result)
-               PG_RETURN_BYTEA_P(result);
-       PG_RETURN_NULL();
+       TupleDesc       itupdesc = RelationGetDescr(rel);
+       int16           natts = IndexRelationGetNumberOfAttributes(rel);
+       int16           nkeyatts = IndexRelationGetNumberOfKeyAttributes(rel);
+       int                     keepnatts;
+       IndexTuple      pivot;
+       ItemPointer pivotheaptid;
+       Size            newsize;
+
+       /*
+        * We should only ever truncate leaf index tuples.  It's never okay to
+        * truncate a second time.
+        */
+       Assert(BTreeTupleGetNAtts(lastleft, rel) == natts);
+       Assert(BTreeTupleGetNAtts(firstright, rel) == natts);
+
+       /* Determine how many attributes must be kept in truncated tuple */
+       keepnatts = _bt_keep_natts(rel, lastleft, firstright, itup_key);
+
+#ifdef DEBUG_NO_TRUNCATE
+       /* Force truncation to be ineffective for testing purposes */
+       keepnatts = nkeyatts + 1;
+#endif
+
+       if (keepnatts <= natts)
+       {
+               IndexTuple      tidpivot;
+
+               pivot = index_truncate_tuple(itupdesc, firstright, keepnatts);
+
+               /*
+                * If there is a distinguishing key attribute within new pivot tuple,
+                * there is no need to add an explicit heap TID attribute
+                */
+               if (keepnatts <= nkeyatts)
+               {
+                       BTreeTupleSetNAtts(pivot, keepnatts);
+                       return pivot;
+               }
+
+               /*
+                * Only truncation of non-key attributes was possible, since key
+                * attributes are all equal.  It's necessary to add a heap TID
+                * attribute to the new pivot tuple.
+                */
+               Assert(natts != nkeyatts);
+               newsize = IndexTupleSize(pivot) + MAXALIGN(sizeof(ItemPointerData));
+               tidpivot = palloc0(newsize);
+               memcpy(tidpivot, pivot, IndexTupleSize(pivot));
+               /* cannot leak memory here */
+               pfree(pivot);
+               pivot = tidpivot;
+       }
+       else
+       {
+               /*
+                * No truncation was possible, since key attributes are all equal.
+                * It's necessary to add a heap TID attribute to the new pivot tuple.
+                */
+               Assert(natts == nkeyatts);
+               newsize = IndexTupleSize(firstright) + MAXALIGN(sizeof(ItemPointerData));
+               pivot = palloc0(newsize);
+               memcpy(pivot, firstright, IndexTupleSize(firstright));
+       }
+
+       /*
+        * We have to use heap TID as a unique-ifier in the new pivot tuple, since
+        * no non-TID key attribute in the right item readily distinguishes the
+        * right side of the split from the left side.  Use enlarged space that
+        * holds a copy of first right tuple; place a heap TID value within the
+        * extra space that remains at the end.
+        *
+        * nbtree conceptualizes this case as an inability to truncate away any
+        * key attribute.  We must use an alternative representation of heap TID
+        * within pivots because heap TID is only treated as an attribute within
+        * nbtree (e.g., there is no pg_attribute entry).
+        */
+       Assert(itup_key->heapkeyspace);
+       pivot->t_info &= ~INDEX_SIZE_MASK;
+       pivot->t_info |= newsize;
+
+       /*
+        * Lehman & Yao use lastleft as the leaf high key in all cases, but don't
+        * consider suffix truncation.  It seems like a good idea to follow that
+        * example in cases where no truncation takes place -- use lastleft's heap
+        * TID.  (This is also the closest value to negative infinity that's
+        * legally usable.)
+        */
+       pivotheaptid = (ItemPointer) ((char *) pivot + newsize -
+                                                                 sizeof(ItemPointerData));
+       ItemPointerCopy(&lastleft->t_tid, pivotheaptid);
+
+       /*
+        * Lehman and Yao require that the downlink to the right page, which is to
+        * be inserted into the parent page in the second phase of a page split be
+        * a strict lower bound on items on the right page, and a non-strict upper
+        * bound for items on the left page.  Assert that heap TIDs follow these
+        * invariants, since a heap TID value is apparently needed as a
+        * tiebreaker.
+        */
+#ifndef DEBUG_NO_TRUNCATE
+       Assert(ItemPointerCompare(&lastleft->t_tid, &firstright->t_tid) < 0);
+       Assert(ItemPointerCompare(pivotheaptid, &lastleft->t_tid) >= 0);
+       Assert(ItemPointerCompare(pivotheaptid, &firstright->t_tid) < 0);
+#else
+
+       /*
+        * Those invariants aren't guaranteed to hold for lastleft + firstright
+        * heap TID attribute values when they're considered here only because
+        * DEBUG_NO_TRUNCATE is defined (a heap TID is probably not actually
+        * needed as a tiebreaker).  DEBUG_NO_TRUNCATE must therefore use a heap
+        * TID value that always works as a strict lower bound for items to the
+        * right.  In particular, it must avoid using firstright's leading key
+        * attribute values along with lastleft's heap TID value when lastleft's
+        * TID happens to be greater than firstright's TID.
+        */
+       ItemPointerCopy(&firstright->t_tid, pivotheaptid);
+
+       /*
+        * Pivot heap TID should never be fully equal to firstright.  Note that
+        * the pivot heap TID will still end up equal to lastleft's heap TID when
+        * that's the only usable value.
+        */
+       ItemPointerSetOffsetNumber(pivotheaptid,
+                                                          OffsetNumberPrev(ItemPointerGetOffsetNumber(pivotheaptid)));
+       Assert(ItemPointerCompare(pivotheaptid, &firstright->t_tid) < 0);
+#endif
+
+       BTreeTupleSetNAtts(pivot, nkeyatts);
+       BTreeTupleSetAltHeapTID(pivot);
+
+       return pivot;
+}
+
+/*
+ * _bt_keep_natts - how many key attributes to keep when truncating.
+ *
+ * Caller provides two tuples that enclose a split point.  Caller's insertion
+ * scankey is used to compare the tuples; the scankey's argument values are
+ * not considered here.
+ *
+ * This can return a number of attributes that is one greater than the
+ * number of key attributes for the index relation.  This indicates that the
+ * caller must use a heap TID as a unique-ifier in new pivot tuple.
+ */
+static int
+_bt_keep_natts(Relation rel, IndexTuple lastleft, IndexTuple firstright,
+                          BTScanInsert itup_key)
+{
+       int                     nkeyatts = IndexRelationGetNumberOfKeyAttributes(rel);
+       TupleDesc       itupdesc = RelationGetDescr(rel);
+       int                     keepnatts;
+       ScanKey         scankey;
+
+       /*
+        * Be consistent about the representation of BTREE_VERSION 2/3 tuples
+        * across Postgres versions; don't allow new pivot tuples to have
+        * truncated key attributes there.  _bt_compare() treats truncated key
+        * attributes as having the value minus infinity, which would break
+        * searches within !heapkeyspace indexes.
+        */
+       if (!itup_key->heapkeyspace)
+       {
+               Assert(nkeyatts != IndexRelationGetNumberOfAttributes(rel));
+               return nkeyatts;
+       }
+
+       scankey = itup_key->scankeys;
+       keepnatts = 1;
+       for (int attnum = 1; attnum <= nkeyatts; attnum++, scankey++)
+       {
+               Datum           datum1,
+                                       datum2;
+               bool            isNull1,
+                                       isNull2;
+
+               datum1 = index_getattr(lastleft, attnum, itupdesc, &isNull1);
+               datum2 = index_getattr(firstright, attnum, itupdesc, &isNull2);
+
+               if (isNull1 != isNull2)
+                       break;
+
+               if (!isNull1 &&
+                       DatumGetInt32(FunctionCall2Coll(&scankey->sk_func,
+                                                                                       scankey->sk_collation,
+                                                                                       datum1,
+                                                                                       datum2)) != 0)
+                       break;
+
+               keepnatts++;
+       }
+
+       return keepnatts;
+}
+
+/*
+ * _bt_keep_natts_fast - fast bitwise variant of _bt_keep_natts.
+ *
+ * This is exported so that a candidate split point can have its effect on
+ * suffix truncation inexpensively evaluated ahead of time when finding a
+ * split location.  A naive bitwise approach to datum comparisons is used to
+ * save cycles.
+ *
+ * The approach taken here usually provides the same answer as _bt_keep_natts
+ * will (for the same pair of tuples from a heapkeyspace index), since the
+ * majority of btree opclasses can never indicate that two datums are equal
+ * unless they're bitwise equal (once detoasted).  Similarly, result may
+ * differ from the _bt_keep_natts result when either tuple has TOASTed datums,
+ * though this is barely possible in practice.
+ *
+ * These issues must be acceptable to callers, typically because they're only
+ * concerned about making suffix truncation as effective as possible without
+ * leaving excessive amounts of free space on either side of page split.
+ * Callers can rely on the fact that attributes considered equal here are
+ * definitely also equal according to _bt_keep_natts.
+ */
+int
+_bt_keep_natts_fast(Relation rel, IndexTuple lastleft, IndexTuple firstright)
+{
+       TupleDesc       itupdesc = RelationGetDescr(rel);
+       int                     keysz = IndexRelationGetNumberOfKeyAttributes(rel);
+       int                     keepnatts;
+
+       keepnatts = 1;
+       for (int attnum = 1; attnum <= keysz; attnum++)
+       {
+               Datum           datum1,
+                                       datum2;
+               bool            isNull1,
+                                       isNull2;
+               Form_pg_attribute att;
+
+               datum1 = index_getattr(lastleft, attnum, itupdesc, &isNull1);
+               datum2 = index_getattr(firstright, attnum, itupdesc, &isNull2);
+               att = TupleDescAttr(itupdesc, attnum - 1);
+
+               if (isNull1 != isNull2)
+                       break;
+
+               if (!isNull1 &&
+                       !datumIsEqual(datum1, datum2, att->attbyval, att->attlen))
+                       break;
+
+               keepnatts++;
+       }
+
+       return keepnatts;
+}
+
+/*
+ *  _bt_check_natts() -- Verify tuple has expected number of attributes.
+ *
+ * Returns value indicating if the expected number of attributes were found
+ * for a particular offset on page.  This can be used as a general purpose
+ * sanity check.
+ *
+ * Testing a tuple directly with BTreeTupleGetNAtts() should generally be
+ * preferred to calling here.  That's usually more convenient, and is always
+ * more explicit.  Call here instead when offnum's tuple may be a negative
+ * infinity tuple that uses the pre-v11 on-disk representation, or when a low
+ * context check is appropriate.  This routine is as strict as possible about
+ * what is expected on each version of btree.
+ */
+bool
+_bt_check_natts(Relation rel, bool heapkeyspace, Page page, OffsetNumber offnum)
+{
+       int16           natts = IndexRelationGetNumberOfAttributes(rel);
+       int16           nkeyatts = IndexRelationGetNumberOfKeyAttributes(rel);
+       BTPageOpaque opaque = (BTPageOpaque) PageGetSpecialPointer(page);
+       IndexTuple      itup;
+       int                     tupnatts;
+
+       /*
+        * We cannot reliably test a deleted or half-deleted page, since they have
+        * dummy high keys
+        */
+       if (P_IGNORE(opaque))
+               return true;
+
+       Assert(offnum >= FirstOffsetNumber &&
+                  offnum <= PageGetMaxOffsetNumber(page));
+
+       /*
+        * Mask allocated for number of keys in index tuple must be able to fit
+        * maximum possible number of index attributes
+        */
+       StaticAssertStmt(BT_N_KEYS_OFFSET_MASK >= INDEX_MAX_KEYS,
+                                        "BT_N_KEYS_OFFSET_MASK can't fit INDEX_MAX_KEYS");
+
+       itup = (IndexTuple) PageGetItem(page, PageGetItemId(page, offnum));
+       tupnatts = BTreeTupleGetNAtts(itup, rel);
+
+       if (P_ISLEAF(opaque))
+       {
+               if (offnum >= P_FIRSTDATAKEY(opaque))
+               {
+                       /*
+                        * Non-pivot tuples currently never use alternative heap TID
+                        * representation -- even those within heapkeyspace indexes
+                        */
+                       if ((itup->t_info & INDEX_ALT_TID_MASK) != 0)
+                               return false;
+
+                       /*
+                        * Leaf tuples that are not the page high key (non-pivot tuples)
+                        * should never be truncated.  (Note that tupnatts must have been
+                        * inferred, rather than coming from an explicit on-disk
+                        * representation.)
+                        */
+                       return tupnatts == natts;
+               }
+               else
+               {
+                       /*
+                        * Rightmost page doesn't contain a page high key, so tuple was
+                        * checked above as ordinary leaf tuple
+                        */
+                       Assert(!P_RIGHTMOST(opaque));
+
+                       /*
+                        * !heapkeyspace high key tuple contains only key attributes. Note
+                        * that tupnatts will only have been explicitly represented in
+                        * !heapkeyspace indexes that happen to have non-key attributes.
+                        */
+                       if (!heapkeyspace)
+                               return tupnatts == nkeyatts;
+
+                       /* Use generic heapkeyspace pivot tuple handling */
+               }
+       }
+       else                                            /* !P_ISLEAF(opaque) */
+       {
+               if (offnum == P_FIRSTDATAKEY(opaque))
+               {
+                       /*
+                        * The first tuple on any internal page (possibly the first after
+                        * its high key) is its negative infinity tuple.  Negative
+                        * infinity tuples are always truncated to zero attributes.  They
+                        * are a particular kind of pivot tuple.
+                        */
+                       if (heapkeyspace)
+                               return tupnatts == 0;
+
+                       /*
+                        * The number of attributes won't be explicitly represented if the
+                        * negative infinity tuple was generated during a page split that
+                        * occurred with a version of Postgres before v11.  There must be
+                        * a problem when there is an explicit representation that is
+                        * non-zero, or when there is no explicit representation and the
+                        * tuple is evidently not a pre-pg_upgrade tuple.
+                        *
+                        * Prior to v11, downlinks always had P_HIKEY as their offset. Use
+                        * that to decide if the tuple is a pre-v11 tuple.
+                        */
+                       return tupnatts == 0 ||
+                               ((itup->t_info & INDEX_ALT_TID_MASK) == 0 &&
+                                ItemPointerGetOffsetNumber(&(itup->t_tid)) == P_HIKEY);
+               }
+               else
+               {
+                       /*
+                        * !heapkeyspace downlink tuple with separator key contains only
+                        * key attributes.  Note that tupnatts will only have been
+                        * explicitly represented in !heapkeyspace indexes that happen to
+                        * have non-key attributes.
+                        */
+                       if (!heapkeyspace)
+                               return tupnatts == nkeyatts;
+
+                       /* Use generic heapkeyspace pivot tuple handling */
+               }
+
+       }
+
+       /* Handle heapkeyspace pivot tuples (excluding minus infinity items) */
+       Assert(heapkeyspace);
+
+       /*
+        * Explicit representation of the number of attributes is mandatory with
+        * heapkeyspace index pivot tuples, regardless of whether or not there are
+        * non-key attributes.
+        */
+       if ((itup->t_info & INDEX_ALT_TID_MASK) == 0)
+               return false;
+
+       /*
+        * Heap TID is a tiebreaker key attribute, so it cannot be untruncated
+        * when any other key attribute is truncated
+        */
+       if (BTreeTupleGetHeapTID(itup) != NULL && tupnatts != nkeyatts)
+               return false;
+
+       /*
+        * Pivot tuple must have at least one untruncated key attribute (minus
+        * infinity pivot tuples are the only exception).  Pivot tuples can never
+        * represent that there is a value present for a key attribute that
+        * exceeds pg_index.indnkeyatts for the index.
+        */
+       return tupnatts > 0 && tupnatts <= nkeyatts;
+}
+
+/*
+ *
+ *  _bt_check_third_page() -- check whether tuple fits on a btree page at all.
+ *
+ * We actually need to be able to fit three items on every page, so restrict
+ * any one item to 1/3 the per-page available space.  Note that itemsz should
+ * not include the ItemId overhead.
+ *
+ * It might be useful to apply TOAST methods rather than throw an error here.
+ * Using out of line storage would break assumptions made by suffix truncation
+ * and by contrib/amcheck, though.
+ */
+void
+_bt_check_third_page(Relation rel, Relation heap, bool needheaptidspace,
+                                        Page page, IndexTuple newtup)
+{
+       Size            itemsz;
+       BTPageOpaque opaque;
+
+       itemsz = MAXALIGN(IndexTupleSize(newtup));
+
+       /* Double check item size against limit */
+       if (itemsz <= BTMaxItemSize(page))
+               return;
+
+       /*
+        * Tuple is probably too large to fit on page, but it's possible that the
+        * index uses version 2 or version 3, or that page is an internal page, in
+        * which case a slightly higher limit applies.
+        */
+       if (!needheaptidspace && itemsz <= BTMaxItemSizeNoHeapTid(page))
+               return;
+
+       /*
+        * Internal page insertions cannot fail here, because that would mean that
+        * an earlier leaf level insertion that should have failed didn't
+        */
+       opaque = (BTPageOpaque) PageGetSpecialPointer(page);
+       if (!P_ISLEAF(opaque))
+               elog(ERROR, "cannot insert oversized tuple of size %zu on internal page of index \"%s\"",
+                        itemsz, RelationGetRelationName(rel));
+
+       ereport(ERROR,
+                       (errcode(ERRCODE_PROGRAM_LIMIT_EXCEEDED),
+                        errmsg("index row size %zu exceeds btree version %u maximum %zu for index \"%s\"",
+                                       itemsz,
+                                       needheaptidspace ? BTREE_VERSION : BTREE_NOVAC_VERSION,
+                                       needheaptidspace ? BTMaxItemSize(page) :
+                                       BTMaxItemSizeNoHeapTid(page),
+                                       RelationGetRelationName(rel)),
+                        errdetail("Index row references tuple (%u,%u) in relation \"%s\".",
+                                          ItemPointerGetBlockNumber(&newtup->t_tid),
+                                          ItemPointerGetOffsetNumber(&newtup->t_tid),
+                                          RelationGetRelationName(heap)),
+                        errhint("Values larger than 1/3 of a buffer page cannot be indexed.\n"
+                                        "Consider a function index of an MD5 hash of the value, "
+                                        "or use full text indexing."),
+                        errtableconstraint(heap, RelationGetRelationName(rel))));
 }