Forgot to handle the new SPI_OK_REWRITTEN result code in a couple places.

hlinnaka · hlinnaka · commit 410a372ae31b · 2009-01-21T11:13:14.000Z
diff --git a/src/pl/plpgsql/src/pl_exec.c b/src/pl/plpgsql/src/pl_exec.c
@@ -8,7 +8,7 @@
  *
  *
  * IDENTIFICATION
- *	  $PostgreSQL: pgsql/src/pl/plpgsql/src/pl_exec.c,v 1.230 2009/01/21 11:02:40 heikki Exp $
+ *	  $PostgreSQL: pgsql/src/pl/plpgsql/src/pl_exec.c,v 1.231 2009/01/21 11:13:14 heikki Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -2949,6 +2949,7 @@ exec_stmt_dynexecute(PLpgSQL_execstate *estate,
 		case SPI_OK_UPDATE_RETURNING:
 		case SPI_OK_DELETE_RETURNING:
 		case SPI_OK_UTILITY:
+		case SPI_OK_REWRITTEN:
 			break;
 
 		case 0:
diff --git a/src/pl/tcl/pltcl.c b/src/pl/tcl/pltcl.c
@@ -2,7 +2,7 @@
  * pltcl.c		- PostgreSQL support for Tcl as
  *				  procedural language (PL)
  *
- *	  $PostgreSQL: pgsql/src/pl/tcl/pltcl.c,v 1.126 2009/01/14 20:01:52 petere Exp $
+ *	  $PostgreSQL: pgsql/src/pl/tcl/pltcl.c,v 1.127 2009/01/21 11:13:14 heikki Exp $
  *
  **********************************************************************/
 
@@ -1825,6 +1825,7 @@ pltcl_process_SPI_result(Tcl_Interp *interp,
 			break;
 
 		case SPI_OK_UTILITY:
+		case SPI_OK_REWRITTEN:
 			if (tuptable == NULL)
 			{
 				Tcl_SetResult(interp, "0", TCL_STATIC);

Original file line number	Diff line number	Diff line change
`@@ -8,7 +8,7 @@`
`8`	`8`	`*`
`9`	`9`	`*`
`10`	`10`	`* IDENTIFICATION`
`11`		`- * $PostgreSQL: pgsql/src/pl/plpgsql/src/pl_exec.c,v 1.230 2009/01/21 11:02:40 heikki Exp $`
	`11`	`+ * $PostgreSQL: pgsql/src/pl/plpgsql/src/pl_exec.c,v 1.231 2009/01/21 11:13:14 heikki Exp $`
`12`	`12`	`*`
`13`	`13`	`*-------------------------------------------------------------------------`
`14`	`14`	`*/`
`@@ -2949,6 +2949,7 @@ exec_stmt_dynexecute(PLpgSQL_execstate *estate,`
`2949`	`2949`	`case SPI_OK_UPDATE_RETURNING:`
`2950`	`2950`	`case SPI_OK_DELETE_RETURNING:`
`2951`	`2951`	`case SPI_OK_UTILITY:`
	`2952`	`+ case SPI_OK_REWRITTEN:`
`2952`	`2953`	`break;`
`2953`	`2954`
`2954`	`2955`	`case 0:`
Original file line number	Diff line number	Diff line change
`@@ -2,7 +2,7 @@`
`2`	`2`	`* pltcl.c - PostgreSQL support for Tcl as`
`3`	`3`	`* procedural language (PL)`
`4`	`4`	`*`
`5`		`- * $PostgreSQL: pgsql/src/pl/tcl/pltcl.c,v 1.126 2009/01/14 20:01:52 petere Exp $`
	`5`	`+ * $PostgreSQL: pgsql/src/pl/tcl/pltcl.c,v 1.127 2009/01/21 11:13:14 heikki Exp $`
`6`	`6`	`*`
`7`	`7`	`**********************************************************************/`
`8`	`8`
`@@ -1825,6 +1825,7 @@ pltcl_process_SPI_result(Tcl_Interp *interp,`
`1825`	`1825`	`break;`
`1826`	`1826`
`1827`	`1827`	`case SPI_OK_UTILITY:`
	`1828`	`+ case SPI_OK_REWRITTEN:`
`1828`	`1829`	`if (tuptable == NULL)`
`1829`	`1830`	`{`
`1830`	`1831`	`Tcl_SetResult(interp, "0", TCL_STATIC);`