From c09a557e3abfb7250930d64dc9d07cdc1779a281 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 20 Apr 2009 12:04:20 +0200 Subject: [multiple changes] 2009-04-20 Thomas Quinot * sem_type.adb, ali.adb, erroutc.adb: Minor code reorganization (no behaviour change): Use Append instead of Increment_Last followed by assignment. 2009-04-20 Hristian Kirtchev * exp_ch3.adb (Make_Predefined_Primitive_Specs): Do not generate the declarations of all primitives associated with dispatching asynchronous, conditional and timed selects when dispaching calls are forbidden and select statements are not allowed (such as in Ravenscar). (Predefined_Primitive_Bodies): Ditto for bodies. * exp_disp.ad (Make_DT): Do not create and populate the Select_Specific_Data of the dispatch table when dispatching calls are forbidden and select statements are not allowed (such as in Ravenscar). 2009-04-20 Robert Dewar * a-tifiio.adb: Minor reformatting 2009-04-20 Thomas Quinot * g-socthi-vms.adb, g-socket.adb, g-socket.ads: inet_aton(3), unlike other C library functions, report *failure* with a zero status, and success with a non-zero status. 2009-04-20 Bob Duff * sem.ads, sem.adb (Walk_Library_Items): New generic procedure. (Semantics): After analyzing each unit, Append it to the Comp_Unit_List, if appropriate. * gnat1drv.adb (Check_Library_Items): New procedure for debugging purposes. (Gnat1drv): Correct comment regarding Back_End_Mode. 2009-04-20 Eric Botcazou * gnat_ugn.texi: Add documentation for -fno-inline-small-functions. From-SVN: r146389 --- gcc/ada/ali.adb | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'gcc/ada/ali.adb') diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index efc0ac2..5e5c660 100644 --- a/gcc/ada/ali.adb +++ b/gcc/ada/ali.adb @@ -482,8 +482,7 @@ package body ALI is end if; loop - Name_Len := Name_Len + 1; - Name_Buffer (Name_Len) := Getc; + Add_Char_To_Name_Buffer (Getc); exit when At_End_Of_Field and not Ignore_Spaces; @@ -936,8 +935,7 @@ package body ALI is Name_Len := 0; while not At_Eol loop - Name_Len := Name_Len + 1; - Name_Buffer (Name_Len) := Getc; + Add_Char_To_Name_Buffer (Getc); end loop; -- If -fstack-check, record that it occurred @@ -2000,8 +1998,7 @@ package body ALI is if Nextc not in '0' .. '9' then Name_Len := 0; while not At_End_Of_Field loop - Name_Len := Name_Len + 1; - Name_Buffer (Name_Len) := Getc; + Add_Char_To_Name_Buffer (Getc); end loop; -- Set the subunit name. Note that we use Name_Find rather @@ -2022,8 +2019,7 @@ package body ALI is Name_Len := 0; while not At_End_Of_Field loop - Name_Len := Name_Len + 1; - Name_Buffer (Name_Len) := Getc; + Add_Char_To_Name_Buffer (Getc); end loop; Sdep.Table (Sdep.Last).Rfile := Name_Enter; -- cgit v1.1