fix build for pre pg 14

Author: okbob

src/assign.c

@@ -124,6 +124,17 @@ plpgsql_check_is_assignable(PLpgSQL_execstate *estate, int dno)
 			plpgsql_check_is_assignable(estate,
 								  ((PLpgSQL_recfield *) datum)->recparentno);
 			break;
+
+#if PG_VERSION_NUM < 140000
+
+		case PLPGSQL_DTYPE_ARRAYELEM:
+			/* assignable if parent record is */
+			plpgsql_check_is_assignable(estate,
+								  ((PLpgSQL_arrayelem *) datum)->arrayparentno);
+			break;
+
+#endif
+
 		default:
 			elog(ERROR, "unrecognized dtype: %d", datum->dtype);
 			break;

src/typdesc.c

@@ -55,6 +55,13 @@ plpgsql_check_CallExprGetRowTarget(PLpgSQL_checkstate *cstate, PLpgSQL_expr *Cal
 		int			nfields = 0;
 		int			numargs;
 
+#if PG_VERSION_NUM < 140000
+
+		List	   *funcargs;
+		ListCell   *lc;
+
+#endif
+
 		plansource = plpgsql_check_get_plan_source(cstate, CallExpr->plan);
 
 		/*
@@ -74,12 +81,26 @@ plpgsql_check_CallExprGetRowTarget(PLpgSQL_checkstate *cstate, PLpgSQL_expr *Cal
 		if (!HeapTupleIsValid(tuple))
 			elog(ERROR, "cache lookup failed for function %u", funcexpr->funcid);
 
+#if PG_VERSION_NUM < 140000
+
+		/* Extract function arguments, and expand any named-arg notation */
+		funcargs = expand_function_arguments(funcexpr->args,
+					   funcexpr->funcresulttype,
+					   tuple);
+
+		get_func_arg_info(tuple, &argtypes, &argnames, &argmodes);
+		numargs = list_length(funcargs);
+
+#else
+
 		/*
 		 * Get the argument names and modes, so that we can deliver on-point error
 		 * messages when something is wrong.
 		 */
 		numargs = get_func_arg_info(tuple, &argtypes, &argnames, &argmodes);
 
+#endif
+
 		ReleaseSysCache(tuple);
 
 		row = (PLpgSQL_row *) palloc0(sizeof(PLpgSQL_row));
@@ -89,6 +110,48 @@ plpgsql_check_CallExprGetRowTarget(PLpgSQL_checkstate *cstate, PLpgSQL_expr *Cal
 		row->lineno = -1;
 		row->varnos = (int *) palloc(numargs * sizeof(int));
 
+#if PG_VERSION_NUM < 140000
+
+		/*
+		 * Construct row
+		 */
+		i = 0;
+		foreach(lc, funcargs)
+		{
+			Node	   *n = lfirst(lc);
+
+			if (argmodes &&
+				(argmodes[i] == PROARGMODE_INOUT ||
+				 argmodes[i] == PROARGMODE_OUT))
+			{
+				if (IsA(n, Param))
+				{
+					Param	   *param = (Param *) n;
+
+					/* paramid is offset by 1 (see make_datum_param()) */
+					row->varnos[nfields++] = param->paramid - 1;
+					plpgsql_check_is_assignable(cstate->estate, param->paramid - 1);
+				}
+				else
+				{
+					/* report error using parameter name, if available */
+					if (argnames && argnames[i] && argnames[i][0])
+						ereport(ERROR,
+								(errcode(ERRCODE_SYNTAX_ERROR),
+								 errmsg("procedure parameter \"%s\" is an output parameter but corresponding argument is not writable",
+										argnames[i])));
+					else
+						ereport(ERROR,
+								(errcode(ERRCODE_SYNTAX_ERROR),
+								 errmsg("procedure parameter %d is an output parameter but corresponding argument is not writable",
+								 i + 1)));
+				}
+			}
+			i++;
+		}
+
+#else
+
 		/*
 		 * Examine procedure's argument list.  Each output arg position should be
 		 * an unadorned plpgsql variable (Datum), which we can insert into the row
@@ -133,6 +196,8 @@ plpgsql_check_CallExprGetRowTarget(PLpgSQL_checkstate *cstate, PLpgSQL_expr *Cal
 
 		Assert(nfields == list_length(stmt->outargs));
 
+#endif
+
 		row->nfields = nfields;
 
 		/* Don't return empty row variable */