Introduce opencl_cast_type_operation

This adds class opencl_cast_type_operation, which implements
UNOP_CAST_TYPE for OpenCL.

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

	* opencl-lang.c (opencl_value_cast): No longer static.
	* c-exp.h (opencl_cast_type_operation): New typedef.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 856d6ffbf0a46f66e816afb9f87f62713d436c72..5abe97e6907f2bf2bab0ef529ad3310456954ed2 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2021-03-08  Tom Tromey  <tom@tromey.com>
+
+       * opencl-lang.c (opencl_value_cast): No longer static.
+       * c-exp.h (opencl_cast_type_operation): New typedef.
+
 2021-03-08  Tom Tromey  <tom@tromey.com>
 
        * f-exp.h (eval_op_f_allocated): Declare.

diff --git a/gdb/c-exp.h b/gdb/c-exp.h
index 2d224c8c633dfbb51e2e7871a21db840bcc70bf3..68efa62c5a8e9ba9bee0411e51bc4efcae8fa06d 100644 (file)
--- 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 @@ public:
   { 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 b45e47eb5067e505c292d362199a9052d281b158..c31eb51a3901c8b525fd49f8ade41efaf0ccd1fa 100644 (file)
--- 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))