From 677843d2db3985b278eb48a0e501adfdc3ee2b2a Mon Sep 17 00:00:00 2001
From: Gabriel Corona <gabriel.corona@enst-bretagne.fr>
Date: Mon, 17 Feb 2014 17:45:55 +0100
Subject: [PATCH 1/2] Add stackcollapse-gdb for the poor man's profiler

---
 stackcollapse-gdb.pl | 67 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 67 insertions(+)
 create mode 100755 stackcollapse-gdb.pl

diff --git a/stackcollapse-gdb.pl b/stackcollapse-gdb.pl
new file mode 100755
index 00000000..4a986c47
--- /dev/null
+++ b/stackcollapse-gdb.pl
@@ -0,0 +1,67 @@
+#!/usr/bin/perl -ws
+#
+# stackcollapse-gdb  Collapse GDB backtraces
+#
+# Parse a list of GDB backtraces as generated with the poor man's
+# profiler [1]:
+#
+#   for x in $(seq 1 500); do
+#      gdb -ex "set pagination 0" -ex "thread apply all bt" -batch -p $pid 2> /dev/null
+#      sleep 0.01
+#    done
+#
+# [1] http://poormansprofiler.org/
+#
+# Copyright 2014 Gabriel Corona. All rights reserved.
+#
+# CDDL HEADER START
+#
+# The contents of this file are subject to the terms of the
+# Common Development and Distribution License (the "License").
+# You may not use this file except in compliance with the License.
+#
+# You can obtain a copy of the license at docs/cddl1.txt or
+# http://opensource.org/licenses/CDDL-1.0.
+# See the License for the specific language governing permissions
+# and limitations under the License.
+#
+# When distributing Covered Code, include this CDDL HEADER in each
+# file and include the License file at docs/cddl1.txt.
+# If applicable, add the following below this CDDL HEADER, with the
+# fields enclosed by brackets "[]" replaced with your own identifying
+# information: Portions Copyright [yyyy] [name of copyright owner]
+#
+# CDDL HEADER END
+
+use strict;
+
+my $current = "";
+my $previous_function = "";
+
+my %stacks;
+
+while(<>) {
+  chomp;
+  if (m/^Thread/) {
+    $current=""
+  }
+  elsif(m/^#[0-9]* *([^ ]*) ([^ ]*) ([^ ]*) ([^ ]*)/) {
+    my $function = $3;
+    my $alt = $1;
+    if(not($1 =~ /0x[a-zA-Z0-9]*/)) {
+      $function = $alt;
+    }
+    if ($current eq "") {
+      $current = $function;
+    } else {
+      $current = $function . ";" . $current;
+    }
+  } elsif(!($current eq "")) {
+    $stacks{$current} += 1;
+    $current = "";
+  }
+}
+
+foreach my $k (sort { $a cmp $b } keys %stacks) {
+  printf "$k $stacks{$k}\n";
+}

From 9e9b9dfb5a7f025372f331f1d5ac98a22a15a937 Mon Sep 17 00:00:00 2001
From: Gabriel Corona <gabriel.corona@loria.fr>
Date: Thu, 20 Feb 2014 10:37:44 +0100
Subject: [PATCH 2/2] Tool to merge direct recursive calls

---
 stackcollapse-recursive.pl | 60 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 60 insertions(+)
 create mode 100755 stackcollapse-recursive.pl

diff --git a/stackcollapse-recursive.pl b/stackcollapse-recursive.pl
new file mode 100755
index 00000000..70ab8ef6
--- /dev/null
+++ b/stackcollapse-recursive.pl
@@ -0,0 +1,60 @@
+#!/usr/bin/perl -ws
+#
+# stackcollapse-recursive  Collapse direct recursive backtraces
+#
+# Post-process a stack list and merge direct recursive calls:
+#
+# Example input:
+#
+#     main;recursive;recursive;recursive;helper 1
+#
+# Output:
+#
+#     main;recursive;helper 1
+#
+# Copyright 2014 Gabriel Corona. All rights reserved.
+#
+# CDDL HEADER START
+#
+# The contents of this file are subject to the terms of the
+# Common Development and Distribution License (the "License").
+# You may not use this file except in compliance with the License.
+#
+# You can obtain a copy of the license at docs/cddl1.txt or
+# http://opensource.org/licenses/CDDL-1.0.
+# See the License for the specific language governing permissions
+# and limitations under the License.
+#
+# When distributing Covered Code, include this CDDL HEADER in each
+# file and include the License file at docs/cddl1.txt.
+# If applicable, add the following below this CDDL HEADER, with the
+# fields enclosed by brackets "[]" replaced with your own identifying
+# information: Portions Copyright [yyyy] [name of copyright owner]
+#
+# CDDL HEADER END
+
+my %stacks;
+
+while(<>) {
+  chomp;
+  if(/^(.*)\s([0-9]*)/) {
+    my @stack  = split(/;/, $1);
+    my $value  = $2;
+
+    my @result = ();
+    my $i;
+    my $last="";
+    for($i=0; $i!=@stack; ++$i) {
+      if(!($stack[$i] eq $last)) {
+        $result[@result] = $stack[$i];
+        $last = $stack[$i];
+      }
+    }
+
+    $stacks{join(";", @result)} += $value;
+  }
+}
+
+foreach my $k (sort { $a cmp $b } keys %stacks) {
+  printf "$k $stacks{$k}\n";
+}