[Firebird-checkins] CVS: firebird2/src/jrd cmp.cpp,1.182,1.183

[Dmitry Y. <di...@us...>]

Build Version :  T2.0.0.11567 Firebird 2.0 Alpha 3

(writeBuildNum.sh,v 1.11716 2005/09/30 11:40:53 dimitr Exp  )

Update of /cvsroot/firebird/firebird2/src/jrd
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24429

Modified Files:
	cmp.cpp 
Log Message:
Fixed two bugs with PSQL cursors.

Index: cmp.cpp
===================================================================
RCS file: /cvsroot/firebird/firebird2/src/jrd/cmp.cpp,v
retrieving revision 1.182
retrieving revision 1.183
diff -b -U3 -r1.182 -r1.183
--- cmp.cpp	24 Aug 2005 09:14:35 -0000	1.182
+++ cmp.cpp	30 Sep 2005 11:40:52 -0000	1.183
@@ -3520,6 +3520,23 @@
 	case nod_stream:
 		return (jrd_nod*) pass1_rse(tdbb, csb, (RecordSelExpr*) node, view, view_stream);
 
+	case nod_dcl_cursor:
+		node->nod_arg[e_dcl_cursor_rse] =
+			pass1(tdbb, csb, node->nod_arg[e_dcl_cursor_rse], view, view_stream,
+				  validate_expr);
+		break;
+
+	case nod_cursor_stmt:
+		if ((UCHAR) (IPTR) node->nod_arg[e_cursor_stmt_op] == blr_cursor_fetch) {
+			node->nod_arg[e_cursor_stmt_seek] =
+				pass1(tdbb, csb, node->nod_arg[e_cursor_stmt_seek], view, view_stream,
+					validate_expr);
+			node->nod_arg[e_cursor_stmt_into] =
+				pass1(tdbb, csb, node->nod_arg[e_cursor_stmt_into], view, view_stream,
+					validate_expr);
+		}
+		break;
+
 	case nod_max:
 	case nod_min:
 	case nod_average: