From 38d2fa31f60fb5aaf3dea1214bbf9001ab94f600 Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 7 Apr 2009 15:01:27 +0000 Subject: 2009-04-07 Robert Dewar (Osint.Fail): Change calling sequence to have one string arg (Make.Make_Failed): Same change All callers are adjusted to use concatenation 2009-04-07 Robert Dewar * exp_ch4.adb: Fix documentation typo 2009-04-07 Robert Dewar * tbuild.ads: Minor reformatting 2009-04-07 Javier Miranda * exp_disp.adb (Make_DT): Avoid the generation of the OSD_Table when compiling under ZFP runtime. 2009-04-07 Robert Dewar * g-comlin.adb: Minor reformatting 2009-04-07 Thomas Quinot * socket.c, g-socthi-vms.adb, g-socthi-vms.ads, g-socthi-vxworks.adb, g-socthi-vxworks.ads, g-socthi-mingw.adb, g-socthi-mingw.ads, g-socthi.adb, g-socthi.ads, g-socket.adb, g-socket.ads, g-sothco.ads: Remove dynamic allocation of Fd_Set in Socket_Set_Type objects. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145678 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/prep.adb | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) (limited to 'gcc/ada/prep.adb') diff --git a/gcc/ada/prep.adb b/gcc/ada/prep.adb index c1f4a5e780b..810669917f3 100644 --- a/gcc/ada/prep.adb +++ b/gcc/ada/prep.adb @@ -260,7 +260,7 @@ package body Prep is Result := True_Value; elsif Index = Definition'First then - Fail ("invalid symbol definition """, Definition, """"); + Fail ("invalid symbol definition """ & Definition & """"); else -- Put the symbol in the name buffer @@ -280,9 +280,9 @@ package body Prep is null; when others => - Fail ("illegal value """, - Definition (Index + 1 .. Definition'Last), - """"); + Fail ("illegal value """ + & Definition (Index + 1 .. Definition'Last) + & """"); end case; end loop; end if; @@ -301,9 +301,9 @@ package body Prep is if Name_Buffer (1) not in 'a' .. 'z' and then Name_Buffer (1) not in 'A' .. 'Z' then - Fail ("symbol """, - Name_Buffer (1 .. Name_Len), - """ does not start with a letter"); + Fail ("symbol """ + & Name_Buffer (1 .. Name_Len) + & """ does not start with a letter"); end if; for J in 2 .. Name_Len loop @@ -313,20 +313,20 @@ package body Prep is when '_' => if J = Name_Len then - Fail ("symbol """, - Name_Buffer (1 .. Name_Len), - """ end with a '_'"); + Fail ("symbol """ + & Name_Buffer (1 .. Name_Len) + & """ end with a '_'"); elsif Name_Buffer (J + 1) = '_' then - Fail ("symbol """, - Name_Buffer (1 .. Name_Len), - """ contains consecutive '_'"); + Fail ("symbol """ + & Name_Buffer (1 .. Name_Len) + & """ contains consecutive '_'"); end if; when others => - Fail ("symbol """, - Name_Buffer (1 .. Name_Len), - """ contains illegal character(s)"); + Fail ("symbol """ + & Name_Buffer (1 .. Name_Len) + & """ contains illegal character(s)"); end case; end loop; -- cgit v1.2.1