Branch: Tag:

2001-07-17

2001-07-17 22:03:33 by Henrik Grubbström (Grubba) <grubba@grubba.org>

More sparc support.

Rev: src/interpret.c:1.225
Rev: src/interpreter.h:1.71
Rev: src/peep.c:1.59
Rev: src/program.h:1.140

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.224 2001/07/17 20:32:36 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.225 2001/07/17 22:03:33 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
805: Inside #if defined(PIKE_DEBUG)
   if (t_flag) {    int i;    fprintf(stderr, "Calling code at 0x%p:\n", pc); + #ifdef sparc +  if (((INT32)pc) & 0x03) { +  fatal("Odd offset!\n"); +  } + #endif /* sparc */    for (i=0; i < 16; i+=4) {    fprintf(stderr,    " 0x%08x 0x%08x 0x%08x 0x%08x\n",
1410: Inside #if defined(HAVE_COMPUTED_GOTO)
  #ifdef HAVE_COMPUTED_GOTO    num_locals = (int)(ptrdiff_t)((pc++)[0]);    num_args = (int)(ptrdiff_t)((pc++)[0]); + #elif defined(PIKE_USE_MACHINE_CODE) && defined(sparc) +  num_locals = (pc++)[0]; +  num_args = (pc++)[0];   #else /* !HAVE_COMPUTED_GOTO */    num_locals = EXTRACT_UCHAR(pc++);    num_args = EXTRACT_UCHAR(pc++);