pike.git/ src/ operators.c

Branch: Tag:

2000-04-20

2000-04-20 02:41:45 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

bye bye accumulator

Rev: bin/mkpeep.pike:1.14
Rev: src/Makefile.in:1.190
Rev: src/array.c:1.67
Rev: src/docode.c:1.68
Rev: src/docode.h:1.9
Rev: src/error.h:1.41
Rev: src/gc.c:1.75
Rev: src/interpret_functions.h:1.10
Rev: src/interpreter.h:1.42
Rev: src/language.yacc:1.180
Rev: src/lex.c:1.74
Rev: src/lex.h:1.15
Rev: src/object.c:1.117
Rev: src/opcodes.c:1.74
Rev: src/operators.c:1.91
Rev: src/peep.c:1.30
Rev: src/peep.h:1.5
Rev: src/peep.in:1.28

6:   /**/   #include "global.h"   #include <math.h> - RCSID("$Id: operators.c,v 1.90 2000/04/12 16:55:56 grubba Exp $"); + RCSID("$Id: operators.c,v 1.91 2000/04/20 02:41:45 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"
436:       case 2:    do_docode(CDR(n),DO_NOT_COPY); -  emit2(F_ADD); +  emit0(F_ADD);    return 1;       default:
581:    fatal("Count args was wrong in generate_comparison.\n");       if(CAR(n)->u.sval.u.efun->function == f_eq) -  emit2(F_EQ); +  emit0(F_EQ);    else if(CAR(n)->u.sval.u.efun->function == f_ne) -  emit2(F_NE); +  emit0(F_NE);    else if(CAR(n)->u.sval.u.efun->function == f_lt) -  emit2(F_LT); +  emit0(F_LT);    else if(CAR(n)->u.sval.u.efun->function == f_le) -  emit2(F_LE); +  emit0(F_LE);    else if(CAR(n)->u.sval.u.efun->function == f_gt) -  emit2(F_GT); +  emit0(F_GT);    else if(CAR(n)->u.sval.u.efun->function == f_ge) -  emit2(F_GE); +  emit0(F_GE);    else    fatal("Couldn't generate comparison!\n");    return 1;
814:    {    case 1:    do_docode(CDR(n),DO_NOT_COPY); -  emit2(F_NEGATE); +  emit0(F_NEGATE);    return 1;       case 2:    do_docode(CDR(n),DO_NOT_COPY); -  emit2(F_SUBTRACT); +  emit0(F_SUBTRACT);    return 1;    }    return 0;
1118:       case 2:    do_docode(CDR(n),0); -  emit2(F_AND); +  emit0(F_AND);    return 1;       default:
1292:       case 2:    do_docode(CDR(n),0); -  emit2(F_OR); +  emit0(F_OR);    return 1;       default:
1471:       case 2:    do_docode(CDR(n),0); -  emit2(F_XOR); +  emit0(F_XOR);    return 1;       default:
1514:    if(count_args(CDR(n))==2)    {    do_docode(CDR(n),DO_NOT_COPY); -  emit2(F_LSH); +  emit0(F_LSH);    return 1;    }    return 0;
1559:    if(count_args(CDR(n))==2)    {    do_docode(CDR(n),DO_NOT_COPY); -  emit2(F_RSH); +  emit0(F_RSH);    return 1;    }    return 0;
1695:       case 2:    do_docode(CDR(n),0); -  emit2(F_MULTIPLY); +  emit0(F_MULTIPLY);    return 1;       default:
1987:    if(count_args(CDR(n))==2)    {    do_docode(CDR(n),DO_NOT_COPY); -  emit2(F_DIVIDE); +  emit0(F_DIVIDE);    return 1;    }    return 0;
2110:    if(count_args(CDR(n))==2)    {    do_docode(CDR(n),DO_NOT_COPY); -  emit2(F_MOD); +  emit0(F_MOD);    return 1;    }    return 0;
2157:    if(count_args(CDR(n))==1)    {    do_docode(CDR(n),DO_NOT_COPY); -  emit2(F_NOT); +  emit0(F_NOT);    return 1;    }    return 0;
2249:    if(count_args(CDR(n))==1)    {    do_docode(CDR(n),DO_NOT_COPY); -  emit2(F_COMPL); +  emit0(F_COMPL);    return 1;    }    return 0;
2444:    if(count_args(CDR(n)) != 1) return 0;    if(do_docode(CDR(n),DO_NOT_COPY) != 1)    fatal("Count args was wrong in sizeof().\n"); -  emit2(F_SIZEOF); +  emit0(F_SIZEOF);    return 1;   }      static int generate_call_function(node *n)   {    node **arg; -  emit2(F_MARK); +  emit0(F_MARK);    do_docode(CDR(n),DO_NOT_COPY); -  emit2(F_CALL_FUNCTION); +  emit0(F_CALL_FUNCTION);    return 1;   }