pike.git/ src/ operators.c

1998-07-31

1998-07-31 07:06:40 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

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

re-arranged some code, hopefully it will confuse SparcWorks enough to
make it generate correct machine code

Rev: src/operators.c:1.38

5:   \*/   #include "global.h"   #include <math.h> - RCSID("$Id: operators.c,v 1.37 1998/07/04 16:56:42 grubba Exp $"); + RCSID("$Id: operators.c,v 1.38 1998/07/31 07:06:40 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"
1248:    case TWO_TYPES(T_ARRAY, T_INT):    {    struct array *a; -  INT32 size,e,len,pos=0; +  INT32 size,e,len,pos;       len=sp[-1].u.integer;    if(!len)
1258:    {    len=-len;    size=sp[-2].u.array->size / len; -  pos+=sp[-2].u.array->size % len; +  pos=sp[-2].u.array->size % len;    }else{    size=sp[-2].u.array->size / len; -  +  pos=0;    }    a=allocate_array(size);    for(e=0;e<size;e++)
1268:    a->item[e].u.array=friendly_slice_array(sp[-2].u.array,    pos,    pos+len); -  a->item[e].type=T_ARRAY; +     pos+=len; -  +  a->item[e].type=T_ARRAY;    }    a->type_field=BIT_ARRAY;    pop_n_elems(2);