diff options
| author | Thomas Quinot <quinot@adacore.com> | 2009-04-20 09:42:48 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-20 11:42:48 +0200 |
| commit | 5e39baa64cbb9805c30d16d391b3ad446a36ffe7 (patch) | |
| tree | 51e0816eea433888837b017eb0316dd39c9b83b3 /gcc/ada/sem_ch7.adb | |
| parent | 3568b271428985245f19c6bbea5e59f79f42544a (diff) | |
| download | gcc-5e39baa64cbb9805c30d16d391b3ad446a36ffe7.tar.gz | |
2009-04-20 Thomas Quinot <quinot@adacore.com>
* g-socket.adb, g-socket.ads, g-socthi-mingw.ads, g-socthi-vms.adb,
g-socthi-vms.ads, g-socthi-vxworks.ads, g-socthi.ads
(GNAT.Sockets.Thin.C_Inet_Addr): Remove.
(GNAT.Sockets.Thin.Inet_Aton): New function, imported from C library
except for VMS where it is reimplemented in Ada using DECC$INET_ADDR.
(GNAT.Sockets.Inet_Addr): Use inet_aton(3) instead of inet_addr(3).
* debug.adb: Fix typo
* gnat_rm.texi: Minor doc fix.
* sem_ch7.adb, freeze.adb: Minor reformatting
From-SVN: r146387
Diffstat (limited to 'gcc/ada/sem_ch7.adb')
| -rw-r--r-- | gcc/ada/sem_ch7.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/sem_ch7.adb b/gcc/ada/sem_ch7.adb index e344a5802db..54d4a299065 100644 --- a/gcc/ada/sem_ch7.adb +++ b/gcc/ada/sem_ch7.adb @@ -1510,9 +1510,9 @@ package body Sem_Ch7 is Next_Elmt (Op_Elmt_2); end loop; - -- Case 2: We have not found any explicit overriding and - -- hence we need to declare the operation (i.e., make it - -- visible). + -- Case 2: We have not found any explicit overriding and + -- hence we need to declare the operation (i.e., make it + -- visible). Derive_Subprogram (New_Op, Alias (Prim_Op), E, Etype (E)); @@ -1555,8 +1555,8 @@ package body Sem_Ch7 is end if; else - -- Non-tagged type, scan forward to locate inherited hidden - -- operations. + -- Non-tagged type, scan forward to locate inherited hidden + -- operations. Prim_Op := Next_Entity (E); while Present (Prim_Op) loop @@ -2296,7 +2296,7 @@ package body Sem_Ch7 is and then No (Full_View (Id)) then -- Mark Taft amendment types. Verify that there are no primitive - -- operations declared for the type (3.10.1 (9)). + -- operations declared for the type (3.10.1(9)). Set_Has_Completion_In_Body (Id); |