/src/lib9/getcallerpc-power.c - Plan 9 from User Space

Plan 9 from User Space's /usr/local/plan9/src/lib9/getcallerpc-power.c

#include <lib9.h>

ulong
getcallerpc(void *x)
{
	ulong *lp;

	lp = x;

	return lp[-1];
}