Skip to content

R
riscv-gcc-1
Commit 159a5104 by Arnaud Charlet
Options

[multiple changes] 

2014-01-29  Hristian Kirtchev  <kirtchev@adacore.com>

	* sem_util.adb (Has_Enabled_Property): Compare the character field of
	the sole property.

2014-01-29  Robert Dewar  <dewar@adacore.com>

	* sem_intr.adb, a-ztexio.ads, sinfo.ads, sem_res.adb, gnatlink.adb,
	vms_conv.adb, a-except.ads, a-except-2005.ads, a-teioed.adb,
	sem_warn.ads, treepr.ads, erroutc.ads, a-excach.adb: Minor reformatting.

From-SVN: r207267
parent 87e9b935
Showing with 30 additions and 19 deletions
gcc/ada/ChangeLog
2014-01-29 Hristian Kirtchev <kirtchev@adacore.com>
* sem_util.adb (Has_Enabled_Property): Compare the character field of
the sole property.
2014-01-29 Robert Dewar <dewar@adacore.com>
* sem_intr.adb, a-ztexio.ads, sinfo.ads, sem_res.adb, gnatlink.adb,
vms_conv.adb, a-except.ads, a-except-2005.ads, a-teioed.adb,
sem_warn.ads, treepr.ads, erroutc.ads, a-excach.adb: Minor reformatting.
2014-01-29 Robert Dewar <dewar@adacore.com>
* sem_util.ads, sem_util.adb (In_Pragma_Expression): New function.
......
gcc/ada/a-excach.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2013, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -32,7 +32,7 @@
pragma Warnings (Off);
-- Allow withing of non-Preelaborated units in Ada 2005 mode where this
-- package will be categorized as Preelaborate. See AI-362 for details.
-- It is safe in the context of the run-time to violate the rules!
-- It is safe in the context of the run-time to violate the rules.
with System.Traceback;
......
gcc/ada/a-except-2005.ads
......@@ -276,7 +276,7 @@ private
-- Note: this used to be in a separate unit called System.Poll, but that
-- caused horrible circular elaboration problems between System.Poll and
-- Ada.Exceptions. One way of solving such circularities is unification!
-- Ada.Exceptions.
procedure Poll;
-- Check for asynchronous abort. Note that we do not inline the body.
......
gcc/ada/a-except.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2012, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2013, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -250,7 +250,7 @@ private
-- Note: this used to be in a separate unit called System.Poll, but that
-- caused horrible circular elaboration problems between System.Poll and
-- Ada.Exceptions. One way of solving such circularities is unification!
-- Ada.Exceptions.
procedure Poll;
-- Check for asynchronous abort. Note that we do not inline the body.
......
gcc/ada/a-teioed.adb
......@@ -1445,7 +1445,7 @@ package body Ada.Text_IO.Editing is
-- Leading_Pound --
-------------------
-- This one is complex! A Leading_Pound can be fixed or floating,
-- This one is complex. A Leading_Pound can be fixed or floating,
-- but in some cases the decision has to be deferred until we leave
-- this procedure. Also note that Leading_Pound can be called in
-- either State.
......
gcc/ada/a-ztexio.ads
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2011, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2013, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
......@@ -389,7 +389,7 @@ private
-- there is no convenient way of backing up more than one character,
-- what we do is to leave ourselves positioned past the LM, but set
-- this flag, so that we know that from an Ada point of view we are
-- in front of the LM, not after it. A bit of a kludge, but it works!
-- in front of the LM, not after it. A bit of a kludge, but it works.
Before_LM_PM : Boolean := False;
-- This flag similarly handles the case of being physically positioned
......
gcc/ada/erroutc.ads
......@@ -98,7 +98,7 @@ package Erroutc is
-- ensures that two insertion tokens of maximum length can be accommodated.
-- The value of 1024 is an arbitrary value that should be more than long
-- enough to accommodate any reasonable message (and for that matter, some
-- pretty unreasonable messages!)
-- pretty unreasonable messages).
Msg_Buffer : String (1 .. Max_Msg_Length);
-- Buffer used to prepare error messages
......
gcc/ada/gnatlink.adb
......@@ -1598,7 +1598,7 @@ begin
-- Read it. Note that we ignore errors, since we only want very
-- limited information from the ali file, and likely a slightly
-- wrong version will be just fine, though in normal operation
-- we don't expect this to happen!
-- we don't expect this to happen.
A := Scan_ALI
(F,
......
gcc/ada/sem_intr.adb
......@@ -416,7 +416,7 @@ package body Sem_Intr is
return;
end if;
-- type'Size (not 'Object_Size!) must be one of the allowed values
-- type'Size (not 'Object_Size) must be one of the allowed values
Size := UI_To_Int (RM_Size (Typ1));
......
gcc/ada/sem_res.adb
......@@ -2474,7 +2474,7 @@ package body Sem_Res is
-- If type we are looking for is Void, then this is the procedure
-- call case, and the error is simply that what we gave is not a
-- procedure name (we think of procedure calls as expressions with
-- types internally, but the user doesn't think of them this way!)
-- types internally, but the user doesn't think of them this way).
if Typ = Standard_Void_Type then
......@@ -6170,7 +6170,7 @@ package body Sem_Res is
end if;
-- For Standard.Wide_Wide_Character or a type derived from it, we
-- know the literal is in range, since the parser checked!
-- know the literal is in range, since the parser checked.
elsif Root_Type (B_Typ) = Standard_Wide_Wide_Character then
return;
......
gcc/ada/sem_util.adb
......@@ -7319,7 +7319,7 @@ package body Sem_Util is
-- Single property
else
return Chars (Prop) = Prop_Nam;
return Chars (Props) = Prop_Nam;
end if;
end if;
......
gcc/ada/sem_warn.ads
......@@ -127,7 +127,7 @@ package Sem_Warn is
-- the end of the compilation process (see body of this routine for a
-- discussion of why this is done). This procedure outputs the warnings.
-- Note: this should be called before Output_Unreferenced_Messages, since
-- if we have an IN OUT warning, that's the one we want to see!
-- if we have an IN OUT warning, that's the one we want to see.
procedure Output_Obsolescent_Entity_Warnings (N : Node_Id; E : Entity_Id);
-- N is a reference to obsolescent entity E, for which appropriate warning
......
gcc/ada/sinfo.ads
......@@ -8232,7 +8232,7 @@ package Sinfo is
N_Unused_At_End);
for Node_Kind'Size use 8;
-- The data structures in Atree assume this!
-- The data structures in Atree assume this
----------------------------
-- Node Class Definitions --
......
gcc/ada/treepr.ads
......@@ -82,7 +82,7 @@ package Treepr is
-- Same as Print_Node_Subtree
-- The following are no longer really needed, now that pn will print
-- anything you throw at it!
-- anything you throw at it.
procedure pe (E : Elist_Id);
pragma Export (Ada, pe);
......
gcc/ada/vms_conv.adb
......@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1996-2012, Free Software Foundation, Inc. --
-- Copyright (C) 1996-2013, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -1737,7 +1737,7 @@ package body VMS_Conv is
Sw : Item_Ptr;
SwP : Natural;
P2 : Natural;
Endp : Natural := 0; -- avoid warning!
Endp : Natural := 0; -- avoid warning
Opt : Item_Ptr;
begin
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment