Function EXP_post_field

src/gpre/exp.cpp:570–621

//

ref* EXP_post_field(gpre_fld* field, gpre_ctx* context, bool null_flag)
{
	TEXT s[128];

	gpre_req* request = context->ctx_request;

	// If the reference is already posted, return the reference

	ref* reference;
	for (reference = request->req_references; reference; reference = reference->ref_next)
	{
		if (reference->ref_context == context)
		{
			gpre_fld* ref_field = reference->ref_field;
			if (ref_field == field ||
				(ref_field->fld_symbol == field->fld_symbol && ref_field->fld_array == field->fld_array))
			{
				if (!null_flag &&
					(ref_field->fld_dtype != field->fld_dtype ||
						ref_field->fld_length != field->fld_length ||
						ref_field->fld_scale != field->fld_scale))
				{
					if (reference->ref_flags & REF_null)
						reference->ref_field = field;
					else
					{
						sprintf(s, "field %s is inconsistently cast", field->fld_symbol->sym_string);
						PAR_error(s);
					}
				}
				if (request->req_level > reference->ref_level)
					reference->ref_level = request->req_level;

				if (!null_flag)
					reference->ref_flags &= ~REF_null;
				return reference;
			}
		}
	}

	// This is first occurrence of field, make a new reference

	reference = MSC_reference(&request->req_references);
	reference->ref_context = context;
	reference->ref_field = field;
	reference->ref_level = request->req_level;

	if (null_flag)
		reference->ref_flags |= REF_null;

	return reference;
}


//____________________________________________________________