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.
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
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,
when others =>
Raise_With_Info
(File_Error'Identity,
- "Error scaning directory " & Directory
+ "Error scanning directory " & Directory
& " for files " & Filenames & '.',
Session);
end Add_Files;
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;
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;
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;
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;
-- 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
else
Osint.Fail
- ("unknow compiler name for language """,
+ ("unknown compiler name for language """,
Get_Name_String (Language_Names.Table (For_Language)),
"""");
end if;
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
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;
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;
-- 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. --
-- 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. --
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)));
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;
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;
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);
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
-- 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;
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;
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;
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;
projects / platform / upstream / gcc.git / commitdiff