diff --git a/src/pl/plpgsql/src/gram.y b/src/pl/plpgsql/src/gram.y index a1433a9022..6a008be929 100644 --- a/src/pl/plpgsql/src/gram.y +++ b/src/pl/plpgsql/src/gram.y @@ -4,7 +4,7 @@ * procedural language * * IDENTIFICATION - * $Header: /cvsroot/pgsql/src/pl/plpgsql/src/gram.y,v 1.31 2002/03/06 18:50:29 momjian Exp $ + * $Header: /cvsroot/pgsql/src/pl/plpgsql/src/gram.y,v 1.32 2002/05/01 12:40:22 wieck Exp $ * * This software is copyrighted by Jan Wieck - Hamburg. * @@ -641,6 +641,7 @@ decl_defval : ';' decl_defkey : K_ASSIGN | K_DEFAULT + ; proc_sect : { @@ -1024,6 +1025,7 @@ fori_lower : $$.expr = plpgsql_read_expression(K_DOTDOT, ".."); } + ; stmt_fors : opt_label K_FOR lno fors_target K_IN K_SELECT expr_until_loop loop_body { @@ -1053,6 +1055,7 @@ stmt_fors : opt_label K_FOR lno fors_target K_IN K_SELECT expr_until_loop loop_ $$ = (PLpgSQL_stmt *)new; } + ; stmt_dynfors : opt_label K_FOR lno fors_target K_IN K_EXECUTE expr_until_loop loop_body { @@ -1082,6 +1085,7 @@ stmt_dynfors : opt_label K_FOR lno fors_target K_IN K_EXECUTE expr_until_loop lo $$ = (PLpgSQL_stmt *)new; } + ; fors_target : T_RECORD { $$ = yylval.rec; }