Return to stklval.c CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / pascal / src

Annotation of 43BSD/ucb/pascal/src/stklval.c, revision 1.1.1.1

1.1       root        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: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.