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