e576bb | 2002-10-11 | Martin Nilsson | |
|
795194 | 2000-04-20 | Fredrik Hübinette (Hubbe) | |
|
eff621 | 2001-07-09 | Henrik Grubbström (Grubba) | | #undef LOW_GET_ARG
#undef LOW_GET_JUMP
#undef LOW_SKIPJUMP
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | | #undef GET_ARG
#undef GET_ARG2
|
388f0d | 2001-01-31 | Martin Stjernholm | | #undef GET_JUMP
#undef SKIPJUMP
|
68296f | 2001-07-07 | Henrik Grubbström (Grubba) | | #undef DOJUMP
|
61e983 | 2001-07-08 | Henrik Grubbström (Grubba) | | #undef CASE
#undef BREAK
#undef DONE
|
f14284 | 2003-08-06 | Martin Stjernholm | | #undef JUMP_DONE
#define JUMP_DONE DONE
|
61e983 | 2001-07-08 | Henrik Grubbström (Grubba) | |
|
88149c | 2001-07-08 | Henrik Grubbström (Grubba) | | #define CASE(X) case (X)-F_OFFSET:
#define DONE break
|
245475 | 2001-07-10 | Henrik Grubbström (Grubba) | | #define FETCH
|
88149c | 2001-07-08 | Henrik Grubbström (Grubba) | |
|
f82226 | 2001-07-16 | Fredrik Hübinette (Hubbe) | | #define LOW_GET_ARG() ((PROG_COUNTER++)[0])
|
98a775 | 2002-04-08 | Martin Stjernholm | | #if PIKE_BYTECODE_METHOD == PIKE_BYTECODE_SPARC
|
c69624 | 2001-07-18 | Henrik Grubbström (Grubba) | | #define LOW_GET_JUMP() (PROG_COUNTER[0])
#define LOW_SKIPJUMP() (++PROG_COUNTER)
|
98a775 | 2002-04-08 | Martin Stjernholm | | #else /* PIKE_BYTECODE_METHOD != PIKE_BYTECODE_SPARC */
|
cd93cc | 2017-07-20 | Martin Nilsson | | #define LOW_GET_JUMP() (INT32)get_unaligned32(PROG_COUNTER)
|
f82226 | 2001-07-16 | Fredrik Hübinette (Hubbe) | | #define LOW_SKIPJUMP() (PROG_COUNTER += sizeof(INT32))
|
98a775 | 2002-04-08 | Martin Stjernholm | | #endif /* PIKE_BYTECODE_METHOD */
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | |
#ifdef PIKE_DEBUG
|
31984c | 2003-03-20 | Martin Stjernholm | | #define GET_ARG() ( \
|
97ebb3 | 2003-01-09 | Henrik Grubbström (Grubba) | | instr=prefix, \
prefix=0, \
instr += LOW_GET_ARG(), \
|
31984c | 2003-03-20 | Martin Stjernholm | | DEBUG_LOG_ARG (instr), \
instr)
|
a96ce9 | 2000-04-19 | Fredrik Hübinette (Hubbe) | |
|
31984c | 2003-03-20 | Martin Stjernholm | | #define GET_ARG2() ( \
|
97ebb3 | 2003-01-09 | Henrik Grubbström (Grubba) | | instr=prefix2, \
prefix2=0, \
instr += LOW_GET_ARG(), \
|
31984c | 2003-03-20 | Martin Stjernholm | | DEBUG_LOG_ARG2 (instr), \
instr)
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | |
|
eff621 | 2001-07-09 | Henrik Grubbström (Grubba) | | #else /* !PIKE_DEBUG */
#define GET_ARG() (instr=prefix,prefix=0,instr+LOW_GET_ARG())
#define GET_ARG2() (instr=prefix2,prefix2=0,instr+LOW_GET_ARG())
#endif /* PIKE_DEBUG */
|
d49add | 2001-04-25 | Fredrik Hübinette (Hubbe) | | #ifndef STEP_BREAK_LINE
#define STEP_BREAK_LINE
#endif
|
610d05 | 2001-07-06 | Henrik Grubbström (Grubba) | | static int eval_instruction(PIKE_OPCODE_T *pc)
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | | {
|
afea00 | 2001-07-12 | Per Hedbor | | unsigned INT32 prefix2=0,prefix=0;
|
7c1e42 | 2004-09-22 | Henrik Grubbström (Grubba) | |
|
a2ad15 | 2000-02-16 | Fredrik Hübinette (Hubbe) | | debug_malloc_touch(Pike_fp);
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | | while(1)
{
|
2f816c | 2004-05-29 | Henrik Grubbström (Grubba) | | INT32 arg1, arg2;
|
e4c88f | 2017-11-05 | Martin Nilsson | | PIKE_INSTR_T instr = pc[0];
|
245475 | 2001-07-10 | Henrik Grubbström (Grubba) | | Pike_fp->pc = pc++;
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | |
|
d49add | 2001-04-25 | Fredrik Hübinette (Hubbe) | | STEP_BREAK_LINE
|
610d05 | 2001-07-06 | Henrik Grubbström (Grubba) | |
|
31984c | 2003-03-20 | Martin Stjernholm | | #ifdef PIKE_DEBUG
if (d_flag || Pike_interpreter.trace_level > 2)
|
170ec2 | 2003-03-22 | Henrik Grubbström (Grubba) | | low_debug_instr_prologue (instr);
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | | #endif
switch(instr)
{
|
eff621 | 2001-07-09 | Henrik Grubbström (Grubba) | |
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | |
|
61e983 | 2001-07-08 | Henrik Grubbström (Grubba) | | CASE(F_PREFIX_256); prefix+=256; DONE;
CASE(F_PREFIX_512); prefix+=512; DONE;
CASE(F_PREFIX_768); prefix+=768; DONE;
CASE(F_PREFIX_1024); prefix+=1024; DONE;
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | | CASE(F_PREFIX_24BITX256);
|
c1a3ee | 2014-07-03 | Arne Goedeke | | prefix += (unsigned INT32)(pc++)[0]<<24;
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | | CASE(F_PREFIX_WORDX256);
|
c1a3ee | 2014-07-03 | Arne Goedeke | | prefix += (unsigned INT32)(pc++)[0]<<16;
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | | CASE(F_PREFIX_CHARX256);
|
61e983 | 2001-07-08 | Henrik Grubbström (Grubba) | | prefix += (pc++)[0]<<8;
DONE;
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | |
|
a96ce9 | 2000-04-19 | Fredrik Hübinette (Hubbe) | |
|
61e983 | 2001-07-08 | Henrik Grubbström (Grubba) | | CASE(F_PREFIX2_256); prefix2+=256; DONE;
CASE(F_PREFIX2_512); prefix2+=512; DONE;
CASE(F_PREFIX2_768); prefix2+=768; DONE;
CASE(F_PREFIX2_1024); prefix2+=1024; DONE;
|
a96ce9 | 2000-04-19 | Fredrik Hübinette (Hubbe) | | CASE(F_PREFIX2_24BITX256);
|
c1a3ee | 2014-07-03 | Arne Goedeke | | prefix2 += (unsigned INT32)(pc++)[0]<<24;
|
a96ce9 | 2000-04-19 | Fredrik Hübinette (Hubbe) | | CASE(F_PREFIX2_WORDX256);
|
c1a3ee | 2014-07-03 | Arne Goedeke | | prefix2 += (unsigned INT32)(pc++)[0]<<16;
|
a96ce9 | 2000-04-19 | Fredrik Hübinette (Hubbe) | | CASE(F_PREFIX2_CHARX256);
|
61e983 | 2001-07-08 | Henrik Grubbström (Grubba) | | prefix2 += (pc++)[0]<<8;
DONE;
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | |
|
87c759 | 2000-04-18 | Fredrik Hübinette (Hubbe) | | #define INTERPRETER
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | |
|
2bcc0d | 2002-05-11 | Martin Stjernholm | | #define OPCODE0(OP, DESC, FLAGS, CODE) CASE(OP); CODE; DONE
#define OPCODE1(OP, DESC, FLAGS, CODE) CASE(OP); { \
|
2f816c | 2004-05-29 | Henrik Grubbström (Grubba) | | arg1=GET_ARG(); \
|
245475 | 2001-07-10 | Henrik Grubbström (Grubba) | | FETCH; \
|
610d05 | 2001-07-06 | Henrik Grubbström (Grubba) | | CODE; \
|
61e983 | 2001-07-08 | Henrik Grubbström (Grubba) | | } DONE
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | |
|
2bcc0d | 2002-05-11 | Martin Stjernholm | | #define OPCODE2(OP, DESC, FLAGS, CODE) CASE(OP); { \
|
2f816c | 2004-05-29 | Henrik Grubbström (Grubba) | | arg1=GET_ARG(); \
arg2=GET_ARG2(); \
|
245475 | 2001-07-10 | Henrik Grubbström (Grubba) | | FETCH; \
|
610d05 | 2001-07-06 | Henrik Grubbström (Grubba) | | CODE; \
|
61e983 | 2001-07-08 | Henrik Grubbström (Grubba) | | } DONE
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | |
|
105be6 | 2002-11-10 | Henrik Grubbström (Grubba) | | #define OPCODE0_ALIAS(OP, DESC, FLAGS, FUN) OPCODE0(OP, DESC, FLAGS, {FUN();})
#define OPCODE1_ALIAS(OP, DESC, FLAGS, FUN) OPCODE1(OP, DESC, FLAGS, {FUN(arg1);})
#define OPCODE2_ALIAS(OP, DESC, FLAGS, FUN) OPCODE2(OP, DESC, FLAGS, {FUN(arg1, arg2);})
|
2bcc0d | 2002-05-11 | Martin Stjernholm | | #define OPCODE0_TAIL(OP, DESC, FLAGS, CODE) CASE(OP); CODE
#define OPCODE1_TAIL(OP, DESC, FLAGS, CODE) CASE(OP); CODE
#define OPCODE2_TAIL(OP, DESC, FLAGS, CODE) CASE(OP); CODE
|
795194 | 2000-04-20 | Fredrik Hübinette (Hubbe) | |
|
f14284 | 2003-08-06 | Martin Stjernholm | | #define OPCODE0_JUMP OPCODE0
#define OPCODE1_JUMP OPCODE1
#define OPCODE2_JUMP OPCODE2
#define OPCODE0_TAILJUMP OPCODE0_TAIL
#define OPCODE1_TAILJUMP OPCODE1_TAIL
#define OPCODE2_TAILJUMP OPCODE2_TAIL
|
4555f3 | 2011-05-11 | Henrik Grubbström (Grubba) | | #define OPCODE0_RETURN(OP, DESC, FLAGS, CODE) OPCODE0(OP, DESC, FLAGS | I_RETURN, CODE)
#define OPCODE1_RETURN(OP, DESC, FLAGS, CODE) OPCODE1(OP, DESC, FLAGS | I_RETURN, CODE)
#define OPCODE2_RETURN(OP, DESC, FLAGS, CODE) OPCODE2(OP, DESC, FLAGS | I_RETURN, CODE)
#define OPCODE0_TAILRETURN(OP, DESC, FLAGS, CODE) OPCODE0_TAIL(OP, DESC, FLAGS | I_RETURN, CODE)
#define OPCODE1_TAILRETURN(OP, DESC, FLAGS, CODE) OPCODE1_TAIL(OP, DESC, FLAGS | I_RETURN, CODE)
#define OPCODE2_TAILRETURN(OP, DESC, FLAGS, CODE) OPCODE2_TAIL(OP, DESC, FLAGS | I_RETURN, CODE)
|
799753 | 2001-07-27 | Henrik Grubbström (Grubba) | |
|
f14284 | 2003-08-06 | Martin Stjernholm | | #define OPCODE0_PTRJUMP(OP, DESC, FLAGS, CODE) CASE(OP); CODE; DONE
#define OPCODE0_TAILPTRJUMP(OP, DESC, FLAGS, CODE) CASE(OP); CODE
|
795194 | 2000-04-20 | Fredrik Hübinette (Hubbe) | |
|
f14284 | 2003-08-06 | Martin Stjernholm | | #define OPCODE1_PTRJUMP(OP, DESC, FLAGS, CODE) CASE(OP); { \
|
2f816c | 2004-05-29 | Henrik Grubbström (Grubba) | | arg1=GET_ARG(); \
|
245475 | 2001-07-10 | Henrik Grubbström (Grubba) | | FETCH; \
|
610d05 | 2001-07-06 | Henrik Grubbström (Grubba) | | CODE; \
|
61e983 | 2001-07-08 | Henrik Grubbström (Grubba) | | } DONE
|
610d05 | 2001-07-06 | Henrik Grubbström (Grubba) | |
|
f14284 | 2003-08-06 | Martin Stjernholm | | #define OPCODE2_PTRJUMP(OP, DESC, FLAGS, CODE) CASE(OP); { \
|
2f816c | 2004-05-29 | Henrik Grubbström (Grubba) | | arg1=GET_ARG(); \
arg2=GET_ARG2(); \
|
245475 | 2001-07-10 | Henrik Grubbström (Grubba) | | FETCH; \
|
610d05 | 2001-07-06 | Henrik Grubbström (Grubba) | | CODE; \
|
61e983 | 2001-07-08 | Henrik Grubbström (Grubba) | | } DONE
|
610d05 | 2001-07-06 | Henrik Grubbström (Grubba) | |
|
f14284 | 2003-08-06 | Martin Stjernholm | | #define OPCODE1_TAILPTRJUMP(OP, DESC, FLAGS, CODE) CASE(OP); CODE
#define OPCODE2_TAILPTRJUMP(OP, DESC, FLAGS, CODE) CASE(OP); CODE
|
795194 | 2000-04-20 | Fredrik Hübinette (Hubbe) | |
|
f14284 | 2003-08-06 | Martin Stjernholm | | #define OPCODE0_BRANCH OPCODE0_PTRJUMP
#define OPCODE1_BRANCH OPCODE1_PTRJUMP
#define OPCODE2_BRANCH OPCODE2_PTRJUMP
#define OPCODE0_TAILBRANCH OPCODE0_TAILPTRJUMP
#define OPCODE1_TAILBRANCH OPCODE1_TAILPTRJUMP
#define OPCODE2_TAILBRANCH OPCODE2_TAILPTRJUMP
|
8069c2 | 2002-11-02 | Henrik Grubbström (Grubba) | |
|
87c759 | 2000-04-18 | Fredrik Hübinette (Hubbe) | | #include "interpret_functions.h"
|
61e983 | 2001-07-08 | Henrik Grubbström (Grubba) | |
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | | default:
|
5aad93 | 2002-08-15 | Marcus Comstedt | | Pike_fatal("Strange instruction %ld\n",(long)instr);
|
7d7d7e | 1999-01-31 | Fredrik Hübinette (Hubbe) | | }
}
|
7965d7 | 2001-01-24 | Fredrik Hübinette (Hubbe) | |
|
b42e94 | 2015-09-28 | Martin Nilsson | | UNREACHABLE();
|
88149c | 2001-07-08 | Henrik Grubbström (Grubba) | |
}
|