1*774Speter /* Copyright (c) 1979 Regents of the University of California */
2*774Speter 
3*774Speter static	char sccsid[] = "@(#)stklval.c 1.1 08/27/80";
4*774Speter 
5*774Speter #include "whoami.h"
6*774Speter #include "0.h"
7*774Speter #include "tree.h"
8*774Speter #include "opcode.h"
9*774Speter #include "objfmt.h"
10*774Speter 
11*774Speter /*
12*774Speter  * Lvalue computes the address
13*774Speter  * of a qualified name and
14*774Speter  * leaves it on the stack.
15*774Speter  */
16*774Speter struct nl *
17*774Speter stklval(r, modflag)
18*774Speter 	int *r, modflag;
19*774Speter {
20*774Speter 	/*
21*774Speter 	 * For the purposes of the interpreter stklval
22*774Speter 	 * is the same as an lvalue.
23*774Speter 	 */
24*774Speter 
25*774Speter 	return(lvalue(r, modflag , LREQ ));
26*774Speter }
27