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

package ilog.language.design.base;

/**
 * @version     Last modified on Tue Feb 19 10:36:27 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;

public class FillArrayFromObjectArray extends Instruction implements PushValue, PushObject
{
  public FillArrayFromObjectArray ()
    {
      setName("FILL_ARRAY_OA");
    }

  public final void execute (Runtime r)
    {
      Object[] array = new Object[r.popInt()];
      Object[] seed = (Object[])(array[0] = r.popObject());
      for (int i=1; i<array.length; i++)
        array[i] = r.copy(seed);
      r.pushObject(array);
      r.incIP();
    }
}