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

14:   #include "stuff.h"   #include "bignum.h"   #include "opcodes.h" + #include "builtin_functions.h" + #include "constants.h"    - RCSID("$Id: peep.c,v 1.48 2001/06/30 07:05:55 hubbe Exp $"); + RCSID("$Id: peep.c,v 1.49 2001/07/02 04:09:49 hubbe Exp $");      static void asm_opt(void);   
454: Inside #if defined(PIKE_DEBUG)
     #ifdef PIKE_DEBUG    if(!hasarg2(f) && b) -  fatal("hasarg(%d) is wrong!\n",f); +  fatal("hasarg2(%d /*%s */) is wrong!\n",f,get_f_name(f));   #endif       p=(p_instr *)low_make_buf_space(sizeof(p_instr), &instrbuf);
483: Inside #if defined(PIKE_DEBUG)
  {   #ifdef PIKE_DEBUG    if(!hasarg(f) && a) -  fatal("hasarg(%d) is wrong!\n",f); +  fatal("hasarg(%d /* %s */) is wrong!\n",f,get_f_name(f));   #endif       return insopt2(f,a,0,cl, cf);
493: Inside #if defined(PIKE_DEBUG)
  {   #ifdef PIKE_DEBUG    if(hasarg(f)) -  fatal("hasarg(%d) is wrong!\n",f); +  fatal("hasarg(%d /* %s */) is wrong!\n",f,get_f_name(f));   #endif    return insopt2(f,0,0,cl, cf);   }