148116Sbostic /*- 2*62217Sbostic * Copyright (c) 1980, 1993 3*62217Sbostic * The Regents of the University of California. All rights reserved. 448116Sbostic * 548116Sbostic * %sccs.include.redist.c% 622193Sdist */ 7774Speter 814743Sthien #ifndef lint 9*62217Sbostic static char sccsid[] = "@(#)stklval.c 8.1 (Berkeley) 06/06/93"; 1048116Sbostic #endif /* not lint */ 11774Speter 12774Speter #include "whoami.h" 13774Speter #include "0.h" 14774Speter #include "tree.h" 15774Speter #include "opcode.h" 16774Speter #include "objfmt.h" 1714743Sthien #include "tree_ty.h" 18774Speter 19774Speter /* 20774Speter * Lvalue computes the address 21774Speter * of a qualified name and 22774Speter * leaves it on the stack. 23774Speter */ 24774Speter struct nl * stklval(r,modflag)25774Speterstklval(r, modflag) 2614743Sthien struct tnode *r; 2714743Sthien int modflag; 28774Speter { 29774Speter /* 30774Speter * For the purposes of the interpreter stklval 31774Speter * is the same as an lvalue. 32774Speter */ 33774Speter 34774Speter return(lvalue(r, modflag , LREQ )); 35774Speter } 36