Function par_returning_values

src/gpre/par.cpp:2705–2771

//

static act* par_returning_values()
{
	if (!cur_store)
		PAR_error("STORE must precede RETURNING_VALUES");

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

	// First take care of the impending store:
	// Make up an assignment list for all field references  and
	// clone the references while we are at it

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

	gpre_nod* 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)
	{
		ref* save_ref = MSC_reference(&begin_action->act_object);
		save_ref->ref_context = reference->ref_context;
		save_ref->ref_field = reference->ref_field;
		save_ref->ref_source = reference;
		save_ref->ref_flags = reference->ref_flags;

		if (reference->ref_master)
			continue;
		gpre_nod* item = MSC_node(nod_assignment, 2);
		item->nod_arg[0] = MSC_unary(nod_value, (gpre_nod*) save_ref);
		item->nod_arg[1] = MSC_unary(nod_field, (gpre_nod*) save_ref);
		assignments->nod_arg[count++] = item;
	}

	// Next make an updated context for post_store actions

	upd* new_values = (upd*) MSC_alloc(UPD_LEN);
	gpre_ctx* source = request->req_contexts;
	request->req_type = REQ_store2;

	gpre_ctx* new_ctx = MSC_context(request);
	new_ctx->ctx_symbol = source->ctx_symbol;
	new_ctx->ctx_relation = source->ctx_relation;
	new_ctx->ctx_symbol->sym_object = new_ctx; // pointing to itself?

	// make an update block to hold everything known about referenced fields

	act* action = MSC_action(request, ACT_store2);
	action->act_object = (ref*) new_values;

	new_values->upd_request = request;
	new_values->upd_source = source;