Fixed bug #8794 : Called procedure parameter changes during execution without assignment when deleting from updatable view in Firebird 5

hvlad · hvlad · commit 17610be99d77 · 2025-11-01T12:48:24.000+02:00
diff --git a/src/dsql/StmtNodes.cpp b/src/dsql/StmtNodes.cpp
@@ -2607,6 +2607,8 @@ EraseNode* EraseNode::pass2(thread_db* tdbb, CompilerScratch* csb)
 
 	csb->csb_rpt[stream].csb_flags |= csb_update;
 
+	impureOffset = csb->allocImpure<impure_state>();
+
 	return this;
 }
 
@@ -2667,6 +2669,8 @@ const StmtNode* EraseNode::erase(thread_db* tdbb, Request* request, WhichTrigger
 	{
 		case Request::req_evaluate:
 		{
+			impure->sta_state = 0;
+
 			if (!(marks & MARK_AVOID_COUNTERS))
 				request->req_records_affected.bumpModified(false);
 

Original file line number	Diff line number	Diff line change
`@@ -2607,6 +2607,8 @@ EraseNode* EraseNode::pass2(thread_db* tdbb, CompilerScratch* csb)`
`2607`	`2607`
`2608`	`2608`	`csb->csb_rpt[stream].csb_flags \|= csb_update;`
`2609`	`2609`
	`2610`	`+ impureOffset = csb->allocImpure<impure_state>();`
	`2611`	`+`
`2610`	`2612`	`return this;`
`2611`	`2613`	`}`
`2612`	`2614`
`@@ -2667,6 +2669,8 @@ const StmtNode* EraseNode::erase(thread_db* tdbb, Request* request, WhichTrigger`
`2667`	`2669`	`{`
`2668`	`2670`	`case Request::req_evaluate:`
`2669`	`2671`	`{`
	`2672`	`+ impure->sta_state = 0;`
	`2673`	`+`
`2670`	`2674`	`if (!(marks & MARK_AVOID_COUNTERS))`
`2671`	`2675`	`request->req_records_affected.bumpModified(false);`
`2672`	`2676`