/*
\funcref{fun\_copy\_var}{void fun\_copy\_var ()}
    {}
    {}
    {error()}
    {}
    {funcopyv.c}
    {

        This function is called when an {\em op\_copy\_var} opcode is
        encountered in the makefile. Following this opcode, a variable index is
        expected. The index may point to a global variable, to a function
        parameter or to a local variable.

        The function serves multiple assignments. The last pushed variable is
        copied onto the indicated variable. For {\em e\_str} and {\em e\_list}
        variables, this may involve the sharing of occupied memory.

    }
*/

#include "icm-exec.h"

void fun_copy_var ()
{
    register VAR_
        *dest;

    dest = getdest ();
    *dest = stack [sp];

    if (dest->type & (e_str | e_list))
        dest->vu.i->count++;
}