[PATCH 145/203] Introduce opencl_cast_type_operation

Tom Tromey
2021-01-01T21:49:12Z

This adds class opencl_cast_type_operation, which implements
UNOP_CAST_TYPE for OpenCL.

gdb/ChangeLog
2021-01-01 Tom Tromey <tom@tromey.com>

* opencl-lang.c (opencl_value_cast): No longer static.
* c-exp.h (opencl_cast_type_operation): New typedef.
---
gdb/ChangeLog | 5 +++++
gdb/c-exp.h | 5 +++++
gdb/opencl-lang.c | 3 ++-
3 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/gdb/c-exp.h b/gdb/c-exp.h
index 2d224c8c633..68efa62c5a8 100644
--- a/gdb/c-exp.h
+++ b/gdb/c-exp.h
@@ -27,6 +27,8 @@ extern struct value *eval_op_objc_selector (struct type *expect_type,
struct expression *exp,
enum noside noside,
const char *sel);
+extern struct value *opencl_value_cast (struct type *type, struct value *arg);
+
namespace expr
{

@@ -105,6 +107,9 @@ class objc_msgcall_operation
{ return OP_OBJC_MSGCALL; }
};

+using opencl_cast_type_operation = cxx_cast_operation<UNOP_CAST_TYPE,
+ opencl_value_cast>;
+
}/* namespace expr */

#endif /* C_EXP_H */
diff --git a/gdb/opencl-lang.c b/gdb/opencl-lang.c
index b45e47eb506..c31eb51a390 100644
--- a/gdb/opencl-lang.c
+++ b/gdb/opencl-lang.c
@@ -27,6 +27,7 @@
#include "varobj.h"
#include "c-lang.h"
#include "gdbarch.h"
+#include "c-exp.h"

/* Returns the corresponding OpenCL vector type from the given type code,
the length of the element type, the unsigned flag and the amount of
@@ -581,7 +582,7 @@ vector_relop (struct expression *exp, struct value *val1, struct value *val2,
behaviour of scalar to vector casting. As far as possibly we're going
to try and delegate back to the standard value_cast function. */

-static struct value *
+struct value *
opencl_value_cast (struct type *type, struct value *arg)
{
if (type != value_type (arg))
--
2.26.2