b97064ace03684a0dae64727f6d550b9d3d09348
[cacao.git] / src / vmcore / statistics.c
1 /* src/vmcore/statistics.c - global varables for statistics
2
3    Copyright (C) 1996-2005, 2006, 2007 R. Grafl, A. Krall, C. Kruegel,
4    C. Oates, R. Obermaisser, M. Platter, M. Probst, S. Ring,
5    E. Steiner, C. Thalinger, D. Thuernbeck, P. Tomsich, C. Ullrich,
6    J. Wenninger, Institut f. Computersprachen - TU Wien
7
8    This file is part of CACAO.
9
10    This program is free software; you can redistribute it and/or
11    modify it under the terms of the GNU General Public License as
12    published by the Free Software Foundation; either version 2, or (at
13    your option) any later version.
14
15    This program is distributed in the hope that it will be useful, but
16    WITHOUT ANY WARRANTY; without even the implied warranty of
17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
18    General Public License for more details.
19
20    You should have received a copy of the GNU General Public License
21    along with this program; if not, write to the Free Software
22    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
23    02110-1301, USA.
24
25    $Id: statistics.c 8006 2007-06-05 07:40:49Z twisti $
26
27 */
28
29
30 #include "config.h"
31
32 #include <string.h> 
33
34 #if defined(HAVE_TIME_H)
35 # include <time.h>
36 #endif
37
38 #if defined(HAVE_SYS_TIME_H)
39 # include <sys/time.h>
40 #endif
41
42 #if defined(HAVE_SYS_RESOURCE_H)
43 # include <sys/resource.h>
44 #endif
45
46 #include "vm/types.h"
47
48 #include "mm/gc-common.h"
49
50 #include "toolbox/logging.h"
51
52 #include "vm/global.h"
53
54 #include "vm/jit/code.h"
55
56 #include "vmcore/class.h"
57 #include "vmcore/field.h"
58 #include "vmcore/method.h"
59 #include "vmcore/options.h"
60 #include "vmcore/statistics.h"
61
62
63 /* global variables ***********************************************************/
64
65 static s8 loadingtime = 0;              /* accumulated loading time           */
66 static s8 loadingstarttime = 0;
67 static s8 loadingstoptime = 0;
68 static s4 loadingtime_recursion = 0;
69
70 static s8 compilingtime = 0;            /* accumulated compile time           */
71 static s8 compilingstarttime = 0;
72 static s8 compilingstoptime = 0;
73 static s4 compilingtime_recursion = 0;
74
75 s4 codememusage = 0;
76 s4 maxcodememusage = 0;
77
78 s4 memoryusage = 0;
79 s4 maxmemusage = 0;
80
81 s4 maxdumpsize = 0;
82
83 s4 globalallocateddumpsize = 0;
84 s4 globaluseddumpsize = 0;
85
86
87 /* variables for measurements *************************************************/
88
89 s4 size_classinfo        = 0;
90 s4 size_fieldinfo        = 0;
91 s4 size_methodinfo       = 0;
92 s4 size_lineinfo         = 0;
93 s4 size_codeinfo         = 0;
94
95 s4 size_stub_native      = 0;
96
97 s4 size_stack_map        = 0;
98 s4 size_string           = 0;
99
100 s4 size_threadobject     = 0;
101
102 s4 size_lock_record      = 0;
103 s4 size_lock_hashtable   = 0;
104 s4 size_lock_waiter      = 0;
105
106 u8 count_calls_java_to_native = 0;
107 u8 count_calls_native_to_java = 0;
108
109 int count_const_pool_len = 0;
110 int count_classref_len = 0;
111 int count_parsed_desc_len = 0;
112 int count_vftbl_len = 0;
113 int count_all_methods = 0;
114 int count_methods_marked_used = 0;  /* RTA */
115
116 int count_vmcode_len = 0;
117 int count_extable_len = 0;
118 int count_class_loads = 0;
119 int count_class_inits = 0;
120
121 int count_utf_len = 0;                  /* size of utf hash                   */
122 int count_utf_new = 0;                  /* calls of utf_new                   */
123 int count_utf_new_found  = 0;           /* calls of utf_new with fast return  */
124
125 int count_locals_conflicts = 0;         /* register allocator statistics */
126 int count_locals_spilled = 0;
127 int count_locals_register = 0;
128 int count_ss_spilled = 0;
129 int count_ss_register = 0;
130 int count_methods_allocated_by_lsra = 0;
131 int count_mem_move_bb = 0;
132 int count_interface_size = 0;
133 int count_argument_mem_ss = 0;
134 int count_argument_reg_ss = 0;
135 int count_method_in_register = 0;
136 int count_mov_reg_reg = 0;
137 int count_mov_mem_reg = 0;
138 int count_mov_reg_mem = 0;
139 int count_mov_mem_mem = 0;
140
141 int count_jit_calls = 0;
142 int count_methods = 0;
143 int count_spills = 0;
144 int count_spills_read = 0;
145 int count_pcmd_activ = 0;
146 int count_pcmd_drop = 0;
147 int count_pcmd_zero = 0;
148 int count_pcmd_const_store = 0;
149 int count_pcmd_const_alu = 0;
150 int count_pcmd_const_bra = 0;
151 int count_pcmd_load = 0;
152 int count_pcmd_move = 0;
153 int count_load_instruction = 0;
154 int count_pcmd_store = 0;
155 int count_pcmd_store_comb = 0;
156 int count_dup_instruction = 0;
157 int count_pcmd_op = 0;
158 int count_pcmd_mem = 0;
159 int count_pcmd_met = 0;
160 int count_pcmd_bra = 0;
161 int count_pcmd_table = 0;
162 int count_pcmd_return = 0;
163 int count_pcmd_returnx = 0;
164 int count_check_null = 0;
165 int count_check_bound = 0;
166 int count_max_basic_blocks = 0;
167 int count_basic_blocks = 0;
168 int count_javainstr = 0;
169 int count_max_javainstr = 0;
170 int count_javacodesize = 0;
171 int count_javaexcsize = 0;
172 int count_calls = 0;
173 int count_tryblocks = 0;
174 int count_code_len = 0;
175 int count_data_len = 0;
176 int count_cstub_len = 0;
177 int count_max_new_stack = 0;
178 int count_upper_bound_new_stack = 0;
179
180 s4 count_branches_resolved   = 0;
181 s4 count_branches_unresolved = 0;
182
183 u8 count_jni_callXmethod_calls=0;
184 u8 count_jni_calls=0;
185
186
187 static int count_block_stack_init[11] = {
188         0, 0, 0, 0, 0, 
189         0, 0, 0, 0, 0, 
190         0
191 };
192 int *count_block_stack = count_block_stack_init;
193 static int count_analyse_iterations_init[5] = {
194         0, 0, 0, 0, 0
195 };
196 int *count_analyse_iterations = count_analyse_iterations_init;
197 static int count_method_bb_distribution_init[9] = {
198         0, 0, 0, 0, 0,
199         0, 0, 0, 0
200 };
201 int *count_method_bb_distribution = count_method_bb_distribution_init;
202 static int count_block_size_distribution_init[18] = {
203         0, 0, 0, 0, 0,
204         0, 0, 0, 0, 0,
205         0, 0, 0, 0, 0,
206         0, 0, 0
207 };
208 int *count_block_size_distribution = count_block_size_distribution_init;
209 static int count_store_length_init[21] = {
210         0, 0, 0, 0, 0,
211         0, 0, 0, 0, 0,
212         0, 0, 0, 0, 0,
213         0, 0, 0, 0, 0,
214         0
215 };
216 int *count_store_length = count_store_length_init;
217 static int count_store_depth_init[11] = {
218         0, 0, 0, 0, 0,
219         0, 0, 0, 0, 0,
220         0
221 };
222 int *count_store_depth = count_store_depth_init;
223
224
225 /* instruction scheduler statistics *******************************************/
226
227 s4 count_schedule_basic_blocks = 0;
228 s4 count_schedule_nodes = 0;
229 s4 count_schedule_leaders = 0;
230 s4 count_schedule_max_leaders = 0;
231 s4 count_schedule_critical_path = 0;
232
233
234 /* jnicallXmethodinvokation ***************************************************
235
236    increments the jni CallXMethod invokation count by one
237         
238 *******************************************************************************/
239
240 void jnicallXmethodnvokation(void)
241 {
242         /* XXX do locking here */
243         count_jni_callXmethod_calls++;
244 }
245
246
247 /* jniinvokation *************************************************************
248
249    increments the jni overall  invokation count by one
250         
251 *******************************************************************************/
252
253 void jniinvokation(void)
254 {
255         /* XXX do locking here */
256         count_jni_calls++;
257 }
258
259
260 /* getcputime *********************************** ******************************
261
262    Returns the used CPU time in microseconds
263         
264 *******************************************************************************/
265
266 s8 getcputime(void)
267 {
268 #if defined(HAVE_GETRUSAGE)
269         struct rusage ru;
270         int sec, usec;
271
272         getrusage(RUSAGE_SELF, &ru);
273
274         sec  = ru.ru_utime.tv_sec + ru.ru_stime.tv_sec;
275         usec = ru.ru_utime.tv_usec + ru.ru_stime.tv_usec;
276
277         return sec * 1000000 + usec;
278 #else
279         /* If we don't have getrusage, simply return 0. */
280
281         return 0;
282 #endif
283 }
284
285
286 /* loadingtime_stop ************************************************************
287
288    XXX
289
290 *******************************************************************************/
291
292 void loadingtime_start(void)
293 {
294         loadingtime_recursion++;
295
296         if (loadingtime_recursion == 1)
297                 loadingstarttime = getcputime();
298 }
299
300
301 /* loadingtime_stop ************************************************************
302
303    XXX
304
305 *******************************************************************************/
306
307 void loadingtime_stop(void)
308 {
309         if (loadingtime_recursion == 1) {
310                 loadingstoptime = getcputime();
311                 loadingtime += (loadingstoptime - loadingstarttime);
312         }
313
314         loadingtime_recursion--;
315 }
316
317
318 /* compilingtime_stop **********************************************************
319
320    XXX
321
322 *******************************************************************************/
323
324 void compilingtime_start(void)
325 {
326         compilingtime_recursion++;
327
328         if (compilingtime_recursion == 1)
329                 compilingstarttime = getcputime();
330 }
331
332
333 /* compilingtime_stop **********************************************************
334
335    XXX
336
337 *******************************************************************************/
338
339 void compilingtime_stop(void)
340 {
341         if (compilingtime_recursion == 1) {
342                 compilingstoptime = getcputime();
343                 compilingtime += (compilingstoptime - compilingstarttime);
344         }
345
346         compilingtime_recursion--;
347 }
348
349
350 /* print_times *****************************************************************
351
352    Prints a summary of CPU time usage.
353
354 *******************************************************************************/
355
356 void print_times(void)
357 {
358         s8 totaltime;
359         s8 runtime;
360
361         totaltime = getcputime();
362         runtime = totaltime - loadingtime - compilingtime;
363
364 #if SIZEOF_VOID_P == 8
365         dolog("Time for loading classes: %6ld ms", loadingtime / 1000);
366         dolog("Time for compiling code:  %6ld ms", compilingtime / 1000);
367         dolog("Time for running program: %6ld ms", runtime / 1000);
368         dolog("Total time:               %6ld ms", totaltime / 1000);
369 #else
370         dolog("Time for loading classes: %6lld ms", loadingtime / 1000);
371         dolog("Time for compiling code:  %6lld ms", compilingtime / 1000);
372         dolog("Time for running program: %6lld ms", runtime / 1000);
373         dolog("Total time:               %6lld ms", totaltime / 1000);
374 #endif
375 }
376
377
378 /* print_stats *****************************************************************
379
380    outputs detailed compiler statistics
381
382 *******************************************************************************/
383
384 void print_stats(void)
385 {
386         s4    i;
387         float f;
388         s4    sum;
389
390
391         dolog("Number of JIT compiler calls: %6d", count_jit_calls);
392         dolog("Number of compiled methods:   %6d", count_methods);
393
394         dolog("Number of compiled basic blocks:               %6d",
395                   count_basic_blocks);
396         dolog("Number of max. basic blocks per method:        %6d",
397                   count_max_basic_blocks);
398
399         dolog("Number of compiled JavaVM instructions:        %6d",
400                   count_javainstr);
401         dolog("Number of max. JavaVM instructions per method: %6d",
402                   count_max_javainstr);
403         dolog("Size of compiled JavaVM instructions:          %6d(%d)",
404                   count_javacodesize, count_javacodesize - count_methods * 18);
405
406         dolog("Size of compiled Exception Tables:      %d", count_javaexcsize);
407         dolog("Number of Machine-Instructions: %d", count_code_len >> 2);
408         dolog("Number of Spills (write to memory): %d", count_spills);
409         dolog("Number of Spills (read from memory): %d", count_spills_read);
410         dolog("Number of Activ    Pseudocommands: %6d", count_pcmd_activ);
411         dolog("Number of Drop     Pseudocommands: %6d", count_pcmd_drop);
412         dolog("Number of Const    Pseudocommands: %6d (zero:%5d)",
413                   count_pcmd_load, count_pcmd_zero);
414         dolog("Number of ConstAlu Pseudocommands: %6d (cmp: %5d, store:%5d)",
415                   count_pcmd_const_alu, count_pcmd_const_bra, count_pcmd_const_store);
416         dolog("Number of Move     Pseudocommands: %6d", count_pcmd_move);
417         dolog("Number of Load     Pseudocommands: %6d", count_load_instruction);
418         dolog("Number of Store    Pseudocommands: %6d (combined: %5d)",
419                   count_pcmd_store, count_pcmd_store - count_pcmd_store_comb);
420         dolog("Number of OP       Pseudocommands: %6d", count_pcmd_op);
421         dolog("Number of DUP      Pseudocommands: %6d", count_dup_instruction);
422         dolog("Number of Mem      Pseudocommands: %6d", count_pcmd_mem);
423         dolog("Number of Method   Pseudocommands: %6d", count_pcmd_met);
424         dolog("Number of Branch   Pseudocommands: %6d (rets:%5d, Xrets: %5d)",
425                   count_pcmd_bra, count_pcmd_return, count_pcmd_returnx);
426         log_println("                resolved branches: %6d", count_branches_resolved);
427         log_println("              unresolved branches: %6d", count_branches_unresolved);
428         dolog("Number of Table    Pseudocommands: %6d", count_pcmd_table);
429         dolog("Number of Useful   Pseudocommands: %6d", count_pcmd_table +
430                   count_pcmd_bra + count_pcmd_load + count_pcmd_mem + count_pcmd_op);
431         dolog("Number of Null Pointer Checks:     %6d", count_check_null);
432         dolog("Number of Array Bound Checks:      %6d", count_check_bound);
433         dolog("Number of Try-Blocks: %d", count_tryblocks);
434         dolog("Maximal count of stack elements:   %d", count_max_new_stack);
435         dolog("Upper bound of max stack elements: %d", count_upper_bound_new_stack);
436         dolog("Distribution of stack sizes at block boundary");
437         dolog("     0     1     2     3     4     5     6     7     8     9  >=10");
438         dolog("%6d%6d%6d%6d%6d%6d%6d%6d%6d%6d%6d",
439                   count_block_stack[0], count_block_stack[1], count_block_stack[2],
440                   count_block_stack[3], count_block_stack[4], count_block_stack[5],
441                   count_block_stack[6], count_block_stack[7], count_block_stack[8],
442                   count_block_stack[9], count_block_stack[10]);
443         dolog("Distribution of store stack depth");
444         dolog("     0     1     2     3     4     5     6     7     8     9  >=10");
445         dolog("%6d%6d%6d%6d%6d%6d%6d%6d%6d%6d%6d",
446                   count_store_depth[0], count_store_depth[1], count_store_depth[2],
447                   count_store_depth[3], count_store_depth[4], count_store_depth[5],
448                   count_store_depth[6], count_store_depth[7], count_store_depth[8],
449                   count_store_depth[9], count_store_depth[10]);
450         dolog("Distribution of store creator chains first part");
451         dolog("     0     1     2     3     4     5     6     7     8     9");
452         dolog("%6d%6d%6d%6d%6d%6d%6d%6d%6d%6d",
453                   count_store_length[0], count_store_length[1], count_store_length[2],
454                   count_store_length[3], count_store_length[4], count_store_length[5],
455                   count_store_length[6], count_store_length[7], count_store_length[8],
456                   count_store_length[9]);
457         dolog("Distribution of store creator chains second part");
458         dolog("    10    11    12    13    14    15    16    17    18    19  >=20");
459         dolog("%6d%6d%6d%6d%6d%6d%6d%6d%6d%6d%6d",
460                   count_store_length[10], count_store_length[11],
461                   count_store_length[12], count_store_length[13],
462                   count_store_length[14], count_store_length[15],
463                   count_store_length[16], count_store_length[17],
464                   count_store_length[18], count_store_length[19],
465                   count_store_length[20]);
466         dolog("Distribution of analysis iterations");
467         dolog("     1     2     3     4   >=5");
468         dolog("%6d%6d%6d%6d%6d",
469                   count_analyse_iterations[0], count_analyse_iterations[1],
470                   count_analyse_iterations[2], count_analyse_iterations[3],
471                   count_analyse_iterations[4]);
472
473
474         /* Distribution of basic blocks per method ********************************/
475
476         log_println("Distribution of basic blocks per method:");
477         log_println("   <=5  <=10  <=15  <=20  <=30  <=40  <=50  <=75   >75");
478
479         log_start();
480         for (i = 0; i <= 8; i++)
481                 log_print("%6d", count_method_bb_distribution[i]);
482         log_finish();
483
484         /* print ratio */
485
486         f = (float) count_methods;
487
488         log_start();
489         for (i = 0; i <= 8; i++)
490                 log_print("%6.2f", (float) count_method_bb_distribution[i] / f);
491         log_finish();
492
493         /* print cumulated ratio */
494
495         log_start();
496         for (i = 0, sum = 0; i <= 8; i++) {
497                 sum += count_method_bb_distribution[i];
498                 log_print("%6.2f", (float) sum / f);
499         }
500         log_finish();
501
502
503         /* Distribution of basic block sizes **************************************/
504
505         log_println("Distribution of basic block sizes:");
506         log_println("     0     1     2     3     4     5     6     7     8     9   <13   <15   <17   <19   <21   <26   <31   >30");
507
508         /* print block sizes */
509
510         log_start();
511         for (i = 0; i <= 17; i++)
512                 log_print("%6d", count_block_size_distribution[i]);
513         log_finish();
514
515         /* print ratio */
516
517         f = (float) count_basic_blocks;
518
519         log_start();
520         for (i = 0; i <= 17; i++)
521                 log_print("%6.2f", (float) count_block_size_distribution[i] / f);
522         log_finish();
523
524         /* print cumulated ratio */
525
526         log_start();
527         for (i = 0, sum = 0; i <= 17; i++) {
528                 sum += count_block_size_distribution[i];
529                 log_print("%6.2f", (float) sum / f);
530         }
531         log_finish();
532
533         statistics_print_memory_usage();
534
535         dolog("Number of class loads:    %6d", count_class_loads);
536         dolog("Number of class inits:    %6d", count_class_inits);
537         dolog("Number of loaded Methods: %6d\n", count_all_methods);
538
539         dolog("Calls of utf_new:                 %6d", count_utf_new);
540         dolog("Calls of utf_new (element found): %6d\n", count_utf_new_found);
541
542
543         /* LSRA statistics ********************************************************/
544
545         dolog("Moves reg -> reg:     %6d", count_mov_reg_reg);
546         dolog("Moves mem -> reg:     %6d", count_mov_mem_reg);
547         dolog("Moves reg -> mem:     %6d", count_mov_reg_mem);
548         dolog("Moves mem -> mem:     %6d", count_mov_mem_mem);
549
550         dolog("Methods allocated by LSRA:         %6d",
551                   count_methods_allocated_by_lsra);
552         dolog("Conflicts between local Variables: %6d", count_locals_conflicts);
553         dolog("Local Variables held in Memory:    %6d", count_locals_spilled);
554         dolog("Local Variables held in Registers: %6d", count_locals_register);
555         dolog("Stackslots held in Memory:         %6d", count_ss_spilled);
556         dolog("Stackslots held in Registers:      %6d", count_ss_register);
557         dolog("Memory moves at BB Boundaries:     %6d", count_mem_move_bb);
558         dolog("Number of interface slots:         %6d\n", count_interface_size);
559         dolog("Number of Argument stack slots in register:  %6d",
560                   count_argument_reg_ss);
561         dolog("Number of Argument stack slots in memory:    %6d\n",
562                   count_argument_mem_ss);
563         dolog("Number of Methods kept in registers:         %6d\n",
564                   count_method_in_register);
565
566
567         /* instruction scheduler statistics ***************************************/
568
569 #if defined(USE_SCHEDULER)
570         dolog("Instruction scheduler statistics:");
571         dolog("Number of basic blocks:       %7d", count_schedule_basic_blocks);
572         dolog("Number of nodes:              %7d", count_schedule_nodes);
573         dolog("Number of leaders nodes:      %7d", count_schedule_leaders);
574         dolog("Number of max. leaders nodes: %7d", count_schedule_max_leaders);
575         dolog("Length of critical path:      %7d\n", count_schedule_critical_path);
576 #endif
577
578
579         /* call statistics ********************************************************/
580
581         dolog("Function call statistics:");
582         dolog("Number of jni->CallXMethod function invokations: %ld",
583                   count_jni_callXmethod_calls);
584         dolog("Overall number of jni invokations:               %ld",
585                   count_jni_calls);
586
587         log_println("java-to-native calls:   %10ld", count_calls_java_to_native);
588         log_println("native-to-java calls:   %10ld", count_calls_native_to_java);
589
590
591         /* now print other statistics ********************************************/
592
593 #if defined(ENABLE_INTRP)
594         print_dynamic_super_statistics();
595 #endif
596 }
597
598
599 /* statistics_print_date *******************************************************
600
601    Print current date and time.
602
603 *******************************************************************************/
604
605 void statistics_print_date(void)
606 {
607   time_t t;
608   struct tm tm;
609
610 #if defined(HAVE_TIME)
611   time(&t);
612 #else
613 # error !HAVE_TIME
614 #endif
615
616 #if defined(HAVE_LOCALTIME_R)
617   localtime_r(&t, &tm);
618 #else
619 # error !HAVE_LOCALTIME_R
620 #endif
621
622   log_println("%d-%02d-%02d %02d:%02d:%02d",
623                           1900 + tm.tm_year, tm.tm_mon + 1, tm.tm_mday,
624                           tm.tm_hour, tm.tm_min, tm.tm_sec);
625 }
626
627
628 /* statistics_print_memory_usage ***********************************************
629
630    Print current memory usage.
631
632 *******************************************************************************/
633
634 void statistics_print_memory_usage(void)
635 {
636         s4 sum;
637
638         log_println("memory usage ----------------------");
639         log_println("");
640         log_println("code:                   %10d", count_code_len);
641         log_println("data:                   %10d", count_data_len);
642         log_println("                         ----------");
643
644         sum =
645                 count_code_len +
646                 count_data_len;
647
648         log_println("                        %10d", sum);
649         log_println("");
650         log_println("classinfo  (%3d B):     %10d", (int) sizeof(classinfo), size_classinfo);
651         log_println("fieldinfo  (%3d B):     %10d", (int) sizeof(fieldinfo), size_fieldinfo);
652         log_println("methodinfo (%3d B):     %10d", (int) sizeof(methodinfo), size_methodinfo);
653         log_println("lineinfo   (%3d B):     %10d", (int) sizeof(lineinfo), size_lineinfo);
654         log_println("codeinfo   (%3d B):     %10d", (int) sizeof(codeinfo), size_codeinfo);
655         log_println("                         ----------");
656
657         sum =
658                 size_classinfo +
659                 size_fieldinfo +
660                 size_methodinfo +
661                 size_lineinfo +
662                 size_codeinfo;
663
664         log_println("                        %10d", sum);
665         log_println("");
666         log_println("constant pool:          %10d", count_const_pool_len);
667         log_println("classref:               %10d", count_classref_len);
668         log_println("parsed descriptors:     %10d", count_parsed_desc_len);
669         log_println("vftbl:                  %10d", count_vftbl_len);
670         log_println("compiler stubs:         %10d", count_cstub_len);
671         log_println("native stubs:           %10d", size_stub_native);
672         log_println("utf:                    %10d", count_utf_len);
673         log_println("vmcode:                 %10d", count_vmcode_len);
674         log_println("exception tables:       %10d", count_extable_len);
675         log_println("stack map:              %10d", size_stack_map);
676         log_println("string:                 %10d", size_string);
677         log_println("threadobject:           %10d", size_threadobject);
678         log_println("lock record:            %10d", size_lock_record);
679         log_println("lock hashtable:         %10d", size_lock_hashtable);
680         log_println("lock waiter:            %10d", size_lock_waiter);
681         log_println("                         ----------");
682
683         sum =
684                 count_const_pool_len +
685                 count_classref_len +
686                 count_parsed_desc_len + 
687                 count_vftbl_len +
688                 count_cstub_len +
689                 size_stub_native +
690                 count_utf_len +
691                 count_vmcode_len +
692                 count_extable_len +
693                 size_stack_map +
694                 size_string +
695                 size_threadobject +
696                 size_lock_record +
697                 size_lock_hashtable +
698                 size_lock_waiter;
699
700         log_println("                        %10d", sum);
701         log_println("");
702         log_println("max. code memory:       %10d", maxcodememusage);
703         log_println("max. heap memory:       %10d", maxmemusage);
704         log_println("max. dump memory:       %10d", maxdumpsize);
705         log_println("");
706         log_println("heap memory not freed:  %10d", (s4) memoryusage);
707         log_println("dump memory not freed:  %10d", (s4) globalallocateddumpsize);
708         log_println("");
709 }
710
711
712 /* statistics_print_gc_memory_usage ********************************************
713
714    Print current GC memory usage.
715
716 *******************************************************************************/
717
718 void statistics_print_gc_memory_usage(void)
719 {
720         log_println("GC memory usage -------------------");
721         log_println("");
722         log_println("max. heap size: %10lld", gc_get_max_heap_size());
723         log_println("");
724         log_println("heap size:      %10lld", gc_get_heap_size());
725         log_println("free:           %10lld", gc_get_free_bytes());
726         log_println("used:           %10lld", gc_get_total_bytes());
727         log_println("");
728 }
729
730
731 /*
732  * These are local overrides for various environment variables in Emacs.
733  * Please do not remove this and leave it at the end of the file, where
734  * Emacs will automagically detect them.
735  * ---------------------------------------------------------------------
736  * Local variables:
737  * mode: c
738  * indent-tabs-mode: t
739  * c-basic-offset: 4
740  * tab-width: 4
741  * End:
742  * vim:noexpandtab:sw=4:ts=4:
743  */