Fixed bug CORE-2032 : Stored procedure recursively called by calculated field fails after reconnect

hvlad · hvlad · commit 40e1b3c9f579 · 2021-02-03T18:57:51.000+02:00
diff --git a/src/dsql/ExprNodes.cpp b/src/dsql/ExprNodes.cpp
@@ -5647,7 +5647,8 @@ ValueExprNode* FieldNode::pass1(thread_db* tdbb, CompilerScratch* csb)
 	jrd_rel* relation = tail->csb_relation;
 	jrd_fld* field;
 
-	if (!relation || !(field = MET_get_field(relation, fieldId)))
+	if (!relation || !(field = MET_get_field(relation, fieldId)) ||
+		(field->fld_flags & FLD_parse_computed))
 	{
 		if (relation && (relation->rel_flags & REL_being_scanned))
 			csb->csb_g_flags |= csb_reload;
diff --git a/src/jrd/Relation.h b/src/jrd/Relation.h
@@ -474,6 +474,8 @@ inline jrd_rel::GCShared::~GCShared()
 
 // Field block, one for each field in a scanned relation
 
+const USHORT FLD_parse_computed = 0x0001;		// computed expression is being parsed
+
 class jrd_fld : public pool_alloc<type_fld>
 {
 public:
@@ -487,6 +489,7 @@ class jrd_fld : public pool_alloc<type_fld>
 	Firebird::MetaName	fld_name;	// Field name
 	Firebird::MetaName	fld_security_name;	// security class name for field
 	Firebird::MetaName	fld_generator_name;	// identity generator name
+	USHORT fld_flags;
 
 public:
 	explicit jrd_fld(MemoryPool& p)
diff --git a/src/jrd/met.epp b/src/jrd/met.epp
@@ -4000,6 +4000,8 @@ void MET_scan_relation(thread_db* tdbb, jrd_rel* relation)
 
 			case RSR_computed_blr:
 				{
+					AutoSetRestoreFlag<USHORT> flag(&field->fld_flags, FLD_parse_computed, true);
+
 					DmlNode* nod = dependencies ?
 						MET_get_dependencies(tdbb, relation, p, length, csb, NULL, NULL, NULL,
 							field->fld_name, obj_computed, 0, depTrans) :

Original file line number	Diff line number	Diff line change
`@@ -5647,7 +5647,8 @@ ValueExprNode* FieldNode::pass1(thread_db* tdbb, CompilerScratch* csb)`
`5647`	`5647`	`jrd_rel* relation = tail->csb_relation;`
`5648`	`5648`	`jrd_fld* field;`
`5649`	`5649`
`5650`		`- if (!relation \|\| !(field = MET_get_field(relation, fieldId)))`
	`5650`	`+ if (!relation \|\| !(field = MET_get_field(relation, fieldId)) \|\|`
	`5651`	`+ (field->fld_flags & FLD_parse_computed))`
`5651`	`5652`	`{`
`5652`	`5653`	`if (relation && (relation->rel_flags & REL_being_scanned))`
`5653`	`5654`	`csb->csb_g_flags \|= csb_reload;`
Original file line number	Diff line number	Diff line change
`@@ -4000,6 +4000,8 @@ void MET_scan_relation(thread_db* tdbb, jrd_rel* relation)`
`4000`	`4000`
`4001`	`4001`	`case RSR_computed_blr:`
`4002`	`4002`	`{`
	`4003`	`+ AutoSetRestoreFlag<USHORT> flag(&field->fld_flags, FLD_parse_computed, true);`
	`4004`	`+`
`4003`	`4005`	`DmlNode* nod = dependencies ?`
`4004`	`4006`	`MET_get_dependencies(tdbb, relation, p, length, csb, NULL, NULL, NULL,`
`4005`	`4007`	`field->fld_name, obj_computed, 0, depTrans) :`