Function par_end_store

src/gpre/par.cpp:1957–2052

//

static act* par_end_store(bool special)
{
	if (!cur_store)
		PAR_error("unmatched END_STORE");

	PAR_end();

	act* begin_action = (act*) MSC_pop(&cur_store);
	gpre_req* request = begin_action->act_request;

	if (request->req_type == REQ_store)
	{
		if (gpreGlob.errors_global)
			return NULL;

		// Make up an assignment list for all field references

		int count = 0;
		for (ref* reference = request->req_references; reference; reference = reference->ref_next)
		{
			if (!reference->ref_master)
				count++;
		}

		gpre_nod* const assignments = MSC_node(nod_list, (SSHORT) count);
		request->req_node =
			MSC_ternary(nod_store, (gpre_nod*) request->req_contexts, assignments, NULL);
		count = 0;

		for (ref* reference = request->req_references; reference; reference = reference->ref_next)
		{
			if (reference->ref_master)
				continue;
			gpre_nod* item = MSC_node(nod_assignment, 2);
			item->nod_arg[0] = MSC_unary(nod_value, (gpre_nod*) reference);
			item->nod_arg[1] = MSC_unary(nod_field, (gpre_nod*) reference);
			assignments->nod_arg[count++] = item;
		}
	}
	else
	{
		// if the request type is store2, we have store ...returning_values.
		// The next action on the cur_store stack points to a upd structure
		// which will give us the assignments for this one.

		act* action2 = (act*) MSC_pop(&cur_store);
		upd* return_values = (upd*) action2->act_object;

		// 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 == return_values->upd_update &&
				reference->ref_level >= return_values->upd_level &&
				!reference->ref_master)