Mercurial > hg > truffle

annotate graal/com.oracle.graal.debug/src/com/oracle/graal/debug/internal/DebugHistogramAsciiPrinter.java @ 14572:1d35a2b84553

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use Java Allocation Instrumenter to observe allocation in Graal compiler tests
author Doug Simon <doug.simon@oracle.com>
date Mon, 17 Mar 2014 23:45:14 +0100
parents 8c4a3d9308a7
children e3888db8b8a1
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
11551
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
1 /*
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
2 * Copyright (c) 2013, Oracle and/or its affiliates. All rights reserved.
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
4 *
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
5 * This code is free software; you can redistribute it and/or modify it
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
6 * under the terms of the GNU General Public License version 2 only, as
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
7 * published by the Free Software Foundation.
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
8 *
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
9 * This code is distributed in the hope that it will be useful, but WITHOUT
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
10 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
11 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
12 * version 2 for more details (a copy is included in the LICENSE file that
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
13 * accompanied this code).
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
14 *
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
15 * You should have received a copy of the GNU General Public License version
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
16 * 2 along with this work; if not, write to the Free Software Foundation,
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
17 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
18 *
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
19 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
20 * or visit www.oracle.com if you need additional information or have any
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
21 * questions.
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
22 */
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
23 package com.oracle.graal.debug.internal;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
24
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
25 import java.io.*;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
26 import java.util.*;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
27
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
28 import com.oracle.graal.debug.*;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
29 import com.oracle.graal.debug.DebugHistogram.*;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
30
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
31 /**
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
32 * Renders a textual representation of a histogram to a given print stream.
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
33 */
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
34 public class DebugHistogramAsciiPrinter implements Printer {
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
35
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
36 public static final int NumberSize = 10;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
37 public static final int DefaultNameSize = 50;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
38 public static final int DefaultBarSize = 100;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
39
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
40 private PrintStream os;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
41 private int limit;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
42 private int nameSize;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
43 private int barSize;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
44
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
45 public DebugHistogramAsciiPrinter(PrintStream os) {
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
46 this(os, Integer.MAX_VALUE, DefaultNameSize, DefaultBarSize);
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
47 }
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
48
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
49 /**
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
50 * @param os where to print
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
51 * @param limit limits printing to the {@code limit} most frequent values
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
52 * @param nameSize the width of the value names column
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
53 * @param barSize the width of the value frequency column
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
54 */
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
55 public DebugHistogramAsciiPrinter(PrintStream os, int limit, int nameSize, int barSize) {
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
56 this.os = os;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
57 this.limit = limit;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
58 this.nameSize = nameSize;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
59 this.barSize = barSize;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
60 }
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
61
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
62 public void print(DebugHistogram histogram) {
14572
1d35a2b84553 use Java Allocation Instrumenter to observe allocation in Graal compiler tests
Doug Simon <doug.simon@oracle.com>
parents: 14157
diff changeset
63 print(histogram.getValues(), histogram.getName());
1d35a2b84553 use Java Allocation Instrumenter to observe allocation in Graal compiler tests
Doug Simon <doug.simon@oracle.com>
parents: 14157
diff changeset
64 }
1d35a2b84553 use Java Allocation Instrumenter to observe allocation in Graal compiler tests
Doug Simon <doug.simon@oracle.com>
parents: 14157
diff changeset
65
1d35a2b84553 use Java Allocation Instrumenter to observe allocation in Graal compiler tests
Doug Simon <doug.simon@oracle.com>
parents: 14157
diff changeset
66 public void print(List<CountedValue> list, String name) {
11551
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
67 if (list.isEmpty()) {
14572
1d35a2b84553 use Java Allocation Instrumenter to observe allocation in Graal compiler tests
Doug Simon <doug.simon@oracle.com>
parents: 14157
diff changeset
68 os.printf("%s is empty.%n", name);
11551
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
69 return;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
70 }
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
71
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
72 // Sum up the total number of elements.
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
73 int total = 0;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
74 for (CountedValue cv : list) {
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
75 total += cv.getCount();
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
76 }
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
77
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
78 // Print header.
14572
1d35a2b84553 use Java Allocation Instrumenter to observe allocation in Graal compiler tests
Doug Simon <doug.simon@oracle.com>
parents: 14157
diff changeset
79 os.printf("%s has %d unique elements and %d total elements:%n", name, list.size(), total);
11551
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
80
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
81 int max = list.get(0).getCount();
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
82 final int lineSize = nameSize + NumberSize + barSize + 10;
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
83 printLine(os, '-', lineSize);
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
84 String formatString = "| %-" + nameSize + "s | %-" + NumberSize + "d | %-" + barSize + "s |\n";
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
85 for (int i = 0; i < list.size() && i < limit; ++i) {
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
86 CountedValue cv = list.get(i);
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
87 int value = cv.getCount();
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
88 char[] bar = new char[(int) (((double) value / (double) max) * barSize)];
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
89 Arrays.fill(bar, '=');
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
90 String objectString = String.valueOf(cv.getValue());
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
91 if (objectString.length() > nameSize) {
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
92 objectString = objectString.substring(0, nameSize - 3) + "...";
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
93 }
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
94 os.printf(formatString, objectString, value, new String(bar));
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
95 }
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
96 printLine(os, '-', lineSize);
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
97 }
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
98
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
99 private static void printLine(PrintStream printStream, char c, int lineSize) {
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
100 char[] charArr = new char[lineSize];
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
101 Arrays.fill(charArr, c);
14157
8c4a3d9308a7 fixed FindBugs bugs
twisti
parents: 11551
diff changeset
102 printStream.printf("%s%n", new String(charArr));
11551
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
103 }
63b4694d3627 split DebugHistogram printing out into separate service
Doug Simon <doug.simon@oracle.com>
parents:
diff changeset
104 }