Enabling index scans for OID cast patterns in system views

contrib/babelfishpg_tsql/src/hooks.c

@@ -53,7 +53,10 @@
 #include "nodes/nodeFuncs.h"
 #include "optimizer/clauses.h"
 #include "optimizer/optimizer.h"
+#include "optimizer/paths.h"
 #include "optimizer/planner.h"
+#include "optimizer/restrictinfo.h"
+#include "access/stratnum.h"
 #include "parser/analyze.h"
 #include "parser/parse_clause.h"
 #include "parser/parse_coerce.h"
@@ -395,6 +398,9 @@ ParallelQueryMain_hook_type prev_ParallelQueryMain_hook = NULL;
 #ifdef USE_LIBXML
 static openxml_set_namespaces_hook_type prev_openxml_set_namespaces_hook = NULL;
 #endif
+static match_opclause_to_indexcol_hook_type prev_match_opclause_to_indexcol_hook = NULL;
+static IndexClause *match_oid_cast_to_indexcol(PlannerInfo *root, RestrictInfo *rinfo, int indexcol, IndexOptInfo *index, Node *cast_arg, Node *val_arg, Oid opfamily);
+static IndexClause *bbf_match_opclause_to_indexcol(PlannerInfo *root, RestrictInfo *rinfo, int indexcol, IndexOptInfo *index);
 
 /*****************************************
  * 			Install / Uninstall
@@ -668,6 +674,9 @@ InstallExtendedHooks(void)
 	walk_view_rule_hook = mark_nodes_inside_view;
 
 	handle_target_view_hook = tsql_handle_target_view_hook;
+
+	prev_match_opclause_to_indexcol_hook = match_opclause_to_indexcol_hook;
+	match_opclause_to_indexcol_hook = bbf_match_opclause_to_indexcol;
 }
 
 void
@@ -765,6 +774,7 @@ UninstallExtendedHooks(void)
 	get_domain_typmodin_hook = NULL;
 	walk_view_rule_hook = NULL;
 	handle_target_view_hook = NULL;
+	match_opclause_to_indexcol_hook = prev_match_opclause_to_indexcol_hook;
 }
 
 /*****************************************
@@ -9289,3 +9299,117 @@ pltsql_post_transform_expr_recurse(ParseState *pstate, Node *expr)
 
 	return expr;
 }
+
+static IndexClause *
+match_oid_cast_to_indexcol(PlannerInfo *root, RestrictInfo *rinfo,
+						   int indexcol, IndexOptInfo *index,
+						   Node *cast_arg, Node *val_arg, Oid opfamily)
+{
+	if (IsA(cast_arg, RelabelType))
+	{
+		RelabelType *relabel = (RelabelType *) cast_arg;
+		Node	   *inner_arg = (Node *) relabel->arg;
+		Oid			orig_type = exprType(inner_arg);
+
+		if (orig_type == OIDOID && relabel->resulttype == INT4OID &&
+			match_index_to_operand(inner_arg, indexcol, index))
+		{
+			Oid			idx_op;
+
+			if (contain_volatile_functions(val_arg))
+				return NULL;
+
+			idx_op = get_opfamily_member(opfamily, orig_type, orig_type,
+										BTEqualStrategyNumber);
+			if (OidIsValid(idx_op))
+			{
+				RelabelType *new_val;
+				OpExpr	   *new_clause;
+				RestrictInfo *new_rinfo;
+				IndexClause *iclause;
+				OpExpr	   *clause = (OpExpr *) rinfo->clause;
+
+				new_val = makeRelabelType((Expr *) copyObject(val_arg),
+										  orig_type, -1, InvalidOid,
+										  COERCE_IMPLICIT_CAST);
+
+				new_clause = makeNode(OpExpr);
+				new_clause->opno = idx_op;
+				new_clause->opfuncid = get_opcode(idx_op);
+				new_clause->opresulttype = BOOLOID;
+				new_clause->opretset = false;
+				new_clause->opcollid = InvalidOid;
+				new_clause->inputcollid = clause->inputcollid;
+				new_clause->args = list_make2(copyObject(inner_arg), new_val);
+				new_clause->location = clause->location;
+
+				new_rinfo = make_simple_restrictinfo(root,
+													(Expr *) new_clause);
+				new_rinfo->security_level = rinfo->security_level;
+
+				iclause = makeNode(IndexClause);
+				iclause->rinfo = rinfo;
+				iclause->indexquals = list_make1(new_rinfo);
+				iclause->lossy = false;
+				iclause->indexcol = indexcol;
+				iclause->indexcols = NIL;
+				return iclause;
+			}
+		}
+	}
+	return NULL;
+}
+
+/*
+ * bbf_match_opclause_to_indexcol
+ *
+ * Enables index usage for Babelfish equality patterns where an OID column
+ * is cast to integer, preventing index matching. Handles both operand orders:
+ *   (oid)::integer = value  =>  oid = value::oid
+ *   value = (oid)::integer  =>  oid = value::oid
+ */
+static IndexClause *
+bbf_match_opclause_to_indexcol(PlannerInfo *root,
+							   RestrictInfo *rinfo,
+							   int indexcol,
+							   IndexOptInfo *index)
+{
+	if (sql_dialect == SQL_DIALECT_TSQL && IsA(rinfo->clause, OpExpr))
+	{
+		OpExpr	   *clause = (OpExpr *) rinfo->clause;
+
+		if (list_length(clause->args) == 2 &&
+			clause->opno == Int4EqualOperator &&
+			index->opcintype[indexcol] == OIDOID)
+		{
+			Node	   *leftop = (Node *) linitial(clause->args);
+			Node	   *rightop = (Node *) lsecond(clause->args);
+			Oid			opfamily = index->opfamily[indexcol];
+			IndexClause *iclause;
+
+			/* Try left operand as the cast: (oid)::int4 = value */
+			if (!bms_is_member(index->rel->relid, rinfo->right_relids))
+			{
+				iclause = match_oid_cast_to_indexcol(root, rinfo, indexcol,
+													index, leftop, rightop,
+													opfamily);
+				if (iclause)
+					return iclause;
+			}
+
+			/* Try right operand as the cast: value = (oid)::int4 */
+			if (!bms_is_member(index->rel->relid, rinfo->left_relids))
+			{
+				iclause = match_oid_cast_to_indexcol(root, rinfo, indexcol,
+													index, rightop, leftop,
+													opfamily);
+				if (iclause)
+					return iclause;
+			}
+		}
+	}
+
+	if (prev_match_opclause_to_indexcol_hook)
+		return prev_match_opclause_to_indexcol_hook(root, rinfo, indexcol, index);
+	return NULL;
+}

contrib/babelfishpg_tsql/src/pltsql.h

@@ -2519,6 +2519,23 @@ extern bool 	is_numeric_datatype(Oid typid);
  */
 extern char *tsql_format_type_extended(Oid type_oid, int32 typemod, bits16 flags);
 
+/*
+ * INSERT EXEC functions (pl_insert_exec.c)
+ */
+typedef struct InsertExecContext
+{
+	Oid			temp_table_oid;			/* OID of temp table for buffering */
+	Oid			target_rel_oid;			/* OID of target table - lock held to detect schema changes */
+	bool		is_target_relation_modified;	/* Set by bbf_object_access_hook when target table is altered */
+} InsertExecContext;
+
+extern InsertExecContext insert_exec_ctx;
+
+extern Oid create_insert_exec_temp_table(const char *target_table, const char *column_list, const char *schema_name_in);
+extern void flush_insert_exec_temp_table(PLtsql_execstate *estate,
+										 const char *column_list);
+extern DestReceiver *CreateInsertExecDestReceiver(void);
+
 #define NUM_DB_OBJECTS 11
 
 extern const char *shipped_objects_not_in_sys_db[NUM_DB_OBJECTS][2];

test/JDBC/expected/1_GRANT_SCHEMA-vu-verify.out

@@ -1,3 +1,13 @@
+-- psql
+ANALYZE pg_catalog.pg_class;
+ANALYZE pg_catalog.pg_namespace;
+ANALYZE pg_catalog.pg_proc;
+ANALYZE pg_catalog.pg_type;
+ANALYZE pg_catalog.pg_attribute;
+ANALYZE sys.babelfish_namespace_ext;
+ANALYZE sys.babelfish_sysdatabases;
+GO
+
 -- tsql
 -- check for inconsistent metadata after upgrade
 select COUNT(*) FROM sys.babelfish_inconsistent_metadata();

test/JDBC/expected/BABEL-6814-vu-cleanup.out

@@ -0,0 +1,45 @@
+DROP FUNCTION babel_6814_func1;
+GO
+
+-- Drop extra tables created for consistent EXPLAIN plan behavior
+DECLARE @i INT = 1;
+DECLARE @sql NVARCHAR(200);
+WHILE @i <= 100
+BEGIN
+    SET @sql = 'DROP TABLE babel_6814_extra_' + CONVERT(VARCHAR, @i);
+    EXEC(@sql);
+    SET @i = @i + 1;
+END
+GO
+
+-- Drop extra schemas
+DECLARE @j INT = 1;
+DECLARE @sql2 NVARCHAR(200);
+WHILE @j <= 500
+BEGIN
+    SET @sql2 = 'DROP SCHEMA babel_6814_schema_' + CONVERT(VARCHAR, @j);
+    EXEC(@sql2);
+    SET @j = @j + 1;
+END
+GO
+
+DROP VIEW babel_6814_view1;
+GO
+
+DROP PROCEDURE babel_6814_proc1;
+GO
+
+DROP INDEX babel_6814_idx3 ON babel_6814_t2;
+GO
+
+DROP INDEX babel_6814_idx2 ON babel_6814_t1;
+GO
+
+DROP INDEX babel_6814_idx1 ON babel_6814_t1;
+GO
+
+DROP TABLE babel_6814_t2;
+GO
+
+DROP TABLE babel_6814_t1;
+GO

test/JDBC/expected/BABEL-6814-vu-prepare.out

@@ -0,0 +1,53 @@
+CREATE TABLE babel_6814_t1(a int, b varchar(50));
+GO
+
+CREATE TABLE babel_6814_t2(c int, d varchar(50));
+GO
+
+CREATE INDEX babel_6814_idx1 ON babel_6814_t1(a);
+GO
+
+CREATE INDEX babel_6814_idx2 ON babel_6814_t1(b);
+GO
+
+CREATE INDEX babel_6814_idx3 ON babel_6814_t2(c);
+GO
+
+CREATE PROCEDURE babel_6814_proc1 AS SELECT 1;
+GO
+
+CREATE VIEW babel_6814_view1 AS SELECT * FROM babel_6814_t1;
+GO
+
+CREATE FUNCTION babel_6814_func1()
+RETURNS int
+AS
+BEGIN
+RETURN 1;
+END
+GO
+
+-- Create extra tables and indexes to ensure pg_index/pg_class have enough rows
+-- for consistent planner behavior in EXPLAIN tests
+DECLARE @i INT = 1;
+DECLARE @sql NVARCHAR(200);
+WHILE @i <= 100
+BEGIN
+    SET @sql = 'CREATE TABLE babel_6814_extra_' + CONVERT(VARCHAR, @i) + ' (id INT)';
+    EXEC(@sql);
+    SET @sql = 'CREATE INDEX babel_6814_extra_idx_' + CONVERT(VARCHAR, @i) + ' ON babel_6814_extra_' + CONVERT(VARCHAR, @i) + '(id)';
+    EXEC(@sql);
+    SET @i = @i + 1;
+END
+GO
+
+-- Create extra schemas to ensure pg_namespace has enough rows for consistent plans
+DECLARE @j INT = 1;
+DECLARE @sql2 NVARCHAR(200);
+WHILE @j <= 500
+BEGIN
+    SET @sql2 = 'CREATE SCHEMA babel_6814_schema_' + CONVERT(VARCHAR, @j);
+    EXEC(@sql2);
+    SET @j = @j + 1;
+END
+GO