pike.git/ src/ interpret.c

2001-07-17

2001-07-17 20:32:36 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• a8e2ec984581b4e71a9ecaeac820baac517633a9 (13 lines) (+10/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

Fix for sparc.

Rev: src/interpret.c:1.224

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.223 2001/07/17 17:50:38 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.224 2001/07/17 20:32:36 grubba Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
849:      #endif /* __GNUC__ */    + #ifdef sparc + #define SET_PROG_COUNTER(X) (PROG_COUNTER=((char *)X)-8) + #else /* !sparc */ + #define SET_PROG_COUNTER(X) (PROG_COUNTER=(X)) + #endif /* sparc */ +    #undef DONE   #undef FETCH   #undef INTER_RETURN
856:      #define DONE return   #define FETCH - #define INTER_RETURN {PROG_COUNTER=do_inter_return_label;DONE;} - #define INTER_ESCAPE_CATCH {PROG_COUNTER=do_escape_catch_label;DONE;} + #define INTER_RETURN {SET_PROG_COUNTER(do_inter_return_label);DONE;} + #define INTER_ESCAPE_CATCH {SET_PROG_COUNTER(do_escape_catch_label);DONE;}      #include "interpret_functions_fixed.h"