1 /*- 2 * Copyright (c) 1980, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 */ 7 8 #ifndef lint 9 static char sccsid[] = "@(#)stklval.c 8.1 (Berkeley) 06/06/93"; 10 #endif /* not lint */ 11 12 #include "whoami.h" 13 #include "0.h" 14 #include "tree.h" 15 #include "opcode.h" 16 #include "objfmt.h" 17 #include "tree_ty.h" 18 19 /* 20 * Lvalue computes the address 21 * of a qualified name and 22 * leaves it on the stack. 23 */ 24 struct nl * 25 stklval(r, modflag) 26 struct tnode *r; 27 int modflag; 28 { 29 /* 30 * For the purposes of the interpreter stklval 31 * is the same as an lvalue. 32 */ 33 34 return(lvalue(r, modflag , LREQ )); 35 } 36