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.451 2002/10/30 16:02:00 nilsson Exp $ + || $Id: program.c,v 1.452 2002/11/07 14:58:05 grubba Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.451 2002/10/30 16:02:00 nilsson Exp $"); + RCSID("$Id: program.c,v 1.452 2002/11/07 14:58:05 grubba 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:2108: Inside #if defined(PIKE_DEBUG)
   "%*sConstant table:\n"    "%*s ####: Type Name\n",    indent, "", indent, "");    for (d = 0; d < p->num_constants; d++) {    struct program_constant *c = p->constants + d;    fprintf(stderr, "%*s %4d: %4d %s%s%s\n",    indent, "",    d, c->sval.type,    c->name?"\"":"",c->name?c->name->str:"NULL",c->name?"\"":"");    } +  +  fprintf(stderr, "\n" +  "%*sLinenumber table:\n", +  indent, ""); +  { +  INT32 off = 0, line = 0; +  char *cnt = p->line_numbers; +  +  while (cnt < p->line_numbers + p->num_linenumbers) { +  if (*cnt == 127) { +  int len; +  char *file; +  cnt++; +  len = get_small_number(&cnt); +  shift = *cnt; +  file = ++cnt; +  cnt += len << shift; +  if (!shift) { +  fprintf(stderr, "%*s Filename: \"%s\"\n", indent, "", file); +  } else { +  fprintf(stderr, "%*s Filename: len:%d, shift:%d\n", indent, "", len, shift); +  } +  } +  off += get_small_number(&cnt); +  line += get_small_number(&cnt); +  fprintf(stderr, "%*s %8d:%8d\n", indent, "", off, line); +  } +  }    fprintf(stderr, "\n");   }      void check_program(struct program *p)   {    INT32 size;    unsigned INT32 checksum, e;    int variable_positions[1024];       if(p->flags & PROGRAM_AVOID_CHECK) return;