Function post_map

src/gpre/sqe.cpp:3566–3600

//

static gpre_nod* post_map( gpre_nod* node, map* to_map)
{
	mel* element;

	assert_IS_NOD(node);

	// Search existing map for equivalent expression.  If we find one,
	// return a reference to it.

	if (node->nod_type == nod_map_ref)
	{
		element = (mel*) node->nod_arg[0];
		if (element->mel_context == to_map->map_context)
			return node;
	}

	for (element = to_map->map_elements; element; element = element->mel_next)
	{
		if (compare_expr(node, element->mel_expr))
			return MSC_unary(nod_map_ref, (gpre_nod*) element);
	}

	// We need to make up a new map reference

	element = (mel*) MSC_alloc(sizeof(mel));
	element->mel_next = to_map->map_elements;
	to_map->map_elements = element;
	element->mel_position = to_map->map_count++;
	element->mel_expr = node;
	element->mel_context = to_map->map_context;

	// Make up a reference to the map element

	return MSC_unary(nod_map_ref, (gpre_nod*) element);
}


//____________________________________________________________