aboutsummaryrefslogtreecommitdiff
path: root/gdb/ada-lang.c
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/ada-lang.c')
-rw-r--r--gdb/ada-lang.c9
1 files changed, 9 insertions, 0 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 0666302..409ffb9 100644
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -10427,6 +10427,15 @@ ada_string_operation::evaluate (struct type *expect_type,
return result;
}
+value *
+ada_qual_operation::evaluate (struct type *expect_type,
+ struct expression *exp,
+ enum noside noside)
+{
+ struct type *type = std::get<1> (m_storage);
+ return std::get<0> (m_storage)->evaluate (type, exp, noside);
+}
+
}
/* Implement the evaluate_exp routine in the exp_descriptor structure