Implement OpenCL binary operations
This implements various OpenCL binary operations, adding a new template class to do so. gdb/ChangeLog 2021-03-08 Tom Tromey <tom@tromey.com> * opencl-lang.c (opencl_relop, eval_opencl_assign): No longer static. Change parameters. (eval_opencl_assign): No longer static. Add "op" parameter. (evaluate_subexp_opencl): Update. * c-exp.h (opencl_binop_operation): New template class. (opencl_assign_operation, opencl_equal_operation) (opencl_notequal_operation, opencl_less_operation) (opencl_gtr_operation, opencl_geq_operation) (opencl_leq_operation): New typedefs.
This commit is contained in:
parent
e967770468
commit
a88c3c8dd3
3 changed files with 73 additions and 8 deletions
52
gdb/c-exp.h
52
gdb/c-exp.h
|
@ -28,6 +28,16 @@ extern struct value *eval_op_objc_selector (struct type *expect_type,
|
|||
enum noside noside,
|
||||
const char *sel);
|
||||
extern struct value *opencl_value_cast (struct type *type, struct value *arg);
|
||||
extern struct value *eval_opencl_assign (struct type *expect_type,
|
||||
struct expression *exp,
|
||||
enum noside noside,
|
||||
enum exp_opcode op,
|
||||
struct value *arg1,
|
||||
struct value *arg2);
|
||||
extern struct value *opencl_relop (struct type *expect_type,
|
||||
struct expression *exp,
|
||||
enum noside noside, enum exp_opcode op,
|
||||
struct value *arg1, struct value *arg2);
|
||||
|
||||
namespace expr
|
||||
{
|
||||
|
@ -110,6 +120,48 @@ public:
|
|||
using opencl_cast_type_operation = cxx_cast_operation<UNOP_CAST_TYPE,
|
||||
opencl_value_cast>;
|
||||
|
||||
/* Binary operations, as needed for OpenCL. */
|
||||
template<enum exp_opcode OP, binary_ftype FUNC,
|
||||
typename BASE = maybe_constant_operation<operation_up, operation_up>>
|
||||
class opencl_binop_operation
|
||||
: public BASE
|
||||
{
|
||||
public:
|
||||
|
||||
using BASE::BASE;
|
||||
|
||||
value *evaluate (struct type *expect_type,
|
||||
struct expression *exp,
|
||||
enum noside noside) override
|
||||
{
|
||||
value *lhs
|
||||
= std::get<0> (this->m_storage)->evaluate (nullptr, exp, noside);
|
||||
value *rhs
|
||||
= std::get<1> (this->m_storage)->evaluate (value_type (lhs), exp,
|
||||
noside);
|
||||
return FUNC (expect_type, exp, noside, OP, lhs, rhs);
|
||||
}
|
||||
|
||||
enum exp_opcode opcode () const override
|
||||
{ return OP; }
|
||||
};
|
||||
|
||||
using opencl_assign_operation = opencl_binop_operation<BINOP_ASSIGN,
|
||||
eval_opencl_assign,
|
||||
assign_operation>;
|
||||
using opencl_equal_operation = opencl_binop_operation<BINOP_EQUAL,
|
||||
opencl_relop>;
|
||||
using opencl_notequal_operation = opencl_binop_operation<BINOP_NOTEQUAL,
|
||||
opencl_relop>;
|
||||
using opencl_less_operation = opencl_binop_operation<BINOP_LESS,
|
||||
opencl_relop>;
|
||||
using opencl_gtr_operation = opencl_binop_operation<BINOP_GTR,
|
||||
opencl_relop>;
|
||||
using opencl_geq_operation = opencl_binop_operation<BINOP_GEQ,
|
||||
opencl_relop>;
|
||||
using opencl_leq_operation = opencl_binop_operation<BINOP_LEQ,
|
||||
opencl_relop>;
|
||||
|
||||
}/* namespace expr */
|
||||
|
||||
#endif /* C_EXP_H */
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue