Branch: Tag:

2001-07-02

2001-07-02 04:09:50 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

more debug,
more optimizations,
new efuns: int2char, basetype
new opcodes: F_CALL_BUILTIN1, F_CALL_BUILTIN1_AND_POP, F_BRANCH_IF_TYPE_IS_NOT

Rev: src/builtin.cmod:1.53
Rev: src/builtin_functions.c:1.388
Rev: src/constants.c:1.31
Rev: src/constants.h:1.18
Rev: src/docode.c:1.124
Rev: src/interpret.c:1.211
Rev: src/interpret_functions.h:1.66
Rev: src/lex.c:1.91
Rev: src/modules/sprintf/sprintf.c:1.79
Rev: src/peep.c:1.49
Rev: src/peep.in:1.56

1:   // - // $Id: peep.in,v 1.55 2001/06/29 19:48:49 hubbe Exp $ + // $Id: peep.in,v 1.56 2001/07/02 04:09:49 hubbe Exp $   //      NOP :
389:   MKCALLOPTS(CALL_LFUN)   MKCALLOPTS(CALL_BUILTIN)    + CALL_BUILTIN1 POP_VALUE : CALL_BUILTIN1_AND_POP ($1a) +  + #define OPT_TYPEP(X,Y) \ +  CALL_BUILTIN1 [ Pike_compiler->new_program->constants[$1a].sval.u.efun->function == X ] BRANCH_WHEN_ZERO : BRANCH_IF_TYPE_IS_NOT(Y) POINTER($2a); +  + #if 1 + OPT_TYPEP(f_intp, T_INT) + OPT_TYPEP(f_stringp, T_STRING) + OPT_TYPEP(f_arrayp, T_ARRAY) + OPT_TYPEP(f_floatp, T_FLOAT) + OPT_TYPEP(f_mappingp, T_MAPPING) + OPT_TYPEP(f_multisetp, T_MULTISET) + #endif +