pike.git / src / operators.c

version» Context lines:

pike.git/src/operators.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h"   #include <math.h> - RCSID("$Id: operators.c,v 1.44 1998/11/22 11:03:06 hubbe Exp $"); + RCSID("$Id: operators.c,v 1.45 2001/02/25 18:19:03 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"   #include "mapping.h"   #include "array.h"   #include "stralloc.h"   #include "opcodes.h"   #include "operators.h"   #include "language.h"   #include "pike_memory.h"
pike.git/src/operators.c:315:      static int generate_sum(node *n)   {    switch(count_args(CDR(n)))    {    case 1:    do_docode(CDR(n),0);    return 1;       case 2: -  do_docode(CDR(n),DO_NOT_COPY); +  do_docode(CDR(n),DO_NOT_COPY_TOPLEVEL);    emit2(F_ADD);    return 1;       default:    return 0;    }   }      static node *optimize_eq(node *n)   {
pike.git/src/operators.c:620:   static int generate_minus(node *n)   {    switch(count_args(CDR(n)))    {    case 1:    do_docode(CDR(n),DO_NOT_COPY);    emit2(F_NEGATE);    return 1;       case 2: -  do_docode(CDR(n),DO_NOT_COPY); +  do_docode(CDR(n),DO_NOT_COPY_TOPLEVEL);    emit2(F_SUBTRACT);    return 1;    }    return 0;   }      void o_and(void)   {    if(sp[-1].type != sp[-2].type)    {
pike.git/src/operators.c:1014:   {    if(args != 2)    PIKE_ERROR("`<<", "Bad number of args.\n", sp, args);    o_lsh();   }      static int generate_lsh(node *n)   {    if(count_args(CDR(n))==2)    { -  do_docode(CDR(n),DO_NOT_COPY); +  do_docode(CDR(n),DO_NOT_COPY_TOPLEVEL);    emit2(F_LSH);    return 1;    }    return 0;   }      void o_rsh(void)   {    if(sp[-2].type != T_INT || sp[-1].type != T_INT)    {
pike.git/src/operators.c:1449:    assign_svalue(s,sp-1);    pop_n_elems(sp-s-1);    }    }   }      static int generate_divide(node *n)   {    if(count_args(CDR(n))==2)    { -  do_docode(CDR(n),DO_NOT_COPY); +  do_docode(CDR(n),DO_NOT_COPY_TOPLEVEL);    emit2(F_DIVIDE);    return 1;    }    return 0;   }      void o_mod(void)   {    if(sp[-2].type != sp[-1].type && !float_promote())    {
pike.git/src/operators.c:1569:   {    if(args != 2)    PIKE_ERROR("`%", "Bad number of args\n", sp, args);    o_mod();   }      static int generate_mod(node *n)   {    if(count_args(CDR(n))==2)    { -  do_docode(CDR(n),DO_NOT_COPY); +  do_docode(CDR(n),DO_NOT_COPY_TOPLEVEL);    emit2(F_MOD);    return 1;    }    return 0;   }      void o_not(void)   {    switch(sp[-1].type)    {