From 2030cbdf6c4c3521a7e1c6b86fddc3de7015ef79 Mon Sep 17 00:00:00 2001
From: "Vadim B. Mikheev" <vadim4o@yahoo.com>
Date: Wed, 2 Apr 1997 03:41:16 +0000
Subject: [PATCH] Hack for heap_creat to enable relkind to be 'S' for
 sequences.

---
 src/backend/catalog/heap.c | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/backend/catalog/heap.c b/src/backend/catalog/heap.c
index 8d6386cf16..283f59b664 100644
--- a/src/backend/catalog/heap.c
+++ b/src/backend/catalog/heap.c
@@ -7,7 +7,7 @@
  *
  *
  * IDENTIFICATION
- *    $Header: /cvsroot/pgsql/src/backend/catalog/heap.c,v 1.12 1997/01/20 04:01:50 vadim Exp $
+ *    $Header: /cvsroot/pgsql/src/backend/catalog/heap.c,v 1.13 1997/04/02 03:41:16 vadim Exp $
  *
  * INTERFACE ROUTINES
  *	heap_creatr()		- Create an uncataloged heap relation
@@ -622,7 +622,8 @@ AddPgRelationTuple(Relation pg_class_desc,
     HeapTuple		tup;
     Relation		idescs[Num_pg_class_indices];
     bool		isBootstrap;
-    
+    extern bool		ItsSequenceCreation;    /* It's hack, I know... 
+    						 * - vadim 03/28/97	*/
     /* ----------------
      *	first we munge some of the information in our
      *  uncataloged relation's relation descriptor.
@@ -634,7 +635,10 @@ AddPgRelationTuple(Relation pg_class_desc,
     /*   new_rel_reltup->reltuples = 1; */ /* XXX */
     
     new_rel_reltup->relowner = GetUserId();
-    new_rel_reltup->relkind = RELKIND_RELATION;
+    if ( ItsSequenceCreation )
+    	new_rel_reltup->relkind = RELKIND_SEQUENCE;
+    else
+    	new_rel_reltup->relkind = RELKIND_RELATION;
     new_rel_reltup->relarch = arch;
     new_rel_reltup->relnatts = natts;
     
-- 
2.40.0