pike.git/ src/ operators.c

1999-08-14

1999-08-14 09:00:14 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 7b1a745041c45bdb22688d0625ce9b2bba0b4a12 (7 lines) (+4/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

`| and `^ now have order...

Rev: src/operators.c:1.56

6:   /**/   #include "global.h"   #include <math.h> - RCSID("$Id: operators.c,v 1.55 1999/06/19 20:14:51 hubbe Exp $"); + RCSID("$Id: operators.c,v 1.56 1999/08/14 09:00:14 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"
949:    case T_ARRAY:    {    struct array *a; -  a=merge_array_without_order2(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_OR); +  a=merge_array_with_order(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_OR);    sp-=2; /* Refs are eaten by function above */    push_array(a);    return;
1042:    case T_ARRAY:    {    struct array *a; -  a=merge_array_without_order2(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_XOR); +  a=merge_array_with_order(sp[-2].u.array, sp[-1].u.array, PIKE_ARRAY_OP_XOR);    sp-=2; /* Refs are eaten by function above */    push_array(a);    return;