diff options
author | Hans Bolinder <[email protected]> | 2014-10-23 08:51:59 +0200 |
---|---|---|
committer | Hans Bolinder <[email protected]> | 2014-10-23 08:51:59 +0200 |
commit | cd5628a99bff391377042f93e8d85da818235217 (patch) | |
tree | a822eec385378dfa08cb8fa3a7d903768e7372bc /lib/debugger/src/dbg_ieval.erl | |
parent | a57d366febdbf0f41580e5497044a810918fcec6 (diff) | |
parent | 8df1aa38c75d0a43c42fd357b9629aa644fb40ea (diff) | |
download | otp-cd5628a99bff391377042f93e8d85da818235217.tar.gz otp-cd5628a99bff391377042f93e8d85da818235217.tar.bz2 otp-cd5628a99bff391377042f93e8d85da818235217.zip |
Merge branch 'hb/debugger/ct_line_cleanup' into maint
* hb/debugger/ct_line_cleanup:
debugger: clean up Common Test adaption
Diffstat (limited to 'lib/debugger/src/dbg_ieval.erl')
-rw-r--r-- | lib/debugger/src/dbg_ieval.erl | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/lib/debugger/src/dbg_ieval.erl b/lib/debugger/src/dbg_ieval.erl index 77297de0f3..96f9f91808 100644 --- a/lib/debugger/src/dbg_ieval.erl +++ b/lib/debugger/src/dbg_ieval.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1998-2013. All Rights Reserved. +%% Copyright Ericsson AB 1998-2014. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -457,11 +457,6 @@ do_eval_function(Mod, Fun, As0, Bs0, _, Ieval0) when is_function(Fun); exception(error, Reason, Bs0, Ieval0) end; -%% Common Test adaptation -do_eval_function(ct_line, line, As, Bs, extern, #ieval{level=Le}=Ieval) -> - debugged_cmd({apply,ct_line,line,As}, Bs, Ieval#ieval{level=Le+1}), - {value, ignore, Bs}; - do_eval_function(Mod, Name, As0, Bs0, Called, Ieval0) -> #ieval{level=Le,line=Li,top=Top} = Ieval0, trace(call, {Called, {Le,Li,Mod,Name,As0}}), @@ -896,11 +891,6 @@ expr({make_ext_fun,Line,MFA0}, Bs0, Ieval0) -> exception(error, badarg, Bs, Ieval, true) end; -%% Common test adaptation -expr({call_remote,0,ct_line,line,As0,Lc}, Bs0, Ieval0) -> - {As,_Bs} = eval_list(As0, Bs0, Ieval0), - eval_function(ct_line, line, As, Bs0, extern, Ieval0, Lc); - %% Local function call expr({local_call,Line,F,As0,Lc}, Bs0, #ieval{module=M} = Ieval0) -> Ieval = Ieval0#ieval{line=Line}, |