cvsuser 04/08/20 03:15:53
Modified: include/parrot resources.h
src debug.c inter_misc.c
Log:
more statistics with -d
Revision Changes Path
1.53 +2 -1 parrot/include/parrot/resources.h
Index: resources.h
===================================================================
RCS file: /cvs/public/parrot/include/parrot/resources.h,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -w -r1.52 -r1.53
--- resources.h 17 Aug 2004 11:03:37 -0000 1.52
+++ resources.h 20 Aug 2004 10:15:50 -0000 1.53
@@ -1,7 +1,7 @@
/* resources.h
* Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
* CVS Info
- * $Id: resources.h,v 1.52 2004/08/17 11:03:37 leo Exp $
+ * $Id: resources.h,v 1.53 2004/08/20 10:15:50 leo Exp $
* Overview:
* Defines the resource allocation API
* Data Structure and Algorithms:
@@ -118,6 +118,7 @@
#define TOTAL_COPIED 10
#define IMPATIENT_PMCS 11
#define LAZY_DOD_RUNS 12
+#define EXTENDED_PMCS 13
/* &end_gen */
1.130 +7 -3 parrot/src/debug.c
Index: debug.c
===================================================================
RCS file: /cvs/public/parrot/src/debug.c,v
retrieving revision 1.129
retrieving revision 1.130
diff -u -w -r1.129 -r1.130
--- debug.c 17 Aug 2004 11:03:38 -0000 1.129
+++ debug.c 20 Aug 2004 10:15:53 -0000 1.130
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: debug.c,v 1.129 2004/08/17 11:03:38 leo Exp $
+$Id: debug.c,v 1.130 2004/08/20 10:15:53 leo Exp $
=head1 NAME
@@ -2746,10 +2746,14 @@
interpinfo(interpreter, TOTAL_COPIED));
PIO_eprintf(interpreter, "Active PMCs = %d\n",
interpinfo(interpreter, ACTIVE_PMCS));
- PIO_eprintf(interpreter, "Active buffers = %d\n",
- interpinfo(interpreter, ACTIVE_BUFFERS));
+ PIO_eprintf(interpreter, "Extended PMCs = %d\n",
+ interpinfo(interpreter, EXTENDED_PMCS));
+ PIO_eprintf(interpreter, "Timely DOD PMCs = %d\n",
+ interpinfo(interpreter, IMPATIENT_PMCS));
PIO_eprintf(interpreter, "Total PMCs = %d\n",
interpinfo(interpreter, TOTAL_PMCS));
+ PIO_eprintf(interpreter, "Active buffers = %d\n",
+ interpinfo(interpreter, ACTIVE_BUFFERS));
PIO_eprintf(interpreter, "Total buffers = %d\n",
interpinfo(interpreter, TOTAL_BUFFERS));
PIO_eprintf(interpreter, "Header allocations since last collect = %d\n",
1.7 +4 -1 parrot/src/inter_misc.c
Index: inter_misc.c
===================================================================
RCS file: /cvs/public/parrot/src/inter_misc.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -r1.6 -r1.7
--- inter_misc.c 17 Aug 2004 11:03:38 -0000 1.6
+++ inter_misc.c 20 Aug 2004 10:15:53 -0000 1.7
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: inter_misc.c,v 1.6 2004/08/17 11:03:38 leo Exp $
+$Id: inter_misc.c,v 1.7 2004/08/20 10:15:53 leo Exp $
=head1 NAME
@@ -218,6 +218,9 @@
case IMPATIENT_PMCS:
ret = arena_base->num_early_DOD_PMCs;
break;
+ case EXTENDED_PMCS:
+ ret = arena_base->num_extended_PMCs;
+ break;
}
return ret;
}
