From: Piotr Trojanek <trojanek@adacore.com>
Date: Fri, 27 Sep 2024 15:53:29 +0000 (+0200)
Subject: ada: Minor whitespace tuning
X-Git-Tag: basepoints/gcc-16~4658
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9c3b5ed02e8b0599f7566fa914f29a75aa438a7b;p=thirdparty%2Fgcc.git

ada: Minor whitespace tuning

Code cleanup.

gcc/ada/ChangeLog:

	* exp_ch4.adb (Expand_N_Op_Multiply): Remove extra whitespace.
---

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index b2cc672579f0..3817997c836c 100644
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -9271,9 +9271,9 @@ package body Exp_Ch4 is
       Rp2 : constant Boolean :=
               Nkind (Rop) = N_Op_Expon and then Is_Power_Of_2_For_Shift (Rop);
 
-      Ltyp : constant Entity_Id  := Etype (Lop);
-      Rtyp : constant Entity_Id  := Etype (Rop);
-      Typ  : Entity_Id           := Etype (N);
+      Ltyp : constant Entity_Id := Etype (Lop);
+      Rtyp : constant Entity_Id := Etype (Rop);
+      Typ  : Entity_Id          := Etype (N);
 
    begin
       Binary_Op_Validity_Checks (N);