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