pike.git/ src/ interpret.c

2001-07-17

2001-07-17 06:50:35 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 15243962204bbbc012195dd63b42fc89eafd6682 (40 lines) (+27/-13) ^{[ Show | Annotate ]}
  Branch: 7.9

one setep closer to --with-machine-code...
(We now get fatals instead of SIGSEGV)

Rev: src/interpret.c:1.221
Rev: src/peep.c:1.55

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.220 2001/07/16 19:48:57 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.221 2001/07/17 06:50:35 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
757:   void *dummy_label;       - #define OPCODE0(O,N,C) void PIKE_CONCAT(opcode_,O)(void) C - #define OPCODE1(O,N,C) void PIKE_CONCAT(opcode_,O)(INT32 arg1) C - #define OPCODE2(O,N,C) void PIKE_CONCAT(opcode_,O)(INT32 arg1,INT32 arg2) C + #define OPCODE0(O,N,C) \ + void PIKE_CONCAT(opcode_,O)(void) { \ + DO_IF_DEBUG(if(t_flag > 3) fprintf(stderr,"- %s()\n",N));\ + C }    - #define OPCODE0_JUMP(O,N,C) void PIKE_CONCAT(opcode_,O)(void) C - #define OPCODE1_JUMP(O,N,C) void PIKE_CONCAT(opcode_,O)(INT32 arg1) C - #define OPCODE2_JUMP(O,N,C) void PIKE_CONCAT(opcode_,O)(INT32 arg1,INT32 arg2) 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)); \ + C }    - #define OPCODE0_TAIL(O,N,C) void PIKE_CONCAT(opcode_,O)(void) C - #define OPCODE1_TAIL(O,N,C) void PIKE_CONCAT(opcode_,O)(INT32 arg1) C - #define OPCODE2_TAIL(O,N,C) void PIKE_CONCAT(opcode_,O)(INT32 arg1,INT32 arg2) C +     - #define OPCODE0_TAILJUMP(O,N,C) void PIKE_CONCAT(opcode_,O)(void) C - #define OPCODE1_TAILJUMP(O,N,C) void PIKE_CONCAT(opcode_,O)(INT32 arg1) C - #define OPCODE2_TAILJUMP(O,N,C) void PIKE_CONCAT(opcode_,O)(INT32 arg1,INT32 arg2) 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)); \ + C }    -  +  + #define OPCODE0_JUMP(O,N,C) OPCODE0(O,N,C) + #define OPCODE1_JUMP(O,N,C) OPCODE1(O,N,C) + #define OPCODE2_JUMP(O,N,C) OPCODE2(O,N,C) +  + #define OPCODE0_TAIL(O,N,C) OPCODE0(O,N,C) + #define OPCODE1_TAIL(O,N,C) OPCODE1(O,N,C) + #define OPCODE2_TAIL(O,N,C) OPCODE2(O,N,C) +  + #define OPCODE0_TAILJUMP(O,N,C) OPCODE0(O,N,C) + #define OPCODE1_TAILJUMP(O,N,C) OPCODE1(O,N,C) + #define OPCODE2_TAILJUMP(O,N,C) OPCODE2(O,N,C) +    #undef HAVE_COMPUTED_GOTO      #if defined(__i386__) && defined(__GNUC__)