pike.git / src / program.c

version» Context lines:

pike.git/src/program.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: program.c,v 1.711 2008/05/30 16:17:07 mast Exp $ + || $Id: program.c,v 1.712 2008/05/30 16:57:03 mast Exp $   */      #include "global.h"   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "lex.h"
pike.git/src/program.c:1500:    return 0;    }    }      /* fprintf(stderr,"index_module: %s\n",ident->str); */       {    JMP_BUF tmp;       if(SETJMP(tmp)) -  { -  if (!ident->size_shift) { -  handle_compile_exception ("Couldn't index a module with '%s'.", ident->str); -  } else { -  handle_compile_exception ("Couldn't index a module."); -  } -  } else { +  handle_compile_exception ("Couldn't index a module with %S.", ident); +  else {    int e = num_used_modules;    struct svalue *m = modules - num_used_modules;       while(--e>=0)    {    push_svalue(m+e);    ref_push_string(ident);    f_index(2);       if(!IS_UNDEFINED(Pike_sp-1))