Commite34ec13

committed

Allow CALL with polymorphic type arguments

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

1 parent0ce5cf2 commite34ec13Copy full SHA for e34ec13

File tree

+19

-0

lines changed

+19

-0

lines changed

Lines changed: 1 addition & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -2264,6 +2264,7 @@ ExecuteCallStmt(CallStmt *stmt, ParamListInfo params, bool atomic, DestReceiver`
`2264`	`2264`	`/* Initialize function call structure */`
`2265`	`2265`	`InvokeFunctionExecuteHook(fexpr->funcid);`
`2266`	`2266`	`fmgr_info(fexpr->funcid,&flinfo);`
	`2267`	`+fmgr_info_set_expr((Node*)fexpr,&flinfo);`
`2267`	`2268`	`InitFunctionCallInfoData(fcinfo,&flinfo,nargs,fexpr->inputcollid, (Node*)callcontext,NULL);`
`2268`	`2269`
`2269`	`2270`	`/*`

Lines changed: 7 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -116,6 +116,13 @@ SELECT * FROM cp_test;`
`116`	`116`	`100 \| Hello`
`117`	`117`	`(8 rows)`
`118`	`118`
	`119`	`+-- polymorphic types`
	`120`	`+CREATE PROCEDURE ptest6(a int, b anyelement)`
	`121`	`+LANGUAGE SQL`
	`122`	`+AS $$`
	`123`	`+SELECT NULL::int;`
	`124`	`+$$;`
	`125`	`+CALL ptest6(1, 2);`
`119`	`126`	`-- various error cases`
`120`	`127`	`CALL version(); -- error: not a procedure`
`121`	`128`	`ERROR: version() is not a procedure`

Lines changed: 11 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -84,6 +84,17 @@ CALL ptest5(b => 'Hello', a => 10);`
`84`	`84`	`SELECT*FROM cp_test;`
`85`	`85`
`86`	`86`
	`87`	`+-- polymorphic types`
	`88`	`+`
	`89`	`+CREATE PROCEDURE ptest6(aint, b anyelement)`
	`90`	`+LANGUAGE SQL`
	`91`	`+AS $$`
	`92`	`+SELECTNULL::int;`
	`93`	`+$$;`
	`94`	`+`
	`95`	`+CALL ptest6(1,2);`
	`96`	`+`
	`97`	`+`
`87`	`98`	`-- various error cases`
`88`	`99`
`89`	`100`	`CALL version();-- error: not a procedure`

Comments

(0)