mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-11 08:34:42 +08:00
Code Issues Packages Projects Releases Wiki Activity

gnatfind.adb, [...]: Fix argument parsing typos.

Browse Source 
gcc/ada

	* gnatfind.adb, gnatxref.adb: Fix argument parsing typos.
	* s-auxdec-empty.adb, s-auxdec.adb: Fix typos in copyright
	statement.
	* a-ngcoar.adb, a-ngrear.adb, g-awk.adb, g-debpoo.adb,
	gprep.adb, make.adb, makegpr.adb, par-ch6.adb, prj-nmsc.adb,
	sem_attr.adb, sem_ch4.adb, sem_ch8.adb: Fix typos in ada source
	code output strings.
	* sem_type.adb, system-vms-ia64.ads, system-vms.ads,
	system-vms_64.ads: Fix typos in ada source code comments.
	* sinfo-cn.adb: Remove incomplete sentence.

From-SVN: r132822
This commit is contained in:
Ralf Wildenhues 2008-03-02 22:39:38 +00:00 committed by Ralf Wildenhues
parent 4d0e46128b
commit ad6b5b0057
22 changed files with 35 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/ada/ChangeLog
View File

@ -1,5 +1,16 @@
2008-03-02 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
* gnatfind.adb, gnatxref.adb: Fix argument parsing typos.
* s-auxdec-empty.adb, s-auxdec.adb: Fix typos in copyright
statement.
* a-ngcoar.adb, a-ngrear.adb, g-awk.adb, g-debpoo.adb,
gprep.adb, make.adb, makegpr.adb, par-ch6.adb, prj-nmsc.adb,
sem_attr.adb, sem_ch4.adb, sem_ch8.adb: Fix typos in ada source
code output strings.
* sem_type.adb, system-vms-ia64.ads, system-vms.ads,
system-vms_64.ads: Fix typos in ada source code comments.
* sinfo-cn.adb: Remove incomplete sentence.
PR documentation/15479
* gnat_rm.texi, gnat_ugn.texi: Avoid standalone `non' word.

2
gcc/ada/a-ngcoar.adb
View File

@ -1194,7 +1194,7 @@ package body Ada.Numerics.Generic_Complex_Arrays is
Info => Info'Access);
if Info /= 0 then
raise Constraint_Error with "inverting non-Hermetian matrix";
raise Constraint_Error with "inverting non-Hermitian matrix";
end if;
for J in Values'Range loop

2
gcc/ada/a-ngrear.adb
View File

@ -368,7 +368,7 @@ package body Ada.Numerics.Generic_Real_Arrays is
begin
if Left'Length (2) /= Right'Length (1) then
raise Constraint_Error with
"incompatible dimensions in matrix-matrix multipication";
"incompatible dimensions in matrix-matrix multiplication";
end if;
gemm (Trans_A => No_Trans'Access,

2
gcc/ada/g-awk.adb
View File

@ -644,7 +644,7 @@ package body GNAT.AWK is
when others =>
Raise_With_Info
(File_Error'Identity,
"Error scaning directory " & Directory
"Error scanning directory " & Directory
& " for files " & Filenames & '.',
Session);
end Add_Files;

2
gcc/ada/g-debpoo.adb
View File

@ -1388,7 +1388,7 @@ package body GNAT.Debug_Pools is
if Pool.Marked_Blocks_Deallocated then
Put_Line ("Marked blocks were physically deallocated. This is");
Put_Line ("potentially dangereous, and you might want to run");
Put_Line ("potentially dangerous, and you might want to run");
Put_Line ("again with a lower value of Minimum_To_Free");
end if;

2
gcc/ada/gnatfind.adb
View File

@ -131,7 +131,7 @@ procedure Gnatfind is
when 'n' =>
if GNAT.Command_Line.Full_Switch = "nostdinc" then
Opt.No_Stdinc := True;
elsif GNAT.Command_Line.Full_Switch = "nostlib" then
elsif GNAT.Command_Line.Full_Switch = "nostdlib" then
Opt.No_Stdlib := True;
end if;

2
gcc/ada/gnatxref.adb
View File

@ -114,7 +114,7 @@ procedure Gnatxref is
when 'n' =>
if GNAT.Command_Line.Full_Switch = "nostdinc" then
Opt.No_Stdinc := True;
elsif GNAT.Command_Line.Full_Switch = "nostlib" then
elsif GNAT.Command_Line.Full_Switch = "nostdlib" then
Opt.No_Stdlib := True;
end if;

2
gcc/ada/gprep.adb
View File

@ -778,7 +778,7 @@ package body GPrep is
elsif Deffile_Name = No_Name then
Deffile_Name := Name_Find;
else
Fail ("too many arguments specifed");
Fail ("too many arguments specified");
end if;
end;
end loop;

2
gcc/ada/make.adb
View File

@ -6716,7 +6716,7 @@ package body Make is
-- Test for simultaneity of -i and -D
if Object_Directory_Path /= null and then In_Place_Mode then
Make_Failed ("-i and -D cannot be used simutaneously");
Make_Failed ("-i and -D cannot be used simultaneously");
end if;
-- Deal with -C= switch

2
gcc/ada/makegpr.adb
View File

@ -3030,7 +3030,7 @@ package body Makegpr is
else
Osint.Fail
("unknow compiler name for language """,
("unknown compiler name for language """,
Get_Name_String (Language_Names.Table (For_Language)),
"""");
end if;

4
gcc/ada/par-ch6.adb
View File

@ -280,7 +280,7 @@ package body Ch6 is
if Token = Tok_New then
if not Pf_Flags.Gins then
Error_Msg_SC ("generic instantation not allowed here!");
Error_Msg_SC ("generic instantiation not allowed here!");
end if;
Scan; -- past NEW
@ -1289,7 +1289,7 @@ package body Ch6 is
end if;
if Token = Tok_In then
Error_Msg_SC ("IN must preceed OUT in parameter mode");
Error_Msg_SC ("IN must precede OUT in parameter mode");
Scan; -- past IN
Set_In_Present (Node, True);
end if;

2
gcc/ada/prj-nmsc.adb
View File

@ -5171,7 +5171,7 @@ package body Prj.Nmsc is
Error_Msg
(Project, In_Tree,
"symbol file name { is illegal. " &
"Name canot include directory info.",
"Name cannot include directory info.",
Lib_Symbol_File.Location);
end if;
end if;

4
gcc/ada/s-auxdec-empty.adb
View File

@ -13,8 +13,8 @@
-- ware Foundation; either version 2, Or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- Or FITNESS FOr A PARTICULAR PURPOSE. See the GNU General Public License --
-- fOr mOre details. You should have received a copy of the GNU General --
-- OR FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
-- for more details. You should have received a copy of the GNU General --
-- Public License distributed with GNAT; see file COPYING. If not, write --
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
-- Boston, MA 02110-1301, USA. --

4
gcc/ada/s-auxdec.adb
View File

@ -13,8 +13,8 @@
-- ware Foundation; either version 2, Or (at your option) any later ver- --
-- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
-- Or FITNESS FOr A PARTICULAR PURPOSE. See the GNU General Public License --
-- fOr mOre details. You should have received a copy of the GNU General --
-- OR FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
-- for more details. You should have received a copy of the GNU General --
-- Public License distributed with GNAT; see file COPYING. If not, write --
-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
-- Boston, MA 02110-1301, USA. --

2
gcc/ada/sem_attr.adb
View File

@ -2191,7 +2191,7 @@ package body Sem_Attr is
and then Warn_On_Redundant_Constructs
then
Error_Msg_NE
("?redudant attribute, & is its own base type", N, Typ);
("?redundant attribute, & is its own base type", N, Typ);
end if;
Set_Etype (N, Base_Type (Entity (P)));

2
gcc/ada/sem_ch4.adb
View File

@ -1781,7 +1781,7 @@ package body Sem_Ch4 is
end loop;
if Etype (N) = Any_Type then
Error_Msg_N ("no legal interpetation for indexed component", N);
Error_Msg_N ("no legal interpretation for indexed component", N);
Set_Is_Overloaded (N, False);
end if;

4
gcc/ada/sem_ch8.adb
View File

@ -5257,7 +5257,7 @@ package body Sem_Ch8 is
and then False
then
Error_Msg_N
("applying 'Class to an untagged imcomplete type"
("applying 'Class to an untagged incomplete type"
& " is an obsolescent feature (RM J.11)", N);
end if;
@ -5347,7 +5347,7 @@ package body Sem_Ch8 is
and then Warn_On_Redundant_Constructs
then
Error_Msg_NE
("?redudant attribute, & is its own base type", N, Typ);
("?redundant attribute, & is its own base type", N, Typ);
end if;
T := Base_Type (Typ);

2
gcc/ada/sem_type.adb
View File

@ -1515,7 +1515,7 @@ package body Sem_Type is
end if;
-- Check for overloaded CIL convention stuff because the CIL libraries
-- do sick things like Console.WriteLine where it matches
-- do sick things like Console.Write_Line where it matches
-- two different overloads, so just pick the first ???
if Convention (Nam1) = Convention_CIL

1
gcc/ada/sinfo-cn.adb
View File

@ -29,7 +29,6 @@
-- record discriminant part, such alterations cannot be permitted in a
-- general manner, but in some specific cases, the fields of related nodes
-- have been deliberately layed out in a manner that permits such alteration.
-- that determin
with Atree; use Atree;

2
gcc/ada/system-vms-ia64.ads
View File

@ -250,7 +250,7 @@ private
ADA_GNAT : constant Boolean := True;
pragma Export_Object (ADA_GNAT, "ADA$GNAT");
-- Uniquitous global symbol identifing a GNAT compiled image to VMS Debug.
-- Ubiquitous global symbol identifying a GNAT compiled image to VMS Debug.
-- Do not remove!
end System;

2
gcc/ada/system-vms.ads
View File

@ -233,7 +233,7 @@ private
ADA_GNAT : constant Boolean := True;
pragma Export_Object (ADA_GNAT, "ADA$GNAT");
-- Uniquitous global symbol identifing a GNAT compiled image to VMS Debug.
-- Ubiquitous global symbol identifying a GNAT compiled image to VMS Debug.
-- Do not remove!
end System;

2
gcc/ada/system-vms_64.ads
View File

@ -250,7 +250,7 @@ private
ADA_GNAT : constant Boolean := True;
pragma Export_Object (ADA_GNAT, "ADA$GNAT");
-- Uniquitous global symbol identifing a GNAT compiled image to VMS Debug.
-- Ubiquitous global symbol identifying a GNAT compiled image to VMS Debug.
-- Do not remove!
end System;