Index: include/lldb/Utility/Scalar.h =================================================================== --- include/lldb/Utility/Scalar.h +++ include/lldb/Utility/Scalar.h @@ -339,6 +339,8 @@ bool operator>(const Scalar &lhs, const Scalar &rhs); bool operator>=(const Scalar &lhs, const Scalar &rhs); +llvm::raw_ostream &operator<<(llvm::raw_ostream &os, const Scalar &scalar); + } // namespace lldb_private #endif // LLDB_UTILITY_SCALAR_H Index: source/Expression/DWARFExpression.cpp =================================================================== --- source/Expression/DWARFExpression.cpp +++ source/Expression/DWARFExpression.cpp @@ -1751,7 +1751,7 @@ case DW_OP_pick: { uint8_t pick_idx = opcodes.GetU8(&offset); if (pick_idx < stack.size()) - stack.push_back(stack[pick_idx]); + stack.push_back(stack[stack.size() - 1 - pick_idx]); else { if (error_ptr) error_ptr->SetErrorStringWithFormat( Index: source/Utility/Scalar.cpp =================================================================== --- source/Utility/Scalar.cpp +++ source/Utility/Scalar.cpp @@ -12,6 +12,7 @@ #include "lldb/Utility/Endian.h" #include "lldb/Utility/Status.h" #include "lldb/Utility/Stream.h" +#include "lldb/Utility/StreamString.h" #include "lldb/lldb-types.h" #include "llvm/ADT/SmallString.h" @@ -2844,3 +2845,9 @@ } return false; } + +llvm::raw_ostream &lldb_private::operator<<(llvm::raw_ostream &os, const Scalar &scalar) { + StreamString s; + scalar.GetValue(&s, /*show_type*/ true); + return os << s.GetString(); +} Index: unittests/Expression/CMakeLists.txt =================================================================== --- unittests/Expression/CMakeLists.txt +++ unittests/Expression/CMakeLists.txt @@ -1,4 +1,5 @@ add_lldb_unittest(ExpressionTests + DWARFExpressionTest.cpp ClangParserTest.cpp LINK_LIBS @@ -6,4 +7,5 @@ lldbPluginExpressionParserClang lldbUtility lldbUtilityHelpers + LLVMTestingSupport ) Index: unittests/Expression/DWARFExpressionTest.cpp =================================================================== --- unittests/Expression/DWARFExpressionTest.cpp +++ unittests/Expression/DWARFExpressionTest.cpp @@ -0,0 +1,42 @@ +//===-- DWARFExpressionTest.cpp ----------------------------------*- C++-*-===// +// +// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. +// See https://llvm.org/LICENSE.txt for license information. +// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception +// +//===----------------------------------------------------------------------===// + +#include "lldb/Expression/DWARFExpression.h" +#include "lldb/Core/Value.h" +#include "lldb/Core/dwarf.h" +#include "lldb/Utility/StreamString.h" +#include "llvm/ADT/StringExtras.h" +#include "llvm/Testing/Support/Error.h" +#include "gtest/gtest.h" + +using namespace lldb_private; + +static llvm::Expected Evaluate(llvm::ArrayRef expr) { + DataExtractor extractor(expr.data(), expr.size(), lldb::eByteOrderLittle, + /*addr_size*/ 4); + + Value result; + Status status; + if (!DWARFExpression::Evaluate( + /*exe_ctx*/ nullptr, /*reg_ctx*/ nullptr, /*opcode_ctx*/ nullptr, + extractor, /*dwarf_cu*/ nullptr, /*offset*/ 0, expr.size(), + lldb::eRegisterKindLLDB, /*initial_value_ptr*/ nullptr, + /*object_address_ptr*/ nullptr, result, &status)) + return status.ToError(); + + return result.GetScalar(); +} + +TEST(DWARFExpression, DW_OP_pick) { + EXPECT_THAT_EXPECTED(Evaluate({DW_OP_lit1, DW_OP_lit0, DW_OP_pick, 0}), + llvm::HasValue(0)); + EXPECT_THAT_EXPECTED(Evaluate({DW_OP_lit1, DW_OP_lit0, DW_OP_pick, 1}), + llvm::HasValue(1)); + EXPECT_THAT_EXPECTED(Evaluate({DW_OP_lit1, DW_OP_lit0, DW_OP_pick, 2}), + llvm::Failed()); +}