Branch: Tag:

1999-11-30

1999-11-30 07:50:20 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

new opcode: RETURN_IF_TRUE

Rev: src/interpreter.h:1.20
Rev: src/language.yacc:1.138
Rev: src/lex.c:1.67
Rev: src/peep.in:1.27
Rev: src/program.c:1.176

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.175 1999/11/22 19:06:21 grubba Exp $"); + RCSID("$Id: program.c,v 1.176 1999/11/30 07:50:20 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
2739:   struct program *compile(struct pike_string *prog, struct object *handler)   {   #ifdef PIKE_DEBUG -  JMP_BUF tmp; +  ONERROR tmp;   #endif    struct program *p;    struct lex save_lex;
2759:    saved_threads_disabled = threads_disabled;      #ifdef PIKE_DEBUG -  if(SETJMP(tmp)) -  fatal("Compiler exited with longjump!\n"); +  SET_ONERROR(tmp, fatal_on_error,"Compiler exited with longjump!\n");   #endif       num_used_modules=0;
2868:    error_handler = saved_handler;      #ifdef PIKE_DEBUG -  UNSETJMP(tmp); +  UNSET_ONERROR(tmp);   #endif       if(!p) error("Compilation failed.\n");