pike.git/ src/ operators.c

1997-09-12

1997-09-12 00:07:28 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

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

module on negative numbers fixed

Rev: src/operators.c:1.17

5:   \*/   #include <math.h>   #include "global.h" - RCSID("$Id: operators.c,v 1.16 1997/08/30 18:35:48 grubba Exp $"); + RCSID("$Id: operators.c,v 1.17 1997/09/12 00:07:28 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"
1061:    {    sp[-1].u.integer %= sp[0].u.integer;    }else{ -  sp[-1].u.integer=sp[0].u.integer+(sp[-1].u.integer % -sp[0].u.integer); +  sp[-1].u.integer=((sp[-1].u.integer+~sp[0].u.integer)%-sp[0].u.integer)-~sp[0].u.integer;    }    }else{    if(sp[0].u.integer>=0)    { -  sp[-1].u.integer=sp[0].u.integer-(-sp[-1].u.integer % sp[0].u.integer); +  sp[-1].u.integer=sp[0].u.integer+~((~sp[-1].u.integer) % sp[0].u.integer);    }else{    sp[-1].u.integer=-(-sp[-1].u.integer % -sp[0].u.integer);    }