Branch: Tag:

2001-07-17

2001-07-17 08:33:23 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

--with-machine-code now works! (faster than a speeding bullet)
(Ok, maybe not faster than a speeding bullet, but it is 25% faster
in some cases!) Note that --with-machine-code only works when compiling
with gcc on an x86 platform so far.

Rev: src/interpret.c:1.222
Rev: src/peep.c:1.56
Rev: src/program.c:1.355

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.221 2001/07/17 06:50:35 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.222 2001/07/17 08:33:22 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
759:      #define OPCODE0(O,N,C) \   void PIKE_CONCAT(opcode_,O)(void) { \ - DO_IF_DEBUG(if(t_flag > 3) fprintf(stderr,"- %s()\n",N));\ + DO_IF_DEBUG(if(t_flag > 3) fprintf(stderr,"- (%p,%ld): %s()\n",PROG_COUNTER,DO_NOT_WARN((long)(Pike_sp-Pike_interpreter.evaluator_stack)),N));\   C }      #define OPCODE1(O,N,C) \   void PIKE_CONCAT(opcode_,O)(INT32 arg1) {\ - DO_IF_DEBUG(if(t_flag > 3) fprintf(stderr,"- %s(%d)\n",N,arg1)); \ + DO_IF_DEBUG(if(t_flag > 3) fprintf(stderr,"- (%p,%ld): %s(%d)\n",PROG_COUNTER,DO_NOT_WARN((long)(Pike_sp-Pike_interpreter.evaluator_stack)),N,arg1)); \   C }         #define OPCODE2(O,N,C) \   void PIKE_CONCAT(opcode_,O)(INT32 arg1,INT32 arg2) { \ - DO_IF_DEBUG(if(t_flag > 3) fprintf(stderr,"- %s(%d,%d)\n",N,arg1,arg2)); \ + DO_IF_DEBUG(if(t_flag > 3) fprintf(stderr,"- (%p,%ld): %s(%d,%d)\n",PROG_COUNTER,DO_NOT_WARN((long)(Pike_sp-Pike_interpreter.evaluator_stack)),N,arg1,arg2)); \   C }