pike.git/
src/
interpret.c
Branch:
Tag:
Non-build tags
All tags
No tags
2001-07-18
2001-07-18 20:20:23 by Henrik Grubbström (Grubba) <grubba@grubba.org>
8328caa10f541d8e503859761bc8b1f6d5d6f255 (
11
lines) (+
10
/-
1
)
[
Show
|
Annotate
]
Branch:
7.9
More aggressive declaration of reg_pc...
Rev: src/interpret.c:1.227
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: interpret.c,v 1.
226
2001/07/18
11
:
36
:
01
grubba Exp $");
+
RCSID("$Id: interpret.c,v 1.
227
2001/07/18
20
:
20
:
23
grubba Exp $");
#include "interpret.h" #include "object.h" #include "program.h"
761:
void *do_escape_catch_label; void *dummy_label;
+
#ifdef sparc
+
#define DEF_PROG_COUNTER register unsigned INT32 *reg_pc __asm__ ("%i7")
+
#else /* !sparc */
+
#define DEF_PROG_COUNTER
+
#endif /* sparc */
#define OPCODE0(O,N,C) \ void PIKE_CONCAT(opcode_,O)(void) { \
-
+
DEF_PROG_COUNTER; \
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) {\
-
+
DEF_PROG_COUNTER; \
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) { \
-
+
DEF_PROG_COUNTER; \
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 }