pike.git/ src/ language.yacc

Branch: Tag:

2001-12-16

2001-12-16 02:49:50 by Martin Stjernholm <mast@lysator.liu.se>

Replaced IS_ZERO with SAFE_IS_ZERO, except where it's obvious that
UNSAFE_IS_ZERO works.

Rev: src/array.c:1.121
Rev: src/builtin.cmod:1.72
Rev: src/builtin_functions.c:1.418
Rev: src/cpp.c:1.96
Rev: src/encode.c:1.135
Rev: src/interpret.c:1.254
Rev: src/interpret_functions.h:1.98
Rev: src/iterators.cmod:1.17
Rev: src/language.yacc:1.267
Rev: src/las.c:1.277
Rev: src/module_support.c:1.42
Rev: src/modules/Image/encodings/_xpm.c:1.18
Rev: src/modules/Image/encodings/ilbm.c:1.23
Rev: src/modules/Image/encodings/png.c:1.43
Rev: src/modules/Image/encodings/pvr.c:1.16
Rev: src/modules/Image/encodings/ras.c:1.15
Rev: src/modules/Image/encodings/xbm.c:1.15
Rev: src/modules/Parser/html.c:1.148
Rev: src/modules/_Image_GIF/image_gif.c:1.8
Rev: src/modules/files/efuns.c:1.107
Rev: src/modules/files/file.c:1.230
Rev: src/modules/files/socket.c:1.57
Rev: src/modules/files/stat.c:1.19
Rev: src/modules/files/udp.c:1.28
Rev: src/modules/spider/xml.c:1.47
Rev: src/modules/sprintf/sprintf.c:1.86
Rev: src/multiset.c:1.45
Rev: src/opcodes.c:1.118
Rev: src/operators.c:1.144
Rev: src/post_modules/GTK/source/gtkclist.pre:1.13
Rev: src/preprocessor.h:1.48
Rev: src/program.c:1.392
Rev: src/signal_handler.c:1.212
Rev: src/threads.c:1.177

112:   /* This is the grammar definition of Pike. */      #include "global.h" - RCSID("$Id: language.yacc,v 1.266 2001/12/14 04:10:00 mast Exp $"); + RCSID("$Id: language.yacc,v 1.267 2001/12/16 02:49:40 mast Exp $");   #ifdef HAVE_MEMORY_H   #include <memory.h>   #endif
370:    | { $$=0; }    ;    - force_resolve: /* empty */ { $$=force_resolve; force_resolve=1; } + force_resolve: /* empty */ +  { +  $$=force_resolve; +  force_resolve=1; + #ifdef FORCE_RESOLVE_DEBUG +  fputs("force_resolve on\n", stderr); + #endif +  } +  ;      /* NOTE: This rule pushes a string "name" on the stack in addition    * to resolving the program reference.
412:    low_program_ref optional_rename_inherit ';'    {    force_resolve = $3; + #ifdef FORCE_RESOLVE_DEBUG +  fprintf(stderr, "force_resolve restored to %d\n", force_resolve); + #endif    if (($1 & ID_EXTERN) && (Pike_compiler->compiler_pass == 1)) {    yywarning("Extern declared inherit.");    }
428:    | modifiers TOK_INHERIT force_resolve low_program_ref error ';'    {    force_resolve = $3; + #ifdef FORCE_RESOLVE_DEBUG +  fprintf(stderr, "force_resolve restored to %d\n", force_resolve); + #endif    free_node($4); yyerrok;    }    | modifiers TOK_INHERIT force_resolve low_program_ref error TOK_LEX_EOF    {    force_resolve = $3; -  + #ifdef FORCE_RESOLVE_DEBUG +  fprintf(stderr, "force_resolve restored to %d\n", force_resolve); + #endif    free_node($4);    yyerror("Missing ';'.");    yyerror("Unexpected end of file.");
440:    | modifiers TOK_INHERIT force_resolve low_program_ref error '}'    {    force_resolve = $3; + #ifdef FORCE_RESOLVE_DEBUG +  fprintf(stderr, "force_resolve restored to %d\n", force_resolve); + #endif    free_node($4); yyerror("Missing ';'.");    }    | modifiers TOK_INHERIT error ';' { yyerrok; }
3897:       push_svalue(&s);    low_safe_apply_handler("compile_exception", error_handler, compat_handler, 1); -  if (IS_ZERO(sp-1)) yy_describe_exception(&s); +  if (SAFE_IS_ZERO(sp-1)) yy_describe_exception(&s);    pop_stack();    free_svalue(&s);    } else {
3942:    my_yyerror("Error finding module to import");    push_svalue(&thrown);    low_safe_apply_handler("compile_exception", error_handler, compat_handler, 1); -  if (IS_ZERO(sp-1)) yy_describe_exception(&thrown); +  if (SAFE_IS_ZERO(sp-1)) yy_describe_exception(&thrown);    pop_stack();    free_svalue(&thrown);    }