Attempt to fix bug #7428 : Problem with editing procedures being in use.

Backported part of commit 760d4b1
FirebirdSQL · Jan 20, 2023 · d9d57ea · d9d57ea
1 parent be7609b
commit d9d57ea
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/src/dsql/metd.epp b/src/dsql/metd.epp
@@ -843,9 +843,13 @@ dsql_udf* METD_get_function(jrd_tra* transaction, DsqlCompilerScratch* dsqlScrat
 
 		if (MET_dsql_cache_use(tdbb, SYM_udf, metaName.identifier, metaName.package))
 			userFunc->udf_flags |= UDF_dropped;
+	}
+
+	if (userFunc && (userFunc->udf_flags & UDF_dropped))
+		userFunc = nullptr;
 
+	if (userFunc)
 		return userFunc;
-	}
 
 	// Now see if it is in the database
 
@@ -1204,9 +1208,13 @@ dsql_prc* METD_get_procedure(jrd_tra* transaction, DsqlCompilerScratch* dsqlScra
 
 		if (MET_dsql_cache_use(tdbb, SYM_procedure, metaName.identifier, metaName.package))
 			procedure->prc_flags |= PRC_dropped;
+	}
+
+	if (procedure && (procedure->prc_flags & PRC_dropped))
+		procedure = nullptr;
 
+	if (procedure)
 		return procedure;
-	}
 
 	// now see if it is in the database