From b266e11a1c22ff5b8c48703c9ad0a9873918d2fc Mon Sep 17 00:00:00 2001
From: dimitr <dimitr@users.sourceforge.net>
Date: Wed, 9 May 2012 13:55:59 +0000
Subject: [PATCH] Fixed my patch for CORE-3777 to cure the unexpectedly
 introduced regression.

---
 src/jrd/cmp.cpp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/jrd/cmp.cpp b/src/jrd/cmp.cpp
index 763bd07e41..ab8bf2958e 100644
--- a/src/jrd/cmp.cpp
+++ b/src/jrd/cmp.cpp
@@ -5612,7 +5612,6 @@ jrd_nod* CMP_pass2(thread_db* tdbb, CompilerScratch* csb, jrd_nod* const node, j
 	case nod_current_timestamp:
 	case nod_current_date:
 	case nod_derived_expr:
-	case nod_stmt_expr:
 #ifdef SCROLLABLE_CURSORS
 	case nod_seek:
 #endif
@@ -5623,6 +5622,10 @@ jrd_nod* CMP_pass2(thread_db* tdbb, CompilerScratch* csb, jrd_nod* const node, j
 		}
 		break;
 
+	case nod_stmt_expr:
+		csb->csb_impure += sizeof(impure_value);
+		break;
+
 	// compute the target descriptor to compute computational class
 
 	case nod_multiply: