9base

revived minimalist port of Plan 9 userland to Unix
git clone git://git.suckless.org/9base
Log | Files | Refs | README | LICENSE

getcallerpc-power.c (89B)

      1 #include <lib9.h>
      2 
      3 ulong
      4 getcallerpc(void *x)
      5 {
      6 	ulong *lp;
      7 
      8 	lp = x;
      9 
     10 	return lp[-1];
     11 }