pike.git/
src/
main.c
Branch:
Tag:
Non-build tags
All tags
No tags
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;