Allow CALL with polymorphic type arguments

In order to be able to resolve polymorphic types, we need to set fn_expr
before invoking the procedure.

diff --git a/src/backend/commands/functioncmds.c b/src/backend/commands/functioncmds.c
index 8864d9ae44676941b2c0c1f6cfe005d918bfabfd..acc08b1990ee6b9de51cef52c9988f7731d8e07b 100644 (file)
--- a/src/backend/commands/functioncmds.c
+++ b/src/backend/commands/functioncmds.c
@@ -2264,6 +2264,7 @@ ExecuteCallStmt(CallStmt *stmt, ParamListInfo params, bool atomic, DestReceiver
        /* Initialize function call structure */
        InvokeFunctionExecuteHook(fexpr->funcid);
        fmgr_info(fexpr->funcid, &flinfo);
+       fmgr_info_set_expr((Node *) fexpr, &flinfo);
        InitFunctionCallInfoData(fcinfo, &flinfo, nargs, fexpr->inputcollid, (Node *) callcontext, NULL);
 
        /*

diff --git a/src/test/regress/expected/create_procedure.out b/src/test/regress/expected/create_procedure.out
index 30495971bc8be540a45f1f781e893930efd75cd9..0acea7bd8c7ce3881b728da2001bb6d821a6b54e 100644 (file)
--- a/src/test/regress/expected/create_procedure.out
+++ b/src/test/regress/expected/create_procedure.out
@@ -116,6 +116,13 @@ SELECT * FROM cp_test;
  100 | Hello
 (8 rows)
 
+-- polymorphic types
+CREATE PROCEDURE ptest6(a int, b anyelement)
+LANGUAGE SQL
+AS $$
+SELECT NULL::int;
+$$;
+CALL ptest6(1, 2);
 -- various error cases
 CALL version();  -- error: not a procedure
 ERROR:  version() is not a procedure

diff --git a/src/test/regress/sql/create_procedure.sql b/src/test/regress/sql/create_procedure.sql
index 22cc497ebeeaa30cfd99b5a591925425bf3c7d13..0a9af8c906322e4b83150ebbe62751e6201e0252 100644 (file)
--- a/src/test/regress/sql/create_procedure.sql
+++ b/src/test/regress/sql/create_procedure.sql
@@ -84,6 +84,17 @@ CALL ptest5(b => 'Hello', a => 10);
 SELECT * FROM cp_test;
 
 
+-- polymorphic types
+
+CREATE PROCEDURE ptest6(a int, b anyelement)
+LANGUAGE SQL
+AS $$
+SELECT NULL::int;
+$$;
+
+CALL ptest6(1, 2);
+
+
 -- various error cases
 
 CALL version();  -- error: not a procedure