Function par_end_modify

src/gpre/par.cpp:1853–1927

//

static act* par_end_modify()
{
	if (!cur_modify)
		PAR_error("unmatched END_MODIFY");

	PAR_end();
	upd* modify = (upd*) MSC_pop(&cur_modify);

	if (gpreGlob.errors_global)
		return NULL;

	gpre_req* request = modify->upd_request;

	// used at the end of this function
	act* begin_action = request->req_actions;
	while ((upd*) begin_action->act_object != modify)
		begin_action = begin_action->act_next;

	// Build assignments for all fields and null flags referenced

	gpre_lls* stack = NULL;
	int count = 0;

	for (ref* reference = request->req_references; reference; reference = reference->ref_next)
	{
		if (reference->ref_context == modify->upd_source &&
			reference->ref_level >= modify->upd_level &&
			!reference->ref_master)
		{
			ref* change = MSC_reference(&modify->upd_references);
			change->ref_context = modify->upd_update;
			change->ref_field = reference->ref_field;
			change->ref_source = reference;
			change->ref_flags = reference->ref_flags;

			gpre_nod* item = MSC_node(nod_assignment, 2);
			item->nod_arg[0] = MSC_unary(nod_value, (gpre_nod*) change);
			item->nod_arg[1] = MSC_unary(nod_field, (gpre_nod*) change);
			MSC_push((gpre_nod*) item, &stack);
			count++;

			if (reference->ref_null)
			{
				ref* flag = MSC_reference(&modify->upd_references);
				flag->ref_context = change->ref_context;
				flag->ref_field = flag_field;
				flag->ref_master = change;
				flag->ref_source = reference->ref_null;
				change->ref_null = flag;

				item = MSC_node(nod_assignment, 2);
				item->nod_arg[0] = MSC_unary(nod_value, (gpre_nod*) flag);
				item->nod_arg[1] = MSC_unary(nod_field, (gpre_nod*) flag);
				MSC_push((gpre_nod*) item, &stack);
				count++;
			}
		}
	}