Fix recent breakage of decl_cursor_arglist syntax, per Michael Paesold.

tglsfdc · tglsfdc · commit 323f0a6c0148 · 2005-09-14T13:46:47.000Z
diff --git a/src/pl/plpgsql/src/gram.y b/src/pl/plpgsql/src/gram.y
@@ -4,7 +4,7 @@
  *						  procedural language
  *
  * IDENTIFICATION
- *	  $PostgreSQL: pgsql/src/pl/plpgsql/src/gram.y,v 1.80 2005/07/02 17:01:59 momjian Exp $
+ *	  $PostgreSQL: pgsql/src/pl/plpgsql/src/gram.y,v 1.81 2005/09/14 13:46:47 tgl Exp $
  *
  *	  This software is copyrighted by Jan Wieck - Hamburg.
  *
@@ -458,13 +458,13 @@ decl_cursor_args :
 					}
 				;
 
-decl_cursor_arglist : decl_cursor_arglist decl_cursor_arg
+decl_cursor_arglist : decl_cursor_arg
 					{
-						$$ = lappend($1, $2);
+						$$ = list_make1($1);
 					}
-				| decl_cursor_arg
+				| decl_cursor_arglist ',' decl_cursor_arg
 					{
-						$$ = list_make1($1);
+						$$ = lappend($1, $3);
 					}
 				;
 

Original file line number	Diff line number	Diff line change
`@@ -4,7 +4,7 @@`
`4`	`4`	`* procedural language`
`5`	`5`	`*`
`6`	`6`	`* IDENTIFICATION`
`7`		`- * $PostgreSQL: pgsql/src/pl/plpgsql/src/gram.y,v 1.80 2005/07/02 17:01:59 momjian Exp $`
	`7`	`+ * $PostgreSQL: pgsql/src/pl/plpgsql/src/gram.y,v 1.81 2005/09/14 13:46:47 tgl Exp $`
`8`	`8`	`*`
`9`	`9`	`* This software is copyrighted by Jan Wieck - Hamburg.`
`10`	`10`	`*`
`@@ -458,13 +458,13 @@ decl_cursor_args :`
`458`	`458`	`}`
`459`	`459`	`;`
`460`	`460`
`461`		`-decl_cursor_arglist : decl_cursor_arglist decl_cursor_arg`
	`461`	`+decl_cursor_arglist : decl_cursor_arg`
`462`	`462`	`{`
`463`		`- $$ = lappend($1, $2);`
	`463`	`+ $$ = list_make1($1);`
`464`	`464`	`}`
`465`		`- \| decl_cursor_arg`
	`465`	`+ \| decl_cursor_arglist ',' decl_cursor_arg`
`466`	`466`	`{`
`467`		`- $$ = list_make1($1);`
	`467`	`+ $$ = lappend($1, $3);`
`468`	`468`	`}`
`469`	`469`	`;`
`470`	`470`