diff options
| author | Björn Gustavsson <bjorn@erlang.org> | 2011-02-16 06:54:15 +0100 |
|---|---|---|
| committer | Björn Gustavsson <bjorn@erlang.org> | 2011-08-16 08:58:50 +0200 |
| commit | be04820c070d01d7565b936fa14efc2941055e0b (patch) | |
| tree | 059e5070b9597c0320e4f9c58ddeb24c30aa9e66 /lib/tv | |
| parent | 87e639bef1cbe37f63fcd376ec17dc8fca77fe3f (diff) | |
| download | erlang-be04820c070d01d7565b936fa14efc2941055e0b.tar.gz | |
emulator: Add a fourth element in exception stacktraces
This commit is a preparation for introducing location information
(filename/line number) in stacktraces in exceptions. Currently
a stack trace looks like:
[{Mod1,Function1,Arity1},
.
.
.
{ModN,FunctionN,ArityN}]
Add a forth element to each tuple that can be used indication
the filename and line number of the source file:
[{Mod1,Function1,Arity1,Location1},
.
.
.
{ModN,FunctionN,ArityN,LocationN}]
In this commit, the fourth element will just be an empty list,
and we will change all code that look at or manipulate stacktraces.
Diffstat (limited to 'lib/tv')
| -rw-r--r-- | lib/tv/src/tv_main.erl | 2 | ||||
| -rw-r--r-- | lib/tv/src/tv_mnesia_rpc.erl | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/lib/tv/src/tv_main.erl b/lib/tv/src/tv_main.erl index 2f743c2397..283ba4c967 100644 --- a/lib/tv/src/tv_main.erl +++ b/lib/tv/src/tv_main.erl @@ -312,7 +312,7 @@ analyze_error(Cause, Node, Table) -> handle_error(mnesia_not_started, Node, Table); {badrpc, {'EXIT', {aborted, {node_not_running,_ErrNode}}}} -> handle_error(mnesia_not_started, Node, Table); - {'EXIT', {undef, {mnesia,_Fcn,_Args}}} -> + {'EXIT', {undef, {mnesia,_Fcn,_Args,_}}} -> handle_error(mnesia_not_started, Node, Table); {'EXIT', Reason} -> diff --git a/lib/tv/src/tv_mnesia_rpc.erl b/lib/tv/src/tv_mnesia_rpc.erl index a2385714ec..4a75994145 100644 --- a/lib/tv/src/tv_mnesia_rpc.erl +++ b/lib/tv/src/tv_mnesia_rpc.erl @@ -87,6 +87,8 @@ chk(Result) -> throw(mnesia_not_started); {badrpc, _Reason} -> throw(mnesia_not_started); + {'EXIT', {undef, {mnesia,_Fcn,_Args,_}}} -> + throw(mnesia_not_started); {'EXIT', {undef, {mnesia,_Fcn,_Args}}} -> throw(mnesia_not_started); |