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.490 2003/03/27 02:20:24 mast Exp $ + || $Id: program.c,v 1.491 2003/03/29 21:23:11 mast Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.490 2003/03/27 02:20:24 mast Exp $"); + RCSID("$Id: program.c,v 1.491 2003/03/29 21:23:11 mast Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "language.h"   #include "lex.h"   #include "pike_macros.h"   #include "fsort.h"
pike.git/src/program.c:1497: Inside #if defined(PIKE_DEBUG)
  #ifdef PIKE_DEBUG   struct pike_string *find_program_name(struct program *p, INT32 *line)   {    ptrdiff_t pos;    INT32 l;    if(!line) line=&l;      #ifdef DEBUG_MALLOC    {    char *tmp=dmalloc_find_name(p); +  if (tmp) { +  char *p = strchr (tmp, ':'); +  if (p) { +  char *pp; +  while ((pp = strchr (p + 1, ':'))) p = pp; +  *line = atoi (p + 1); +  return make_shared_binary_string (tmp, p - tmp); +  } +  else {    *line=0; -  if(tmp) return make_shared_string(tmp); +  return make_shared_string(tmp);    } -  +  } +  }   #endif       return get_program_line(p, line);   }   #endif      int override_identifier (struct reference *ref, struct pike_string *name)   {    int id = -1, cur_id = 0;    /* This loop could possibly be optimized by looping over