pike.git/ src/ main.c

2004-03-17

2004-03-17 19:29:56 by Martin Stjernholm <mast@lysator.liu.se>

• 24d38f7727ce31e2789c9106e995cdcbb816b3c2 (26 lines) (+20/-6) ^{[ Show | Annotate ]}
  Branch: 7.9

Added -tg to enable logging of gc runs.

Rev: man/pike.1:1.23
Rev: src/main.c:1.196

2:   || 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"
526:    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;