|
|
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.