richter 00/12/04 20:45:22
Modified: . Tag: Embperl2c epcomp.c epdom.c epdom.h
Log:
Embperl 2
Revision Changes Path
No revision
No revision
1.4.2.19 +4 -1 embperl/Attic/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epcomp.c,v
retrieving revision 1.4.2.18
retrieving revision 1.4.2.19
diff -u -r1.4.2.18 -r1.4.2.19
--- epcomp.c 2000/12/04 09:17:35 1.4.2.18
+++ epcomp.c 2000/12/05 04:45:21 1.4.2.19
@@ -1401,6 +1401,7 @@
lprintf (r, "[%d]PERF: After Compile Exec End Time: %d ms \n", r -> nPid,
((cl3 - r -> startclock) * 1000 / CLOCKS_PER_SEC)) ;
lprintf (r, "[%d]PERF: Perl Compile End Time: %d ms \n", r -> nPid,
((cl4 - r -> startclock) * 1000 / CLOCKS_PER_SEC)) ;
lprintf (r, "[%d]PERF: Compile Time: %d ms \n", r -> nPid,
((cl4 - cl1) * 1000 / CLOCKS_PER_SEC)) ;
+ DomStats () ;
}
#endif
@@ -1467,6 +1468,7 @@
lprintf (r, "[%d]PERF: Parse Start Time: %d ms \n", r -> nPid,
((cl1 - r -> startclock) * 1000 / CLOCKS_PER_SEC)) ;
lprintf (r, "[%d]PERF: Parse End Time: %d ms \n", r ->
nPid, ((cl2 - r -> startclock) * 1000 / CLOCKS_PER_SEC)) ;
lprintf (r, "[%d]PERF: Parse Time: %d ms \n", r -> nPid,
((cl2 - cl1) * 1000 / CLOCKS_PER_SEC)) ;
+ DomStats () ;
}
#endif
}
@@ -1676,7 +1678,8 @@
lprintf (r, "[%d]PERF: Run Start Time: %d ms \n", r -> nPid, ((cl1 - r
-> startclock) * 1000 / CLOCKS_PER_SEC)) ;
lprintf (r, "[%d]PERF: Run End Time: %d ms \n", r -> nPid, ((cl2 - r
-> startclock) * 1000 / CLOCKS_PER_SEC)) ;
lprintf (r, "[%d]PERF: Run Time: %d ms \n", r -> nPid, ((cl2 -
cl1) * 1000 / CLOCKS_PER_SEC)) ;
- }
+ DomStats () ;
+ }
#endif
DomTree_checkpoint (r -> xCurrDomTree, -1) ;
1.4.2.7 +16 -0 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.4.2.6
retrieving revision 1.4.2.7
diff -u -r1.4.2.6 -r1.4.2.7
--- epdom.c 2000/12/04 09:17:35 1.4.2.6
+++ epdom.c 2000/12/05 04:45:21 1.4.2.7
@@ -511,6 +511,22 @@
ArrayNew (&pFreeDomTrees, 16, sizeof (tIndex)) ;
}
+
+/* ------------------------------------------------------------------------ */
+/* */
+/* DomStats */
+/* */
+/* print statistics */
+/* */
+/* ------------------------------------------------------------------------ */
+
+
+void DomStats (void)
+
+ {
+ lprintf (pCurrReq, "[%d]PERF: DOMSTAT: MemUsage = %d Bytes numNodes = %d
numPad = %d numStr = %d\n", pCurrReq -> nPid, nMemUsage, numNodes, numPads, numStr) ;
+ }
+
/* ------------------------------------------------------------------------ */
/* */
/* DomTree_alloc */
1.4.2.6 +2 -0 embperl/Attic/epdom.h
Index: epdom.h
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.h,v
retrieving revision 1.4.2.5
retrieving revision 1.4.2.6
diff -u -r1.4.2.5 -r1.4.2.6
--- epdom.h 2000/11/02 08:45:21 1.4.2.5
+++ epdom.h 2000/12/05 04:45:21 1.4.2.6
@@ -238,6 +238,8 @@
int DomInit (void) ;
+void DomStats (void) ;
+
int DomTree_clone (/*in*/ tDomTree * pOrgDomTree,
/*out*/tDomTree * * pNewDomTree,
/*in*/ int bForceDocFraq) ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
