NotificationsYou must be signed in to change notification settings
Fork6
Star31

Commitb631d01

committed

Fix pl/tcl's handling of errors from Tcl_ListObjGetElements().

In a procedure or function returning tuple, we use that function toparse the Tcl script's result, which is supposed to be a Tcl list.If it isn't, you get an error. Commit26abb50 incautiouslysupposed that we could use throw_tcl_error() to report such an error.That doesn't actually work, because low-level functions likeTcl_ListObjGetElements() don't fill Tcl's errorInfo variable.The result is either a null-pointer-dereference crash or emissionof misleading context information describing the previous Tcl error.Back off to just reporting the interpreter's result string, andimprove throw_tcl_error()'s comment to explain when to use it.Also, although the similar code in pltcl_trigger_handler() avoidedthis mistake, it was using a fairly confusing wording of theerror message. Improve that while we're here.Per report from A. Kozhemyakin. Back-patch to all supportedbranches.Erik Wienhold and Tom LaneDiscussion:https://postgr.es/m/6a2a1c40-2b2c-4a33-8b72-243c0766fcda@postgrespro.ru

1 parentcd2624f commitb631d01Copy full SHA for b631d01

File tree

3 files changed

+28

-2

lines changed

src/pl/tcl
- expected
  - pltcl_call.out
- pltcl.c
- sql
  - pltcl_call.sql

3 files changed

+28

-2

lines changed

`‎src/pl/tcl/expected/pltcl_call.out`

Lines changed: 8 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -66,6 +66,14 @@ END`
`66`	`66`	`$$;`
`67`	`67`	`NOTICE: a: 10`
`68`	`68`	`NOTICE: _a: 10, _b: 20`
	`69`	`+-- syntax error in result tuple`
	`70`	`+CREATE PROCEDURE test_proc10(INOUT a text)`
	`71`	`+LANGUAGE pltcl`
	`72`	`+AS $$`
	`73`	`+return [list a {$a + $a}])`
	`74`	`+$$;`
	`75`	`+CALL test_proc10('abc');`
	`76`	`+ERROR: could not parse function return value: list element in braces followed by ")" instead of space`
`69`	`77`	`DROP PROCEDURE test_proc1;`
`70`	`78`	`DROP PROCEDURE test_proc2;`
`71`	`79`	`DROP PROCEDURE test_proc3;`

`‎src/pl/tcl/pltcl.c`

Lines changed: 9 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -1026,7 +1026,10 @@ pltcl_func_handler(PG_FUNCTION_ARGS, pltcl_call_state *call_state,`
`1026`	`1026`	`/* Convert function result to tuple */`
`1027`	`1027`	`resultObj=Tcl_GetObjResult(interp);`
`1028`	`1028`	`if (Tcl_ListObjGetElements(interp,resultObj,&resultObjc,&resultObjv)==TCL_ERROR)`
`1029`		`-throw_tcl_error(interp,prodesc->user_proname);`
	`1029`	`+ereport(ERROR,`
	`1030`	`+(errcode(ERRCODE_EXTERNAL_ROUTINE_EXCEPTION),`
	`1031`	`+errmsg("could not parse function return value: %s",`
	`1032`	`+utf_u2e(Tcl_GetStringResult(interp)))));`
`1030`	`1033`
`1031`	`1034`	`tup=pltcl_build_tuple_result(interp,resultObjv,resultObjc,`
`1032`	`1035`	`call_state);`
`@@ -1292,7 +1295,7 @@ pltcl_trigger_handler(PG_FUNCTION_ARGS, pltcl_call_state *call_state,`
`1292`	`1295`	`&result_Objc,&result_Objv)!=TCL_OK)`
`1293`	`1296`	`ereport(ERROR,`
`1294`	`1297`	`(errcode(ERRCODE_E_R_I_E_TRIGGER_PROTOCOL_VIOLATED),`
`1295`		`-errmsg("could notsplitreturn value from trigger: %s",`
	`1298`	`+errmsg("could notparse triggerreturn value: %s",`
`1296`	`1299`	`utf_u2e(Tcl_GetStringResult(interp)))));`
`1297`	`1300`
`1298`	`1301`	`/* Convert function result to tuple */`
`@@ -1355,6 +1358,10 @@ pltcl_event_trigger_handler(PG_FUNCTION_ARGS, pltcl_call_state *call_state,`
`1355`	`1358`
`1356`	`1359`	`/**********************************************************************`
`1357`	`1360`	`* throw_tcl_error- ereport an error returned from the Tcl interpreter`
	`1361`	`+ *`
	`1362`	`+ * Caution: use this only to report errors returned by Tcl_EvalObjEx() or`
	`1363`	`+ * other variants of Tcl_Eval(). Other functions may not fill "errorInfo",`
	`1364`	`+ * so it could be unset or even contain details from some previous error.`
`1358`	`1365`	`**********************************************************************/`
`1359`	`1366`	`staticvoid`
`1360`	`1367`	`throw_tcl_error(Tcl_Interpinterp,constcharproname)`

`‎src/pl/tcl/sql/pltcl_call.sql`

Lines changed: 11 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -71,6 +71,17 @@ END`
`71`	`71`	`$$;`
`72`	`72`
`73`	`73`
	`74`	`+-- syntax error in result tuple`
	`75`	`+`
	`76`	`+CREATE PROCEDURE test_proc10(INOUT atext)`
	`77`	`+LANGUAGE pltcl`
	`78`	`+AS $$`
	`79`	`+return [list a {$a+ $a}])`
	`80`	`+$$;`
	`81`	`+`
	`82`	`+CALL test_proc10('abc');`
	`83`	`+`
	`84`	`+`
`74`	`85`	`DROP PROCEDURE test_proc1;`
`75`	`86`	`DROP PROCEDURE test_proc2;`
`76`	`87`	`DROP PROCEDURE test_proc3;`

0 commit comments

Comments

(0)

Movatterモバイル変換

Navigation Menu

Search code, repositories, users, issues, pull requests...

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Commitb631d01

File tree

3 files changed

3 files changed

`‎src/pl/tcl/expected/pltcl_call.out`

`‎src/pl/tcl/pltcl.c`

`‎src/pl/tcl/sql/pltcl_call.sql`

0 commit comments