Branch: Tag:

1996-02-19

1996-02-19 04:37:36 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

Implemented operator functions

Rev: lib/simulate.lpc:1.8
Rev: src/add_efun.c:1.2
Rev: src/add_efun.h:1.2
Rev: src/builtin_efuns.c:1.9
Rev: src/docode.c:1.3
Rev: src/docode.h:1.2
Rev: src/interpret.c:1.7
Rev: src/language.y:1.9
Rev: src/las.c:1.4
Rev: src/las.h:1.4
Rev: src/lex.c:1.6
Rev: src/modules/files/efuns.c:1.4
Rev: src/operators.c:1.2
Rev: src/operators.h:1.2

797:    COMPARISMENT(F_LT, is_lt(sp-2,sp-1));    COMPARISMENT(F_LE,!is_gt(sp-2,sp-1));    -  CASE(F_ADD); f_sum(2); break; -  CASE(F_SUBTRACT); f_subtract(); break; -  CASE(F_AND); f_and(); break; -  CASE(F_OR); f_or(); break; -  CASE(F_XOR); f_xor(); break; -  CASE(F_MULTIPLY); f_multiply(); break; -  CASE(F_DIVIDE); f_divide(); break; -  CASE(F_MOD); f_mod(); break; +  CASE(F_ADD); f_add(2); break; +  CASE(F_SUBTRACT); o_subtract(); break; +  CASE(F_AND); o_and(); break; +  CASE(F_OR); o_or(); break; +  CASE(F_XOR); o_xor(); break; +  CASE(F_MULTIPLY); o_multiply(); break; +  CASE(F_DIVIDE); o_divide(); break; +  CASE(F_MOD); o_mod(); break;       CASE(F_PUSH_ARRAY);    if(sp[-1].type!=T_ARRAY) error("Bad argument to @\n");
819:       CASE(F_CAST); f_cast(); break;    -  CASE(F_RANGE); f_range(); break; +  CASE(F_RANGE); o_range(); break;    CASE(F_COPY_VALUE);    copy_svalues_recursively_no_free(sp,sp-1,1,0);    sp++;