diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index eec9dd5fbb6..d7ba26798e5 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -2907,7 +2907,7 @@ package body Bindgen is Nlen := Name'Length; Name (Name'Last) := Character'Val (J mod 10 + Character'Pos ('0')); Name (Name'Last - 1) := - Character'Val (J / 10 + Character'Pos ('0')); + Character'Val (J / 10 + Character'Pos ('0')); end if; for K in ALIs.First .. ALIs.Last loop diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb index f506bccb7ed..44d461f315b 100644 --- a/gcc/ada/errout.adb +++ b/gcc/ada/errout.adb @@ -3876,7 +3876,7 @@ package body Errout is -- dealing with some cases of internal names). while Name_Len > 1 and then Name_Buffer (Name_Len) in 'A' .. 'Z' loop - Name_Len := Name_Len - 1; + Name_Len := Name_Len - 1; end loop; -- If we have any of the names from standard that start with the diff --git a/gcc/ada/exp_unst.adb b/gcc/ada/exp_unst.adb index 90a626f48fd..2fb92990840 100644 --- a/gcc/ada/exp_unst.adb +++ b/gcc/ada/exp_unst.adb @@ -856,7 +856,7 @@ package body Exp_Unst is S : Entity_Id := E; begin - for J in reverse 1 .. L - 1 loop + for J in reverse 1 .. L - 1 loop S := Enclosing_Subprogram (S); Subps.Table (Subp_Index (S)).Reachable := True; end loop; diff --git a/gcc/ada/gnatchop.adb b/gcc/ada/gnatchop.adb index 01999716ef4..03ad454b2e3 100644 --- a/gcc/ada/gnatchop.adb +++ b/gcc/ada/gnatchop.adb @@ -721,7 +721,7 @@ procedure Gnatchop is begin Parse_Token (Source, Parse_Ptr, Token_Ptr); - if Source'Last + 1 - Token_Ptr < Literal'Length + if Source'Last + 1 - Token_Ptr < Literal'Length or else Source (Token_Ptr .. Token_Ptr + Literal'Length - 1) /= Literal then diff --git a/gcc/ada/libgnat/a-ngcefu.adb b/gcc/ada/libgnat/a-ngcefu.adb index eccb5602bcd..56beb0fa376 100644 --- a/gcc/ada/libgnat/a-ngcefu.adb +++ b/gcc/ada/libgnat/a-ngcefu.adb @@ -225,7 +225,7 @@ package body Ada.Numerics.Generic_Complex_Elementary_Functions is elsif abs Re (X) > 1.0 / Epsilon or else abs Im (X) > 1.0 / Epsilon then - Xt := Complex_One / X; + Xt := Complex_One / X; if Re (X) < 0.0 then Set_Re (Xt, PI - Re (Xt)); @@ -442,7 +442,7 @@ package body Ada.Numerics.Generic_Complex_Elementary_Functions is if abs Re (X) < Square_Root_Epsilon and then abs Im (X) < Square_Root_Epsilon then - return Complex_One / X; + return Complex_One / X; elsif Im (X) > Log_Inverse_Epsilon_2 then return -Complex_I; @@ -463,7 +463,7 @@ package body Ada.Numerics.Generic_Complex_Elementary_Functions is if abs Re (X) < Square_Root_Epsilon and then abs Im (X) < Square_Root_Epsilon then - return Complex_One / X; + return Complex_One / X; elsif Re (X) > Log_Inverse_Epsilon_2 then return Complex_One; diff --git a/gcc/ada/libgnat/a-strunb.adb b/gcc/ada/libgnat/a-strunb.adb index e97ee3d54dc..f8e880eecfa 100644 --- a/gcc/ada/libgnat/a-strunb.adb +++ b/gcc/ada/libgnat/a-strunb.adb @@ -721,7 +721,7 @@ package body Ada.Strings.Unbounded is Realloc_For_Chunk (Source, New_Item'Length); Source.Reference - (Before + New_Item'Length .. Source.Last + New_Item'Length) := + (Before + New_Item'Length .. Source.Last + New_Item'Length) := Source.Reference (Before .. Source.Last); Source.Reference (Before .. Before + New_Item'Length - 1) := New_Item; diff --git a/gcc/ada/libgnat/a-stwiun.adb b/gcc/ada/libgnat/a-stwiun.adb index 76fc2eabddc..8773a621f20 100644 --- a/gcc/ada/libgnat/a-stwiun.adb +++ b/gcc/ada/libgnat/a-stwiun.adb @@ -718,7 +718,7 @@ package body Ada.Strings.Wide_Unbounded is Realloc_For_Chunk (Source, New_Item'Length); Source.Reference - (Before + New_Item'Length .. Source.Last + New_Item'Length) := + (Before + New_Item'Length .. Source.Last + New_Item'Length) := Source.Reference (Before .. Source.Last); Source.Reference (Before .. Before + New_Item'Length - 1) := New_Item; diff --git a/gcc/ada/libgnat/a-stzunb.adb b/gcc/ada/libgnat/a-stzunb.adb index 34cbc322501..a92714cdcf3 100644 --- a/gcc/ada/libgnat/a-stzunb.adb +++ b/gcc/ada/libgnat/a-stzunb.adb @@ -726,7 +726,7 @@ package body Ada.Strings.Wide_Wide_Unbounded is Realloc_For_Chunk (Source, New_Item'Length); Source.Reference - (Before + New_Item'Length .. Source.Last + New_Item'Length) := + (Before + New_Item'Length .. Source.Last + New_Item'Length) := Source.Reference (Before .. Source.Last); Source.Reference (Before .. Before + New_Item'Length - 1) := New_Item; diff --git a/gcc/ada/libgnat/a-wtedit.adb b/gcc/ada/libgnat/a-wtedit.adb index 64bb9890511..9b9f70269b8 100644 --- a/gcc/ada/libgnat/a-wtedit.adb +++ b/gcc/ada/libgnat/a-wtedit.adb @@ -246,8 +246,8 @@ package body Ada.Wide_Text_IO.Editing is else Count := Count * 10 - + Character'Pos (Picture (Last)) - - Character'Pos ('0'); + + Character'Pos (Picture (Last)) - + Character'Pos ('0'); end if; Last := Last + 1; diff --git a/gcc/ada/libgnat/g-debpoo.adb b/gcc/ada/libgnat/g-debpoo.adb index ecab282f14b..6e0cf1048c7 100644 --- a/gcc/ada/libgnat/g-debpoo.adb +++ b/gcc/ada/libgnat/g-debpoo.adb @@ -791,7 +791,7 @@ package body GNAT.Debug_Pools is declare Block_Number : constant Integer_Address := - Int_Storage / Memory_Chunk_Size; + Int_Storage / Memory_Chunk_Size; Ptr : constant Validity_Bits_Ref := Validy_Htable.Get (Block_Number); Offset : constant Integer_Address := @@ -844,7 +844,7 @@ package body GNAT.Debug_Pools is procedure Set_Valid (Storage : System.Address; Value : Boolean) is Int_Storage : constant Integer_Address := To_Integer (Storage); Block_Number : constant Integer_Address := - Int_Storage / Memory_Chunk_Size; + Int_Storage / Memory_Chunk_Size; Ptr : Validity_Bits_Ref := Validy_Htable.Get (Block_Number); Offset : constant Integer_Address := (Int_Storage - (Block_Number * Memory_Chunk_Size)) / diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index 3ac4fd582c5..af76dc7b4f9 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -1971,9 +1971,9 @@ package body Osint is function Nb_Dir_In_Obj_Search_Path return Natural is begin if Opt.Look_In_Primary_Dir then - return Lib_Search_Directories.Last - Primary_Directory + 1; + return Lib_Search_Directories.Last - Primary_Directory + 1; else - return Lib_Search_Directories.Last - Primary_Directory; + return Lib_Search_Directories.Last - Primary_Directory; end if; end Nb_Dir_In_Obj_Search_Path; @@ -1984,9 +1984,9 @@ package body Osint is function Nb_Dir_In_Src_Search_Path return Natural is begin if Opt.Look_In_Primary_Dir then - return Src_Search_Directories.Last - Primary_Directory + 1; + return Src_Search_Directories.Last - Primary_Directory + 1; else - return Src_Search_Directories.Last - Primary_Directory; + return Src_Search_Directories.Last - Primary_Directory; end if; end Nb_Dir_In_Src_Search_Path; diff --git a/gcc/ada/sigtramp-vxworks.c b/gcc/ada/sigtramp-vxworks.c index 138e3d001a0..357a834082b 100644 --- a/gcc/ada/sigtramp-vxworks.c +++ b/gcc/ada/sigtramp-vxworks.c @@ -49,15 +49,15 @@ typedef struct mcontext { - REG_SET regs; + REG_SET regs; } mcontext_t; typedef struct ucontext { - mcontext_t uc_mcontext; /* register set */ - struct ucontext * uc_link; /* not used */ - sigset_t uc_sigmask; /* set of signals blocked */ - stack_t uc_stack; /* stack of context signaled */ + mcontext_t uc_mcontext; /* register set */ + struct ucontext * uc_link; /* not used */ + sigset_t uc_sigmask; /* set of signals blocked */ + stack_t uc_stack; /* stack of context signaled */ } ucontext_t; #endif diff --git a/gcc/ada/uintp.adb b/gcc/ada/uintp.adb index 5c1306102db..854d2e167b0 100644 --- a/gcc/ada/uintp.adb +++ b/gcc/ada/uintp.adb @@ -1431,7 +1431,7 @@ package body Uintp is N := N / Uint_2; exit when N = Uint_0; - Squares := Squares * Squares; + Squares := Squares * Squares; end loop; Uintp.Release_And_Save (M, Result);