2000-01-27
2000-01-27 23:14:46 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
06f611d96d89247a09f43dcee3a1bec45e84bdbb
(17 lines)
(+15/-2)
[
Show
| Annotate
]
Branch: 7.9
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);