Branch: Tag:

2002-05-10

2002-05-10 22:28:28 by Martin Stjernholm <mast@lysator.liu.se>

Added a flag field to the opcode macros and an instruction flag I_PC_AT_NEXT
to use for opcodes that update Pike_fp->pc to the address of the next
opcode.

Rev: src/interpret.c:1.258
Rev: src/interpret_functions.h:1.101
Rev: src/interpreter.h:1.75
Rev: src/lex.c:1.103
Rev: src/lex.h:1.21
Rev: src/opcodes.h:1.27
Rev: src/strip_opcodes:1.3

5:   \*/   /**/   #include "global.h" - RCSID("$Id: lex.c,v 1.102 2002/01/16 02:54:14 nilsson Exp $"); + RCSID("$Id: lex.c,v 1.103 2002/05/10 22:28:28 mast Exp $");   #include "language.h"   #include "array.h"   #include "lex.h"
149:   #define ADDR(X) , (void *)PIKE_CONCAT(opcode_,X)   #define NULLADDR , 0    - #define OPCODE0(OP,DESC) void PIKE_CONCAT(opcode_,OP)(void); - #define OPCODE1(OP,DESC) void PIKE_CONCAT(opcode_,OP)(INT32); - #define OPCODE2(OP,DESC) void PIKE_CONCAT(opcode_,OP)(INT32,INT32); + #define OPCODE0(OP,DESC,FLAGS) void PIKE_CONCAT(opcode_,OP)(void); + #define OPCODE1(OP,DESC,FLAGS) void PIKE_CONCAT(opcode_,OP)(INT32); + #define OPCODE2(OP,DESC,FLAGS) void PIKE_CONCAT(opcode_,OP)(INT32,INT32);    - #define OPCODE0_TAIL(OP,DESC) void PIKE_CONCAT(opcode_,OP)(void); - #define OPCODE1_TAIL(OP,DESC) void PIKE_CONCAT(opcode_,OP)(INT32); - #define OPCODE2_TAIL(OP,DESC) void PIKE_CONCAT(opcode_,OP)(INT32,INT32); + #define OPCODE0_TAIL(OP,DESC,FLAGS) void PIKE_CONCAT(opcode_,OP)(void); + #define OPCODE1_TAIL(OP,DESC,FLAGS) void PIKE_CONCAT(opcode_,OP)(INT32); + #define OPCODE2_TAIL(OP,DESC,FLAGS) void PIKE_CONCAT(opcode_,OP)(INT32,INT32);    - #define OPCODE0_JUMP(OP,DESC) void PIKE_CONCAT(opcode_,OP)(void); - #define OPCODE1_JUMP(OP,DESC) void PIKE_CONCAT(opcode_,OP)(INT32); - #define OPCODE2_JUMP(OP,DESC) void PIKE_CONCAT(opcode_,OP)(INT32,INT32); + #define OPCODE0_JUMP(OP,DESC,FLAGS) void PIKE_CONCAT(opcode_,OP)(void); + #define OPCODE1_JUMP(OP,DESC,FLAGS) void PIKE_CONCAT(opcode_,OP)(INT32); + #define OPCODE2_JUMP(OP,DESC,FLAGS) void PIKE_CONCAT(opcode_,OP)(INT32,INT32);    - #define OPCODE0_TAILJUMP(OP,DESC) void PIKE_CONCAT(opcode_,OP)(void); - #define OPCODE1_TAILJUMP(OP,DESC) void PIKE_CONCAT(opcode_,OP)(INT32); - #define OPCODE2_TAILJUMP(OP,DESC) void PIKE_CONCAT(opcode_,OP)(INT32,INT32); + #define OPCODE0_TAILJUMP(OP,DESC,FLAGS) void PIKE_CONCAT(opcode_,OP)(void); + #define OPCODE1_TAILJUMP(OP,DESC,FLAGS) void PIKE_CONCAT(opcode_,OP)(INT32); + #define OPCODE2_TAILJUMP(OP,DESC,FLAGS) void PIKE_CONCAT(opcode_,OP)(INT32,INT32);    - #define OPCODE0_RETURN(OP, DESC) OPCODE0(OP, DESC) - #define OPCODE1_RETURN(OP, DESC) OPCODE1(OP, DESC) - #define OPCODE2_RETURN(OP, DESC) OPCODE2(OP, DESC) - #define OPCODE0_TAILRETURN(OP, DESC) OPCODE0_TAIL(OP, DESC) - #define OPCODE1_TAILRETURN(OP, DESC) OPCODE1_TAIL(OP, DESC) - #define OPCODE2_TAILRETURN(OP, DESC) OPCODE2_TAIL(OP, DESC) + #define OPCODE0_RETURN(OP, DESC, FLAGS) OPCODE0(OP, DESC, FLAGS) + #define OPCODE1_RETURN(OP, DESC, FLAGS) OPCODE1(OP, DESC, FLAGS) + #define OPCODE2_RETURN(OP, DESC, FLAGS) OPCODE2(OP, DESC, FLAGS) + #define OPCODE0_TAILRETURN(OP, DESC, FLAGS) OPCODE0_TAIL(OP, DESC, FLAGS) + #define OPCODE1_TAILRETURN(OP, DESC, FLAGS) OPCODE1_TAIL(OP, DESC, FLAGS) + #define OPCODE2_TAILRETURN(OP, DESC, FLAGS) OPCODE2_TAIL(OP, DESC, FLAGS)      #include "interpret_protos.h"   
202:   #define NULLADDR   #endif    - #define OPCODE0(OP,DESC) { DESC, OP, 0 ADDR(OP) }, - #define OPCODE1(OP,DESC) { DESC, OP, I_HASARG ADDR(OP) }, - #define OPCODE2(OP,DESC) { DESC, OP, I_TWO_ARGS ADDR(OP) }, + #define OPCODE0(OP,DESC,FLAGS) { DESC, OP, FLAGS ADDR(OP) }, + #define OPCODE1(OP,DESC,FLAGS) { DESC, OP, FLAGS | I_HASARG ADDR(OP) }, + #define OPCODE2(OP,DESC,FLAGS) { DESC, OP, FLAGS | I_TWO_ARGS ADDR(OP) },    - #define OPCODE0_TAIL(OP,DESC) { DESC, OP, 0 ADDR(OP) }, - #define OPCODE1_TAIL(OP,DESC) { DESC, OP, I_HASARG ADDR(OP) }, - #define OPCODE2_TAIL(OP,DESC) { DESC, OP, I_TWO_ARGS ADDR(OP) }, + #define OPCODE0_TAIL(OP,DESC,FLAGS) { DESC, OP, FLAGS ADDR(OP) }, + #define OPCODE1_TAIL(OP,DESC,FLAGS) { DESC, OP, FLAGS | I_HASARG ADDR(OP) }, + #define OPCODE2_TAIL(OP,DESC,FLAGS) { DESC, OP, FLAGS | I_TWO_ARGS ADDR(OP) },    - #define OPCODE0_JUMP(OP,DESC) { DESC, OP, I_ISJUMP ADDR(OP) }, - #define OPCODE1_JUMP(OP,DESC) { DESC, OP, I_HASARG ADDR(OP) }, - #define OPCODE2_JUMP(OP,DESC) { DESC, OP, I_TWO_ARGS ADDR(OP) }, + #define OPCODE0_JUMP(OP,DESC,FLAGS) { DESC, OP, FLAGS | I_ISJUMP ADDR(OP) }, + #define OPCODE1_JUMP(OP,DESC,FLAGS) { DESC, OP, FLAGS | I_HASARG ADDR(OP) }, + #define OPCODE2_JUMP(OP,DESC,FLAGS) { DESC, OP, FLAGS | I_TWO_ARGS ADDR(OP) },    - #define OPCODE0_TAILJUMP(OP,DESC) { DESC, OP, I_ISJUMP ADDR(OP) }, - #define OPCODE1_TAILJUMP(OP,DESC) { DESC, OP, I_HASARG ADDR(OP) }, - #define OPCODE2_TAILJUMP(OP,DESC) { DESC, OP, I_TWO_ARGS ADDR(OP) }, + #define OPCODE0_TAILJUMP(OP,DESC,FLAGS) { DESC, OP, FLAGS | I_ISJUMP ADDR(OP) }, + #define OPCODE1_TAILJUMP(OP,DESC,FLAGS) { DESC, OP, FLAGS | I_HASARG ADDR(OP) }, + #define OPCODE2_TAILJUMP(OP,DESC,FLAGS) { DESC, OP, FLAGS | I_TWO_ARGS ADDR(OP) },    - #define OPCODE0_RETURN(OP, DESC) OPCODE0(OP, DESC) - #define OPCODE1_RETURN(OP, DESC) OPCODE1(OP, DESC) - #define OPCODE2_RETURN(OP, DESC) OPCODE2(OP, DESC) - #define OPCODE0_TAILRETURN(OP, DESC) OPCODE0_TAIL(OP, DESC) - #define OPCODE1_TAILRETURN(OP, DESC) OPCODE1_TAIL(OP, DESC) - #define OPCODE2_TAILRETURN(OP, DESC) OPCODE2_TAIL(OP, DESC) + #define OPCODE0_RETURN(OP, DESC, FLAGS) OPCODE0(OP, DESC, FLAGS) + #define OPCODE1_RETURN(OP, DESC, FLAGS) OPCODE1(OP, DESC, FLAGS) + #define OPCODE2_RETURN(OP, DESC, FLAGS) OPCODE2(OP, DESC, FLAGS) + #define OPCODE0_TAILRETURN(OP, DESC, FLAGS) OPCODE0_TAIL(OP, DESC, FLAGS) + #define OPCODE1_TAILRETURN(OP, DESC, FLAGS) OPCODE1_TAIL(OP, DESC, FLAGS) + #define OPCODE2_TAILRETURN(OP, DESC, FLAGS) OPCODE2_TAIL(OP, DESC, FLAGS)      #define LEXER