From 875fd93c65810378dd377604bea67c4c1f933b87 Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erlang-solutions.com>
Date: Wed, 3 Aug 2011 15:40:07 +0200
Subject: Add two additional built-in trace patterns, c and cx

c means [{'_',[],[{message,{caller}}]}]
cx means [{'_',[],[{exception_trace},{message,{caller}}]}]
---
 lib/runtime_tools/doc/src/dbg.xml |  4 ++++
 lib/runtime_tools/src/dbg.erl     | 13 +++++++++++++
 2 files changed, 17 insertions(+)

(limited to 'lib/runtime_tools')

diff --git a/lib/runtime_tools/doc/src/dbg.xml b/lib/runtime_tools/doc/src/dbg.xml
index 0e63649c09..df4cdf7cab 100644
--- a/lib/runtime_tools/doc/src/dbg.xml
+++ b/lib/runtime_tools/doc/src/dbg.xml
@@ -528,6 +528,10 @@ Error: fun containing local erlang function calls ('is_atomm' called in guard) c
         <p>Match specifications used can be saved in a file (if a
           read-write file system is present) for use in later
           debugging sessions, see <c>wtp/1</c> and <c>rtp/1</c></p>
+	  <p>There are three built-in trace patterns:
+	  <c>x</c>, <c>c</c> and <c>cx</c>. They represent an
+	  exception trace, caller trace and a caller and exception trace
+	  respectively.</p>
       </desc>
     </func>
     <func>
diff --git a/lib/runtime_tools/src/dbg.erl b/lib/runtime_tools/src/dbg.erl
index 56283f4d3d..446de63064 100644
--- a/lib/runtime_tools/src/dbg.erl
+++ b/lib/runtime_tools/src/dbg.erl
@@ -1449,6 +1449,19 @@ new_pattern_table() ->
     ets:insert(PT, 
 	       {exception_trace, 
 		term_to_binary(x)}),
+    ets:insert(PT,
+	       {c,
+		term_to_binary([{'_',[],[{message,{caller}}]}])}),
+    ets:insert(PT,
+	       {caller_trace,
+		term_to_binary(c)}),
+    ets:insert(PT,
+	       {cx,
+		term_to_binary([{'_',[],[{exception_trace},
+					 {message,{caller}}]}])}),
+    ets:insert(PT,
+	       {caller_exception_trace,
+		term_to_binary(cx)}),
     PT.
 
 
-- 
cgit v1.2.3