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

package ilog.language.design.base;

/**
 * @version     Last modified on Mon May 03 17:36:39 2002 by cgefflot
 * @author      <a href="mailto:cgefflot@ilog.fr">Christophe GEFFLOT</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.RuntimeSet;

public class NextObjectOffSet extends Instruction
{
  public NextObjectOffSet ()
    {
      setName("NEXT_O_OFFSET");
    }

  public final void execute (Runtime r)
    {
      RuntimeSet set = (RuntimeSet)r.popObject("can't access the element of a null set");
      int cpt = r.popInt();
      Object value = r.popObject();
      int i = 0;
      while (i < cpt) {       
        value = set.next(value); 
        i++;
      }
      r.pushObject(value);
      r.incIP();
    }
}