Project/Real_code/gnu/gawk-3.1.3/eval.c
NODE *
assign_val(NODE **lhs_p, NODE *rhs)
{
	if (rhs != *lhs_p) {
		/*
		 * Since we know that the nodes are different,
		 * we can do the unref() before the dupnode().
		 */
		unref(*lhs_p);
		*lhs_p = dupnode(rhs);
	}
	return *lhs_p;
}
/*
 * assign_val --- do mechanics of assignment, for calling from multiple
 *		  places.
 */
do mechanics of assignment, for calling from multiple
places.
do mechanics of assignment for calling from multiple places .
NODE *
assign_val(NODE **lhs_p, NODE *rhs)
{
	if (rhs != *lhs_p) {
		unref(*lhs_p);
		*lhs_p = dupnode(rhs);
	}
	return *lhs_p;
}
NODE * assign_val ( NODE * * lhs_p , NODE * rhs ) { if ( rhs != * lhs_p ) { unref ( * lhs_p ) ; * lhs_p = dupnode ( rhs ) ; } return * lhs_p ; }
assign_val --- do mechanics of assignment, for calling from multiple
                places.
assign_val --- do mechanics of assignment for calling from multiple places .
/*
		 * Since we know that the nodes are different,
		 * we can do the unref() before the dupnode().
		 */