pike.git/ src/ operators.c

2001-02-25

2001-02-25 17:55:09 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• db9ee57089ca075dbcd3cc84dc1a337b4cd3d70c (13 lines) (+7/-6) ^{[ Show | Annotate ]}
  Branch: 7.2

bugfix for constants

Rev: src/docode.c:1.102
Rev: src/docode.h:1.11
Rev: src/operators.c:1.119
Rev: src/testsuite.in:1.383

6:   /**/   #include "global.h"   #include <math.h> - RCSID("$Id: operators.c,v 1.118 2001/02/04 02:08:19 hubbe Exp $"); + RCSID("$Id: operators.c,v 1.119 2001/02/25 17:55:08 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"
474:    first_arg=my_get_arg(&_CDR(n), 0);    second_arg=my_get_arg(&_CDR(n), 1);    -  do_docode(CDR(n),DO_NOT_COPY); +  do_docode(CDR(n),DO_NOT_COPY_TOPLEVEL);    if(first_arg[0]->type == float_type_string &&    second_arg[0]->type == float_type_string)    {
873:    return 1;       case 2: -  do_docode(CDR(n),DO_NOT_COPY); +  do_docode(CDR(n),DO_NOT_COPY_TOPLEVEL);    emit0(F_SUBTRACT);    return 1;    }
1568:   {    if(count_args(CDR(n))==2)    { -  do_docode(CDR(n),DO_NOT_COPY); +  do_docode(CDR(n),DO_NOT_COPY_TOPLEVEL);    emit0(F_LSH);    return 1;    }
2136:   {    if(count_args(CDR(n))==2)    { -  do_docode(CDR(n),DO_NOT_COPY); +  do_docode(CDR(n),DO_NOT_COPY_TOPLEVEL);    emit0(F_DIVIDE);    return 1;    }
2260:   {    if(count_args(CDR(n))==2)    { -  do_docode(CDR(n),DO_NOT_COPY); +  do_docode(CDR(n),DO_NOT_COPY_TOPLEVEL);    emit0(F_MOD);    return 1;    }