arrayname
vp = global(arrayname(sp));
char * arrayname ARGS((const char *));
vpbase = (vp->flag & ARRAY) ? global(arrayname(var)) : vp;