ref: e11c7aa718df592bd69de53ce1d6498cc870f256 dir: purgatorio/lib9/getcallerpc-AIX-power.c
#include <lib9.h> ulong getcallerpc(void *x) { ulong *lp; lp = x; return lp[-1]; }