1*22193Sdist /* 2*22193Sdist * Copyright (c) 1980 Regents of the University of California. 3*22193Sdist * All rights reserved. The Berkeley software License Agreement 4*22193Sdist * specifies the terms and conditions for redistribution. 5*22193Sdist */ 6774Speter 714743Sthien #ifndef lint 8*22193Sdist static char sccsid[] = "@(#)stklval.c 5.1 (Berkeley) 06/05/85"; 9*22193Sdist #endif not lint 10774Speter 11774Speter #include "whoami.h" 12774Speter #include "0.h" 13774Speter #include "tree.h" 14774Speter #include "opcode.h" 15774Speter #include "objfmt.h" 1614743Sthien #include "tree_ty.h" 17774Speter 18774Speter /* 19774Speter * Lvalue computes the address 20774Speter * of a qualified name and 21774Speter * leaves it on the stack. 22774Speter */ 23774Speter struct nl * 24774Speter stklval(r, modflag) 2514743Sthien struct tnode *r; 2614743Sthien int modflag; 27774Speter { 28774Speter /* 29774Speter * For the purposes of the interpreter stklval 30774Speter * is the same as an lvalue. 31774Speter */ 32774Speter 33774Speter return(lvalue(r, modflag , LREQ )); 34774Speter } 35