|
|
1.1 root 1: /* Copyright (c) 1979 Regents of the University of California */
2:
3: static char sccsid[] = "@(#)stklval.c 1.1 8/27/80";
4:
5: #include "whoami.h"
6: #include "0.h"
7: #include "tree.h"
8: #include "opcode.h"
9: #include "objfmt.h"
10:
11: /*
12: * Lvalue computes the address
13: * of a qualified name and
14: * leaves it on the stack.
15: */
16: struct nl *
17: stklval(r, modflag)
18: int *r, modflag;
19: {
20: /*
21: * For the purposes of the interpreter stklval
22: * is the same as an lvalue.
23: */
24:
25: return(lvalue(r, modflag , LREQ ));
26: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.