1*48116Sbostic /*- 2*48116Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*48116Sbostic * All rights reserved. 4*48116Sbostic * 5*48116Sbostic * %sccs.include.redist.c% 622193Sdist */ 7774Speter 814743Sthien #ifndef lint 9*48116Sbostic static char sccsid[] = "@(#)stklval.c 5.2 (Berkeley) 04/16/91"; 10*48116Sbostic #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 * 25774Speter stklval(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