* 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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@207267
138bc75d-0d04-0410-961f-
82ee72b054a4
+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.
-- --
-- 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- --
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;
-- 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.
-- --
-- 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 --
-- 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.
-- 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.
-- --
-- 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 --
-- 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
-- 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
-- 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,
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));
-- 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
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;
-- Single property
else
- return Chars (Prop) = Prop_Nam;
+ return Chars (Props) = Prop_Nam;
end if;
end if;
-- 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
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 --
-- 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);
-- --
-- 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- --
Sw : Item_Ptr;
SwP : Natural;
P2 : Natural;
- Endp : Natural := 0; -- avoid warning!
+ Endp : Natural := 0; -- avoid warning
Opt : Item_Ptr;
begin
projects / thirdparty / gcc.git / commitdiff
