pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*   || 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: las.c,v 1.325 2004/03/15 15:24:29 grubba Exp $ + || $Id: las.c,v 1.326 2004/10/11 16:41:48 mast Exp $   */      #include "global.h" - RCSID("$Id: las.c,v 1.325 2004/03/15 15:24:29 grubba Exp $"); + RCSID("$Id: las.c,v 1.326 2004/10/11 16:41:48 mast Exp $");      #include "language.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"   #include "pike_types.h"
pike.git/src/las.c:1829:    throw_value.type = T_INT;       if (node_name) {    my_yyerror("Couldn't index module '%s'.", node_name);    } else {    yyerror("Couldn't index module.");    }       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); +  if (SAFE_IS_ZERO(Pike_sp-1)) yy_describe_exception(&thrown, 0);    pop_stack();    free_svalue(&thrown);    }else{    resolv_constant(n);    switch(Pike_sp[-1].type)    {    case T_INT:    if(!Pike_compiler->num_parse_error) {    if (node_name) {    my_yyerror("Failed to index module '%s' with '%s' "
pike.git/src/las.c:1940:    my_yyerror("Index '%s' not present in module '%s'.",    id->str, node_name);    } else {    my_yyerror("Index '%s' not present in module.", id->str);    }       if (thrown.type != PIKE_T_UNKNOWN) {    *(Pike_sp++) = thrown;    thrown.type = PIKE_T_INT;    low_safe_apply_handler("compile_exception", error_handler, compat_handler, 1); -  if (SAFE_IS_ZERO(Pike_sp-1)) yy_describe_exception(&thrown); +  if (SAFE_IS_ZERO(Pike_sp-1)) yy_describe_exception(&thrown, 0);    pop_stack();    }    }else if (!(Pike_compiler->flags & COMPILATION_FORCE_RESOLVE)) {    /* Hope it's there in pass 2 */    pop_stack();   #if 0    fprintf(stderr, "Placeholder deployed when indexing ");    print_tree(n);    fprintf(stderr, "with %s\n", id->str);   #endif
pike.git/src/las.c:5366:    if(print_error)    /* Generate error message */    if(!Pike_compiler->catch_level)    {    struct svalue thrown = throw_value;    throw_value.type = T_INT;    yyerror("Error evaluating constant.\n");    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); +  if (SAFE_IS_ZERO(Pike_sp-1)) yy_describe_exception(&thrown, 0);    pop_stack();    free_svalue(&thrown);    }    else {    free_svalue(&throw_value);    throw_value.type = T_INT;    }    else {    free_svalue(&throw_value);    throw_value.type = T_INT;