a701509229
accessed by the objects that own the settings. The previous approach wasn't very usable and made for a lot of unnecessary code just to access variables that were already owned by the objects. While I fixed those things, I saw that CommandObject objects should really have a reference to their command interpreter so they can access the terminal with if they want to output usaage. Fixed up all CommandObjects to take an interpreter and cleaned up the API to not need the interpreter to be passed in. Fixed the disassemble command to output the usage if no options are passed down and arguments are passed (all disassebmle variants take options, there are no "args only"). llvm-svn: 114252
309 lines
9.9 KiB
C++
309 lines
9.9 KiB
C++
//===-- CommandObjectCall.cpp -----------------------------------*- C++ -*-===//
|
|
//
|
|
// The LLVM Compiler Infrastructure
|
|
//
|
|
// This file is distributed under the University of Illinois Open Source
|
|
// License. See LICENSE.TXT for details.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "CommandObjectCall.h"
|
|
|
|
// C Includes
|
|
// C++ Includes
|
|
// Other libraries and framework includes
|
|
// Project includes
|
|
#include "lldb/Interpreter/Args.h"
|
|
#include "lldb/Core/Value.h"
|
|
#include "lldb/Expression/ClangExpression.h"
|
|
#include "lldb/Expression/ClangExpressionVariable.h"
|
|
#include "lldb/Expression/ClangFunction.h"
|
|
#include "lldb/Host/Host.h"
|
|
#include "lldb/Interpreter/CommandInterpreter.h"
|
|
#include "lldb/Core/Debugger.h"
|
|
#include "lldb/Interpreter/CommandReturnObject.h"
|
|
#include "lldb/Symbol/ObjectFile.h"
|
|
#include "lldb/Symbol/Variable.h"
|
|
#include "lldb/Target/Process.h"
|
|
#include "lldb/Target/Target.h"
|
|
#include "lldb/Target/StackFrame.h"
|
|
|
|
using namespace lldb;
|
|
using namespace lldb_private;
|
|
|
|
// This command is a toy. I'm just using it to have a way to construct the arguments to
|
|
// calling functions.
|
|
//
|
|
|
|
CommandObjectCall::CommandOptions::CommandOptions () :
|
|
Options()
|
|
{
|
|
// Keep only one place to reset the values to their defaults
|
|
ResetOptionValues();
|
|
}
|
|
|
|
|
|
CommandObjectCall::CommandOptions::~CommandOptions ()
|
|
{
|
|
}
|
|
|
|
Error
|
|
CommandObjectCall::CommandOptions::SetOptionValue (int option_idx, const char *option_arg)
|
|
{
|
|
Error error;
|
|
|
|
char short_option = (char) m_getopt_table[option_idx].val;
|
|
|
|
switch (short_option)
|
|
{
|
|
case 'l':
|
|
if (language.SetLanguageFromCString (option_arg) == false)
|
|
{
|
|
error.SetErrorStringWithFormat("Invalid language option argument '%s'.\n", option_arg);
|
|
}
|
|
break;
|
|
|
|
case 'g':
|
|
debug = true;
|
|
break;
|
|
|
|
case 'f':
|
|
error = Args::StringToFormat(option_arg,format);
|
|
break;
|
|
|
|
case 'n':
|
|
noexecute = true;
|
|
break;
|
|
|
|
case 'a':
|
|
use_abi = true;
|
|
break;
|
|
|
|
default:
|
|
error.SetErrorStringWithFormat("Invalid short option character '%c'.\n", short_option);
|
|
break;
|
|
}
|
|
|
|
return error;
|
|
}
|
|
|
|
void
|
|
CommandObjectCall::CommandOptions::ResetOptionValues ()
|
|
{
|
|
Options::ResetOptionValues();
|
|
language.Clear();
|
|
debug = false;
|
|
format = eFormatDefault;
|
|
show_types = true;
|
|
show_summary = true;
|
|
noexecute = false;
|
|
use_abi = false;
|
|
}
|
|
|
|
const lldb::OptionDefinition*
|
|
CommandObjectCall::CommandOptions::GetDefinitions ()
|
|
{
|
|
return g_option_table;
|
|
}
|
|
|
|
CommandObjectCall::CommandObjectCall () :
|
|
CommandObject (
|
|
"call",
|
|
"Call a function.",
|
|
"call <return_type> <function-name> [[<arg1-type> <arg1-value>] ... <argn-type> <argn-value>] [<cmd-options>]",
|
|
eFlagProcessMustBeLaunched | eFlagProcessMustBePaused)
|
|
{
|
|
}
|
|
|
|
CommandObjectCall::~CommandObjectCall ()
|
|
{
|
|
}
|
|
|
|
Options *
|
|
CommandObjectCall::GetOptions ()
|
|
{
|
|
return &m_options;
|
|
}
|
|
|
|
bool
|
|
CommandObjectCall::Execute
|
|
(
|
|
Args &command,
|
|
CommandReturnObject &result
|
|
)
|
|
{
|
|
ConstString target_triple;
|
|
int num_args = command.GetArgumentCount();
|
|
|
|
ExecutionContext exe_ctx(interpreter.GetDebugger().GetExecutionContext());
|
|
if (exe_ctx.target)
|
|
exe_ctx.target->GetTargetTriple(target_triple);
|
|
|
|
if (!target_triple)
|
|
target_triple = Host::GetTargetTriple ();
|
|
|
|
if (exe_ctx.thread == NULL || exe_ctx.frame == NULL)
|
|
{
|
|
result.AppendError ("No currently selected thread and frame.");
|
|
result.SetStatus (eReturnStatusFailed);
|
|
return false;
|
|
}
|
|
|
|
if (num_args < 2)
|
|
{
|
|
result.AppendErrorWithFormat ("Invalid usage, should be: %s.\n", GetSyntax());
|
|
result.SetStatus (eReturnStatusFailed);
|
|
return false;
|
|
}
|
|
|
|
if ((num_args - 2) %2 != 0)
|
|
{
|
|
result.AppendErrorWithFormat ("Invalid usage - unmatched args & types, should be: %s.\n", GetSyntax());
|
|
result.SetStatus (eReturnStatusFailed);
|
|
return false;
|
|
}
|
|
|
|
if (target_triple)
|
|
{
|
|
//const char *return_type = command.GetArgumentAtIndex(0);
|
|
const char *function_name = command.GetArgumentAtIndex(1);
|
|
// Look up the called function:
|
|
|
|
Function *target_fn = NULL;
|
|
|
|
SymbolContextList sc_list;
|
|
|
|
exe_ctx.frame->GetSymbolContext(eSymbolContextEverything).FindFunctionsByName(ConstString(function_name), false, sc_list);
|
|
|
|
if (sc_list.GetSize() > 0)
|
|
{
|
|
SymbolContext sc;
|
|
sc_list.GetContextAtIndex(0, sc);
|
|
target_fn = sc.function;
|
|
}
|
|
|
|
// FIXME: If target_fn is NULL, we should look up the name as a symbol and use it and the provided
|
|
// return type.
|
|
|
|
if (target_fn == NULL)
|
|
{
|
|
result.AppendErrorWithFormat ("Could not find function '%s'.\n", function_name);
|
|
result.SetStatus (eReturnStatusFailed);
|
|
return false;
|
|
}
|
|
|
|
ValueList value_list;
|
|
// Okay, now parse arguments. For now we only accept basic types.
|
|
for (int i = 2; i < num_args; i+= 2)
|
|
{
|
|
const char *type_str = command.GetArgumentAtIndex(i);
|
|
const char *value_str = command.GetArgumentAtIndex(i + 1);
|
|
bool success;
|
|
if (strcmp(type_str, "int") == 0
|
|
|| strcmp(type_str, "int32_t") == 0)
|
|
{
|
|
value_list.PushValue(Value(Args::StringToSInt32(value_str, 0, 0, &success)));
|
|
}
|
|
else if (strcmp (type_str, "int64_t") == 0)
|
|
{
|
|
value_list.PushValue(Value(Args::StringToSInt64(value_str, 0, 0, &success)));
|
|
}
|
|
else if (strcmp(type_str, "uint") == 0
|
|
|| strcmp(type_str, "uint32_t") == 0)
|
|
{
|
|
value_list.PushValue(Value(Args::StringToUInt32(value_str, 0, 0, &success)));
|
|
}
|
|
else if (strcmp (type_str, "uint64_t") == 0)
|
|
{
|
|
value_list.PushValue(Value(Args::StringToUInt64(value_str, 0, 0, &success)));
|
|
}
|
|
else if (strcmp (type_str, "cstr") == 0)
|
|
{
|
|
Value val ((intptr_t)value_str);
|
|
val.SetValueType (Value::eValueTypeHostAddress);
|
|
|
|
|
|
void *cstr_type = exe_ctx.target->GetScratchClangASTContext()->GetCStringType(true);
|
|
val.SetContext (Value::eContextTypeOpaqueClangQualType, cstr_type);
|
|
value_list.PushValue(val);
|
|
|
|
success = true;
|
|
}
|
|
|
|
if (!success)
|
|
{
|
|
result.AppendErrorWithFormat ("Could not convert value: '%s' to type '%s'.\n", value_str, type_str);
|
|
result.SetStatus (eReturnStatusFailed);
|
|
return false;
|
|
}
|
|
}
|
|
// Okay, we have the function and the argument list and the return type. Now make a ClangFunction object and
|
|
// run it:
|
|
|
|
StreamString errors;
|
|
ClangFunction clang_fun (target_triple.GetCString(), *target_fn, exe_ctx.target->GetScratchClangASTContext(), value_list);
|
|
if (m_options.noexecute)
|
|
{
|
|
// Now write down the argument values for this call.
|
|
lldb::addr_t args_addr = LLDB_INVALID_ADDRESS;
|
|
if (!clang_fun.InsertFunction (exe_ctx, args_addr, errors))
|
|
{
|
|
result.AppendErrorWithFormat("Error inserting function: '%s'.\n", errors.GetData());
|
|
result.SetStatus (eReturnStatusFailed);
|
|
return false;
|
|
}
|
|
else
|
|
{
|
|
result.Succeeded();
|
|
return true;
|
|
}
|
|
}
|
|
|
|
ClangFunction::ExecutionResults return_status;
|
|
Value return_value;
|
|
|
|
bool stop_others = true;
|
|
return_status = clang_fun.ExecuteFunction(exe_ctx, errors, stop_others, NULL, return_value);
|
|
|
|
// Now figure out what to do with the return value.
|
|
if (return_status == ClangFunction::eExecutionSetupError)
|
|
{
|
|
result.AppendErrorWithFormat("Error setting up function execution: '%s'.\n", errors.GetData());
|
|
result.SetStatus (eReturnStatusFailed);
|
|
return false;
|
|
}
|
|
else if (return_status != ClangFunction::eExecutionCompleted)
|
|
{
|
|
result.AppendWarningWithFormat("Interrupted while calling function: '%s'.\n", errors.GetData());
|
|
result.SetStatus(eReturnStatusSuccessFinishNoResult);
|
|
return true;
|
|
}
|
|
else
|
|
{
|
|
// Now print out the result.
|
|
result.GetOutputStream().Printf("Return value: ");
|
|
return_value.Dump(&(result.GetOutputStream()));
|
|
result.Succeeded();
|
|
}
|
|
|
|
}
|
|
else
|
|
{
|
|
result.AppendError ("invalid target triple");
|
|
result.SetStatus (eReturnStatusFailed);
|
|
}
|
|
return result.Succeeded();
|
|
}
|
|
|
|
lldb::OptionDefinition
|
|
CommandObjectCall::CommandOptions::g_option_table[] =
|
|
{
|
|
{ LLDB_OPT_SET_1, false, "language", 'l', required_argument, NULL, 0, "[c|c++|objc|objc++]", "Sets the language to use when parsing the expression."},
|
|
{ LLDB_OPT_SET_1, false, "format", 'f', required_argument, NULL, 0, "[ [bool|b] | [bin] | [char|c] | [oct|o] | [dec|i|d|u] | [hex|x] | [float|f] | [cstr|s] ]", "Specify the format that the expression output should use."},
|
|
{ LLDB_OPT_SET_1, false, "debug", 'g', no_argument, NULL, 0, NULL, "Enable verbose debug logging of the expression parsing and evaluation."},
|
|
{ LLDB_OPT_SET_1, false, "noexecute", 'n', no_argument, NULL, 0, "no execute", "Only JIT and copy the wrapper & arguments, but don't execute."},
|
|
{ LLDB_OPT_SET_1, false, "useabi", 'a', no_argument, NULL, 0, NULL, "Use the ABI instead of the JIT to marshall arguments."},
|
|
{ 0, false, NULL, 0, 0, NULL, NULL, NULL, NULL }
|
|
};
|
|
|