1774Speter /* Copyright (c) 1979 Regents of the University of California */ 2774Speter 3*14743Sthien #ifndef lint 4*14743Sthien static char sccsid[] = "@(#)stklval.c 1.2 08/19/83"; 5*14743Sthien #endif 6774Speter 7774Speter #include "whoami.h" 8774Speter #include "0.h" 9774Speter #include "tree.h" 10774Speter #include "opcode.h" 11774Speter #include "objfmt.h" 12*14743Sthien #include "tree_ty.h" 13774Speter 14774Speter /* 15774Speter * Lvalue computes the address 16774Speter * of a qualified name and 17774Speter * leaves it on the stack. 18774Speter */ 19774Speter struct nl * 20774Speter stklval(r, modflag) 21*14743Sthien struct tnode *r; 22*14743Sthien int modflag; 23774Speter { 24774Speter /* 25774Speter * For the purposes of the interpreter stklval 26774Speter * is the same as an lvalue. 27774Speter */ 28774Speter 29774Speter return(lvalue(r, modflag , LREQ )); 30774Speter } 31