Postfix for #7586 (procedure output named arguments).

Thanks to Pavel Zotov.
FirebirdSQL · Jan 13, 2024 · 74976b6 · 74976b6
1 parent 2305463
commit 74976b6
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/src/jrd/cmp.cpp b/src/jrd/cmp.cpp
@@ -560,12 +560,17 @@ bool CMP_procedure_arguments(
 				argsByName.remove(parameter->prm_name);
 			}
 
-			if (isInput && (!argValue || !*argValue))
+			if (!argValue || !*argValue)
 			{
-				if (parameter->prm_default_value)
-					*sourceArgIt = CMP_clone_node(tdbb, csb, parameter->prm_default_value);
+				if (isInput)
+				{
+					if (parameter->prm_default_value)
+						*sourceArgIt = CMP_clone_node(tdbb, csb, parameter->prm_default_value);
+					else
+						mismatchStatus << Arg::Gds(isc_param_no_default_not_specified) << parameter->prm_name;
+				}
 				else
-					mismatchStatus << Arg::Gds(isc_param_no_default_not_specified) << parameter->prm_name;
+					continue;
 			}
 
 			++sourceArgIt;