Plan 9 from Bell Labs’s /usr/web/sources/contrib/rsc/linuxemu/libc/386/getcallerpc.c
#include <u.h> #include <libc.h> ulong getcallerpc(void *x) { return (((ulong*)(x))[-1]); }