pike.git/ src/ operators.c

1999-03-05

1999-03-05 02:15:04 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• a005ebff5e9329e44e22f3fb5459755feea50c8c (11 lines) (+6/-5) ^{[ Show | Annotate ]}
  Branch: 7.9

prog::`[] should now work..

Rev: src/language.yacc:1.113
Rev: src/object.c:1.59
Rev: src/operators.c:1.50
Rev: src/pike_memory.c:1.33
Rev: src/program.c:1.114

5:   \*/   #include "global.h"   #include <math.h> - RCSID("$Id: operators.c,v 1.49 1999/03/02 03:22:13 hubbe Exp $"); + RCSID("$Id: operators.c,v 1.50 1999/03/05 02:15:01 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"
884:    case T_ARRAY:    {    struct array *a; -  a=merge_array_without_order(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_OR); -  pop_n_elems(2); +  a=merge_array_without_order2(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_OR); +  sp-=2; /* Refs are eaten by function above */    push_array(a);    return;    }
974:    case T_ARRAY:    {    struct array *a; -  a=merge_array_without_order(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_XOR); -  pop_n_elems(2); +  a=merge_array_without_order2(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_XOR); +  sp-=2; /* Refs are eaten by function above */    push_array(a);    return;    }