pike.git / src / main.c

version» Context lines:

pike.git/src/main.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: main.c,v 1.195 2004/03/16 18:33:45 mast Exp $ + || $Id: main.c,v 1.196 2004/03/17 19:29:56 mast Exp $   */      #include "global.h" - RCSID("$Id: main.c,v 1.195 2004/03/16 18:33:45 mast Exp $"); + RCSID("$Id: main.c,v 1.196 2004/03/17 19:29:56 mast Exp $");   #include "fdlib.h"   #include "backend.h"   #include "module.h"   #include "object.h"   #include "language.h"   #include "lex.h"   #include "pike_types.h"   #include "builtin_functions.h"   #include "array.h"   #include "stralloc.h"
pike.git/src/main.c:519:    break;       case 'a':    if(p[1]>='0' && p[1]<='9')    a_flag+=STRTOL(p+1,&p,10);    else    a_flag++,p++;    break;       case 't': -  if(p[1]>='0' && p[1]<='9') +  more_t_flags: +  switch (p[1]) { +  case '0': case '1': case '2': case '3': case '4': +  case '5': case '6': case '7': case '8': case '9':    Pike_interpreter.trace_level+=STRTOL(p+1,&p,10); -  else -  Pike_interpreter.trace_level++,p++; +  break; +  +  case 'g': +  gc_trace++; +  p++; +  goto more_t_flags; +  +  default: +  if (p[0] == 't') +  Pike_interpreter.trace_level++; +  p++; +  }    default_t_flag = Pike_interpreter.trace_level;    break;       case 'p':    if(p[1]=='s')    {   #ifdef PROFILING    add_to_callback(&evaluator_callbacks,    sample_stack,    0,0);