Branch: Tag:

2000-01-27

2000-01-27 23:14:46 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

implemented (multiset)array

Rev: src/opcodes.c:1.71

26:   #include "bignum.h"   #include "operators.h"    - RCSID("$Id: opcodes.c,v 1.70 1999/12/22 00:35:33 grubba Exp $"); + RCSID("$Id: opcodes.c,v 1.71 2000/01/27 23:14:46 hubbe Exp $");      void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)   {
153:    case T_MIXED:    return;    +  case T_MULTISET: +  switch(sp[-1].type) +  { +  case T_ARRAY: +  f_mkmultiset(1); +  break; +  +  default: +  error("Cannot cast %s to multiset.\n",get_name_of_type(sp[-1].type)); +  } +  break; +     case T_MAPPING:    switch(sp[-1].type)    {
563: Inside #if defined(PIKE_DEBUG)
  #ifdef PIKE_DEBUG    struct svalue *save_sp=sp+1;   #endif -  push_mapping(m=allocate_mapping(tmp->size)); +  push_mapping(m=allocate_mapping(m_sizeof(tmp)));       SET_CYCLIC_RET(m);