Function asgn_to_proc

src/gpre/languages/ada.cpp:583–593

//

static void asgn_to_proc( ref* reference, int column)
{
	SCHAR s[MAX_REF_SIZE];

	for (; reference; reference = reference->ref_next)
	{
		if (!reference->ref_value)
			continue;
		printa(column, "%s := %s;", reference->ref_value, gen_name(s, reference, true));
	}
}


//____________________________________________________________