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

hvlad · hvlad · commit cffea05fe24b · 2025-11-01T12:49:40.000+02:00
diff --git a/src/dsql/StmtNodes.cpp b/src/dsql/StmtNodes.cpp
@@ -2604,6 +2604,8 @@ EraseNode* EraseNode::pass2(thread_db* tdbb, CompilerScratch* csb)
 
 	csb->csb_rpt[stream].csb_flags |= csb_update;
 
+	impureOffset = csb->allocImpure<impure_state>();
+
 	return this;
 }
 
@@ -2664,6 +2666,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
`@@ -2604,6 +2604,8 @@ EraseNode* EraseNode::pass2(thread_db* tdbb, CompilerScratch* csb)`
`2604`	`2604`
`2605`	`2605`	`csb->csb_rpt[stream].csb_flags \|= csb_update;`
`2606`	`2606`
	`2607`	`+ impureOffset = csb->allocImpure<impure_state>();`
	`2608`	`+`
`2607`	`2609`	`return this;`
`2608`	`2610`	`}`
`2609`	`2611`
`@@ -2664,6 +2666,8 @@ const StmtNode* EraseNode::erase(thread_db* tdbb, Request* request, WhichTrigger`
`2664`	`2666`	`{`
`2665`	`2667`	`case Request::req_evaluate:`
`2666`	`2668`	`{`
	`2669`	`+ impure->sta_state = 0;`
	`2670`	`+`
`2667`	`2671`	`if (!(marks & MARK_AVOID_COUNTERS))`
`2668`	`2672`	`request->req_records_affected.bumpModified(false);`
`2669`	`2673`