[pushed] Remove two unnecessary casts

Message ID 20240226205202.509729-1-tromey@adacore.com
State New
Headers
Series [pushed] Remove two unnecessary casts |

Checks

Context Check Description
linaro-tcwg-bot/tcwg_gdb_build--master-aarch64 warning Patch is already merged
linaro-tcwg-bot/tcwg_gdb_build--master-arm warning Patch is already merged

Commit Message

Tom Tromey Feb. 26, 2024, 8:52 p.m. UTC
  I noticed a spot in ada-lang.c where the return value of
value_as_address was cast to CORE_ADDR -- a no-op cast.  I searched
and found another.  This patch fixes both.
---
 gdb/ada-lang.c | 2 +-
 gdb/eval.c     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)
  

Comments

John Baldwin Feb. 27, 2024, 11:17 p.m. UTC | #1
On 2/26/24 12:52 PM, Tom Tromey wrote:
> I noticed a spot in ada-lang.c where the return value of
> value_as_address was cast to CORE_ADDR -- a no-op cast.  I searched
> and found another.  This patch fixes both.
> ---
>   gdb/ada-lang.c | 2 +-
>   gdb/eval.c     | 2 +-
>   2 files changed, 2 insertions(+), 2 deletions(-)
> 
> diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
> index 3f398540010..1c26ebf7b30 100644
> --- a/gdb/ada-lang.c
> +++ b/gdb/ada-lang.c
> @@ -10993,7 +10993,7 @@ ada_unop_ind_operation::evaluate (struct type *expect_type,
>   					  arg1));
>         else
>   	return value_at_lazy (builtin_type (exp->gdbarch)->builtin_int,
> -			      (CORE_ADDR) value_as_address (arg1));
> +			      value_as_address (arg1));
>       }
>   
>     if (ada_is_array_descriptor_type (type))
> diff --git a/gdb/eval.c b/gdb/eval.c
> index 4c438f927c0..2759b46a5df 100644
> --- a/gdb/eval.c
> +++ b/gdb/eval.c
> @@ -1685,7 +1685,7 @@ eval_op_ind (struct type *expect_type, struct expression *exp,
>        BUILTIN_TYPE_LONGEST would seem to be a mistake.  */
>     if (type->code () == TYPE_CODE_INT)
>       return value_at_lazy (builtin_type (exp->gdbarch)->builtin_int,
> -			  (CORE_ADDR) value_as_address (arg1));
> +			  value_as_address (arg1));
>     return value_ind (arg1);
>   }
>   

LGTM

Approved-By: John Baldwin <jhb@FreeBSD.org>
  

Patch

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 3f398540010..1c26ebf7b30 100644
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -10993,7 +10993,7 @@  ada_unop_ind_operation::evaluate (struct type *expect_type,
 					  arg1));
       else
 	return value_at_lazy (builtin_type (exp->gdbarch)->builtin_int,
-			      (CORE_ADDR) value_as_address (arg1));
+			      value_as_address (arg1));
     }
 
   if (ada_is_array_descriptor_type (type))
diff --git a/gdb/eval.c b/gdb/eval.c
index 4c438f927c0..2759b46a5df 100644
--- a/gdb/eval.c
+++ b/gdb/eval.c
@@ -1685,7 +1685,7 @@  eval_op_ind (struct type *expect_type, struct expression *exp,
      BUILTIN_TYPE_LONGEST would seem to be a mistake.  */
   if (type->code () == TYPE_CODE_INT)
     return value_at_lazy (builtin_type (exp->gdbarch)->builtin_int,
-			  (CORE_ADDR) value_as_address (arg1));
+			  value_as_address (arg1));
   return value_ind (arg1);
 }