[unix-history] / usr / src / usr.bin / pascal / src / stklval.c

/*-
 * Copyright (c) 1980 The Regents of the University of California.
 * All rights reserved.
 *
 * %sccs.include.redist.c%
 */

#ifndef lint
static char sccsid[] = "@(#)stklval.c	5.2 (Berkeley) %G%";
#endif /* not lint */

#include "whoami.h"
#include "0.h"
#include "tree.h"
#include "opcode.h"
#include "objfmt.h"
#include "tree_ty.h"

/*
 * Lvalue computes the address
 * of a qualified name and
 * leaves it on the stack.
 */
struct nl *
stklval(r, modflag)
	struct  tnode *r;
	int	modflag;
{
	/*
	 * For the purposes of the interpreter stklval
	 * is the same as an lvalue.
	 */

	return(lvalue(r, modflag , LREQ ));
}
Commit	Line	Data
0fc6e47b KB	1	/*-
	2	* Copyright (c) 1980 The Regents of the University of California.
	3	* All rights reserved.
	4	*
	5	* %sccs.include.redist.c%
252367af	6	*/
5b3ea193	7
72fbef68	8	#ifndef lint
0fc6e47b KB	9	static char sccsid[] = "@(#)stklval.c 5.2 (Berkeley) %G%";
0fc6e47b KB	10	#endif /* not lint */
5b3ea193 PK	11
	12	#include "whoami.h"
	13	#include "0.h"
	14	#include "tree.h"
	15	#include "opcode.h"
	16	#include "objfmt.h"
72fbef68	17	#include "tree_ty.h"
5b3ea193 PK	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)
72fbef68 RT	26	struct tnode *r;
72fbef68 RT	27	int modflag;
5b3ea193 PK	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	}