//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
// PLEASE DO NOT EDIT WITHOUT THE EXPLICIT CONSENT OF THE AUTHOR! \\
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

package ilog.language.design.base;

/**
 * @version     Last modified on Thu Apr 04 09:43:13 2002 by hak
 * @author      <a href="mailto:hak@ilog.fr">Hassan A&iuml;t-Kaci</a>
 * @copyright   &copy; 2000-2002 <a href="http://www.ilog.fr/">ILOG, S.A.</a>
 */

import ilog.language.design.backend.Runtime;
import ilog.language.design.backend.NullValueException;

public class SetRealArraySlot extends Instruction
{
  public SetRealArraySlot ()
    {
      setName("SET_ARRAY_R");
    }

  public final void execute (Runtime r) throws NullValueException
    {
      double value = r.popReal();
      double[] array = (double[])r.popObject("can't update an element of a null array");
      r.pushReal(array[r.popInt()] = value);
      r.incIP();
    }
}