espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-18 00:32:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

Implement OpenCL binary operations

Browse Source 
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:
Tom Tromey
2021-03-08 07:27:57 -07:00
parent e967770468
commit a88c3c8dd3
3 changed files with 73 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
gdb/opencl-lang.c
View File

@ -631,9 +631,10 @@ opencl_value_cast (struct type *type, struct value *arg)
/* Perform a relational operation on two operands. */
static struct value *
opencl_relop (struct expression *exp, struct value *arg1, struct value *arg2,
enum exp_opcode op)
struct value *
opencl_relop (struct type *expect_type, struct expression *exp,
enum noside noside, enum exp_opcode op,
struct value *arg1, struct value *arg2)
{
struct value *val;
struct type *type1 = check_typedef (value_type (arg1));
@ -673,9 +674,9 @@ opencl_relop (struct expression *exp, struct value *arg1, struct value *arg2,
/* A helper function for BINOP_ASSIGN. */
static struct value *
struct value *
eval_opencl_assign (struct type *expect_type, struct expression *exp,
enum noside noside,
enum noside noside, enum exp_opcode op,
struct value *arg1, struct value *arg2)
{
if (noside == EVAL_SKIP || noside == EVAL_AVOID_SIDE_EFFECTS)
@ -712,7 +713,7 @@ evaluate_subexp_opencl (struct type *expect_type, struct expression *exp,
type1 = value_type (arg1);
arg2 = evaluate_subexp (type1, exp, pos, noside);
return eval_opencl_assign (expect_type, exp, noside, arg1, arg2);
return eval_opencl_assign (expect_type, exp, noside, op, arg1, arg2);
case UNOP_CAST:
type1 = exp->elts[*pos + 1].type;
@ -753,7 +754,7 @@ evaluate_subexp_opencl (struct type *expect_type, struct expression *exp,
return value_from_longest (builtin_type (exp->gdbarch)->
builtin_int, 1);
return opencl_relop (exp, arg1, arg2, op);
return opencl_relop (expect_type, exp, noside, op, arg1, arg2);
/* Handle the logical unary operator not(!). */
case UNOP_LOGICAL_NOT:
@ -798,7 +799,7 @@ evaluate_subexp_opencl (struct type *expect_type, struct expression *exp,
{
arg2 = evaluate_subexp (nullptr, exp, pos, noside);
return opencl_relop (exp, arg1, arg2, op);
return opencl_relop (nullptr, exp, noside, op, arg1, arg2);
}
else
{