pike.git / src / language.yacc

version» Context lines:

pike.git/src/language.yacc:1:   /* -*- c -*-   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: language.yacc,v 1.325 2003/11/07 21:29:47 mast Exp $ + || $Id: language.yacc,v 1.326 2003/11/14 00:15:06 mast Exp $   */      %pure_parser      %token TOK_ARROW      /*    * Basic value pushing    */   %token TOK_CONSTANT TOK_FLOAT TOK_STRING
pike.git/src/language.yacc:106:   %left TOK_LSH TOK_RSH   %left '+' '-'   %left '*' '%' '/'   %right TOK_NOT '~'   %nonassoc TOK_INC TOK_DEC      %{   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.325 2003/11/07 21:29:47 mast Exp $"); + RCSID("$Id: language.yacc,v 1.326 2003/11/14 00:15:06 mast Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif      #include "interpret.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "las.h"   #include "interpret.h"
pike.git/src/language.yacc:4087:    f=f->previous;    }   }      static void safe_inc_enum(void)   {    JMP_BUF recovery;    STACK_LEVEL_START(1);       if (SETJMP_SP(recovery, 1)) { -  struct svalue s; -  assign_svalue_no_free(&s, &throw_value); -  -  yyerror("Bad implicit enum value (failed to add 1)."); -  -  push_svalue(&s); -  low_safe_apply_handler("compile_exception", error_handler, compat_handler, 1); -  if (SAFE_IS_ZERO(Pike_sp-1)) yy_describe_exception(&s); -  pop_stack(); +  handle_compile_exception ("Bad implicit enum value (failed to add 1).");    push_int(0); -  free_svalue(&s); +     } else {    push_int(1);    f_add(2);    }    UNSETJMP(recovery);    STACK_LEVEL_DONE(1);   }         static int call_handle_import(struct pike_string *s)
pike.git/src/language.yacc:4130:    args, BIT_MAPPING|BIT_OBJECT|BIT_PROGRAM|BIT_ZERO))    if (Pike_sp[-1].type != T_INT)    return 1;    else {    pop_stack();    if (!s->size_shift)    my_yyerror("Couldn't find module to import: %s",s->str);    else    yyerror("Couldn't find module to import");    } -  else { -  struct svalue thrown = throw_value; -  throw_value.type = T_INT; -  my_yyerror("Error finding module to import"); -  push_svalue(&thrown); -  low_safe_apply_handler("compile_exception", error_handler, compat_handler, 1); -  if (SAFE_IS_ZERO(Pike_sp-1)) yy_describe_exception(&thrown); -  pop_stack(); -  free_svalue(&thrown); -  } +  else +  handle_compile_exception ("Error finding module to import");       return 0;   }      void cleanup_compiler(void)   {   }