:i	static char Vcaller_sccs_id[] = "%W% %G%";
:1#include "V.h"
/*
* Return a pointer to the name of the function n  levels  above  the  caller.
* Note  that Vcaller(0) returns the caller's name; Vcaller(1) returns the
* name of the function one level higher, and so on.
*/
char *
Vcaller(n)
{	V_f *dp;

	dp = Vfcts;
	while (n-- > 0 && dp)
		dp = dp->list;
	return dp ? dp->name : 0;
}