pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.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: interpret.c,v 1.353 2004/09/30 15:28:08 mast Exp $ + || $Id: interpret.c,v 1.354 2007/04/15 12:18:21 peter Exp $   */      #include "global.h" - RCSID("$Id: interpret.c,v 1.353 2004/09/30 15:28:08 mast Exp $"); + RCSID("$Id: interpret.c,v 1.354 2007/04/15 12:18:21 peter Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"   #include "stralloc.h"   #include "constants.h"   #include "pike_macros.h"
pike.git/src/interpret.c:1415:    }       if(Pike_fp && Pike_fp->pc)    {    char *f;    filep = get_line(Pike_fp->pc,Pike_fp->context.prog,&linep);    if (filep->size_shift)    file = "...";    else {    file = filep->str; -  while((f=STRCHR(file,'/'))) +  while((f=STRCHR(file,'/')) || (f=STRCHR(file,'\\')))    file=f+1;    }    }else{    linep=0;    file="-";    }       { -  char buf[40]; +  char buf[100];    if (linep)    SNPRINTF(buf, sizeof (buf), "%s:%ld:", file, (long)linep);    else    SNPRINTF(buf, sizeof (buf), "%s:", file);    fprintf(stderr,"- %-20s %s\n",buf,s);    }       if (filep) {    free_string(filep);    }