pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.275 2001/12/13 11:19:18 mast Exp $"); + RCSID("$Id: las.c,v 1.276 2001/12/16 01:17:23 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:126: Inside #if defined(PIKE_DEBUG)
   }    if (state) {    struct identifier *id = ID_FROM_INT(state->new_program, id_no);    if (id) {   #ifdef PIKE_DEBUG    /* FIXME: This test crashes on valid code because the type of the    * identifier can change in pass 2 - Hubbe    */    if(id->type != n->type)    { -  printf("Type of external node is not matching it's identifier.\nid->type: "); +  fprintf(stderr, "Type of external node " +  "is not matching its identifier.\nid->type: ");    simple_describe_type(id->type); -  printf("\nn->type : "); +  fprintf(stderr, "\nn->type : ");    simple_describe_type(n->type); -  printf("\n"); +  fprintf(stderr, "\n");    -  fatal("Type of external node is not matching it's identifier.\n"); +  fatal("Type of external node is not matching its identifier.\n");    }   #endif    }    }    }    }       if(d_flag<2) break;       if(!(depth & 1023))
pike.git/src/las.c:1866:    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 (IS_ZERO(sp-1)) yy_describe_exception(&thrown);    pop_stack();    } -  }else{ +  }else if (!force_resolve) {    /* Hope it's there in pass 2 */    pop_stack();    ref_push_object(placeholder_object);    if (thrown.type != PIKE_T_UNKNOWN)    free_svalue(&thrown);    }    }    }    END_CYCLIC();    }