Return to stklval.c CVS log

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

Annotation of 43BSDTahoe/ucb/pascal/src/stklval.c, revision 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.