[gs-cvs] rev 8650 - trunk/gs/src

[ray at ghostscript.com]

Author: ray
Date: 2008-04-19 11:18:34 -0700 (Sat, 19 Apr 2008)
New Revision: 8650

Modified:
   trunk/gs/src/zdevice.c
Log:
Add diagnostic information for start of rendering (Outputpage start) so that
parsing as well as rendering time can be observed with -Z: (gs_debug[':'])


Modified: trunk/gs/src/zdevice.c
===================================================================
--- trunk/gs/src/zdevice.c	2008-04-19 12:48:15 UTC (rev 8649)
+++ trunk/gs/src/zdevice.c	2008-04-19 18:18:34 UTC (rev 8650)
@@ -342,6 +342,11 @@
 
     check_type(op[-1], t_integer);
     check_type(*op, t_boolean);
+    if (gs_debug[':']) {
+	gs_main_instance *minst = get_minst_from_memory((gs_memory_t *)i_ctx_p->memory.current->non_gc_memory);
+
+	print_resource_usage(minst, &(i_ctx_p->memory), "Outputpage start");
+    }
 #ifdef PSI_INCLUDED
     code = ps_end_page_top(imemory,
 			   (int)op[-1].value.intval, op->value.boolval);
@@ -355,7 +360,7 @@
     if (gs_debug[':']) {
 	gs_main_instance *minst = get_minst_from_memory((gs_memory_t *)i_ctx_p->memory.current->non_gc_memory);
 
-	print_resource_usage(minst, &(i_ctx_p->memory), "Outputpage");
+	print_resource_usage(minst, &(i_ctx_p->memory), "Outputpage end");
     }
     return 0;
 }