usr/src/usr.bin/pascal/src/stklval.c

/* Copyright (c) 1979 Regents of the University of California */

#ifndef lint
static  char sccsid[] = "@(#)stklval.c 1.3 %G%";
#endif

#include "whoami.h"
#include "0.h"
#include "tree.h"
#include "opcode.h"
#include "objfmt.h"
#include "tree_ty.h"

/*
 * Lvalue computes the address
 * of a qualified name and
 * leaves it on the stack.
 */
struct nl *
stklval(r, modflag)
        struct  tnode *r;
        int     modflag;
{
        /*
         * For the purposes of the interpreter stklval
         * is the same as an lvalue.
         */

        return(lvalue(r, modflag , LREQ ));
}