Changeset 6bfe6a1

Timestamp:

05/28/15 18:15:39 (10 years ago)

Author:

Hal Finkel <hfinkel@…>

Branches:

master

Children:

0edbc98

Parents:

81dea5b

git-author:

Hal Finkel <hfinkel@…> (05/28/15 18:15:39)

git-committer:

Hal Finkel <hfinkel@…> (05/28/15 18:15:39)

Message:

don't print raw proc names by default

File:

• memlog2dot (modified) (2 diffs)

memlog2dot

@@ -5 +5 @@
 my $memlog_fn = $ARGV[0];
 my $out_dir = $ARGV[1] || '.';
+
+my $print_raw_proc_name = 0;
 
 if (! -f $memlog_fn) {
@@ -152 +154 @@
   }
 
-  $ret .= basename($node->{'file_name'});
-  if ($node->{'proc_name'} ne '?') {
-    $ret .= ' (' . $node->{'proc_name'} . '+0x' . $node->{'off'} . ')';
+  $ret .= $node->{'file_name'};
+  if ($print_raw_proc_name and $node->{'proc_name'} ne '?') {
+    $ret .= '\n' . $node->{'proc_name'} . '+0x' . $node->{'off'};
   }