2.11BSD#431 - /usr/src/ucb/PORT/pascal/src/stklval.c

   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) 6/5/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: }

Defined functions

Defined variables