* sem_ch4.adb: Fix typo.
2010-06-14 Vasiliy Fofanov <fofanov@adacore.com>
* s-oscons-tmplt.c (IOV_MAX): redefine on Tru64 and VMS since the
vector IO doesn't work at default value properly.
2010-06-14 Doug Rupp <rupp@adacore.com>
* s-stoele.adb: Remove unnecessary qualification of To_Address for VMS.
2010-06-14 Vincent Celier <celier@adacore.com>
* gnatcmd.adb (Check_Files): Do not invoke the tool with all the
sources of the project if a switch -files= is used.
2010-06-14 Thomas Quinot <quinot@adacore.com>
* exp_attr.adb: Minor reformatting
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160714
138bc75d-0d04-0410-961f-
82ee72b054a4
2010-06-14 Gary Dismukes <dismukes@adacore.com>
+ * sem_ch4.adb: Fix typo.
+
+2010-06-14 Vasiliy Fofanov <fofanov@adacore.com>
+
+ * s-oscons-tmplt.c (IOV_MAX): redefine on Tru64 and VMS since the
+ vector IO doesn't work at default value properly.
+
+2010-06-14 Doug Rupp <rupp@adacore.com>
+
+ * s-stoele.adb: Remove unnecessary qualification of To_Address for VMS.
+
+2010-06-14 Vincent Celier <celier@adacore.com>
+
+ * gnatcmd.adb (Check_Files): Do not invoke the tool with all the
+ sources of the project if a switch -files= is used.
+
+2010-06-14 Thomas Quinot <quinot@adacore.com>
+
+ * exp_attr.adb: Minor reformatting
+2010-06-14 Gary Dismukes <dismukes@adacore.com>
+
* gnat_ugn.texi: Minor typo fixes and wording changes
2010-06-14 Ed Schonberg <schonberg@adacore.com>
Attribute_Name => Name_First,
Prefix => New_Occurrence_Of (Ptyp, Loc))))),
- Right_Opnd =>
- Make_Integer_Literal (Loc, 1)));
+ Right_Opnd => Make_Integer_Literal (Loc, 1)));
Analyze_And_Resolve (N, Typ);
Rewrite (N,
Make_Assignment_Statement (Loc,
- Name => Lhs,
+ Name => Lhs,
Expression => Rhs));
Analyze (N);
-- the context of a _Postcondition function with a _Result parameter.
when Attribute_Result =>
- Rewrite (N,
- Make_Identifier (Loc,
- Chars => Name_uResult));
+ Rewrite (N, Make_Identifier (Loc, Chars => Name_uResult));
Analyze_And_Resolve (N, Typ);
-----------
procedure Check_Files;
-- For GNAT LIST, GNAT PRETTY, GNAT METRIC, and GNAT STACK, check if a
- -- project file is specified, without any file arguments. If it is the
- -- case, invoke the GNAT tool with the proper list of files, derived from
- -- the sources of the project.
+ -- project file is specified, without any file arguments and without a
+ -- switch -files=. If it is the case, invoke the GNAT tool with the proper
+ -- list of files, derived from the sources of the project.
function Check_Project
(Project : Project_Id;
Success : Boolean;
begin
- -- Check if there is at least one argument that is not a switch
+ -- Check if there is at least one argument that is not a switch or if
+ -- there is a -files= switch.
for Index in 1 .. Last_Switches.Last loop
- if Last_Switches.Table (Index) (1) /= '-' then
+ if Last_Switches.Table (Index).all'Length > 7 and then
+ Last_Switches.Table (Index) (1 .. 7) = "-files="
+ then
+ Add_Sources := False;
+ exit;
+
+ elsif Last_Switches.Table (Index) (1) /= '-' then
if Index = 1
or else
(The_Command = Check
end if;
end loop;
- -- If all arguments were switches, add the path names of all the sources
- -- of the main project.
+ -- If all arguments are switchesand there is no switch -files=, add the
+ -- path names of all the sources of the main project.
if Add_Sources then
#include <limits.h>
#include <fcntl.h>
+#if defined (__alpha__) && defined (__osf__)
+/** Tru64 is unable to do vector IO operations with default value of IOV_MAX,
+ ** so its value is redefined to a small one which is known to work properly.
+ **/
+#undef IOV_MAX
+#define IOV_MAX 16
+#endif
+
+#if defined (__VMS)
+/** VMS is unable to do vector IO operations with default value of IOV_MAX,
+ ** so its value is redefined to a small one which is known to work properly.
+ **/
+#undef IOV_MAX
+#define IOV_MAX 16
+#endif
+
#if ! (defined (__vxworks) || defined (__VMS) || defined (__MINGW32__) || \
defined (__nucleus__))
# define HAVE_TERMIOS
-- Conversion to/from address
- -- Note full qualification below of To_Address to avoid ambiguities on VMS.
+ -- Note qualification below of To_Address to avoid ambiguities on VMS.
function To_Address is
new Ada.Unchecked_Conversion (Storage_Offset, Address);
function "+" (Left : Address; Right : Storage_Offset) return Address is
begin
- return System.Storage_Elements.To_Address
+ return Storage_Elements.To_Address
(To_Integer (Left) + To_Integer (To_Address (Right)));
end "+";
function "+" (Left : Storage_Offset; Right : Address) return Address is
begin
- return System.Storage_Elements.To_Address
+ return Storage_Elements.To_Address
(To_Integer (To_Address (Left)) + To_Integer (Right));
end "+";
function "-" (Left : Address; Right : Storage_Offset) return Address is
begin
- return System.Storage_Elements.To_Address
+ return Storage_Elements.To_Address
(To_Integer (Left) - To_Integer (To_Address (Right)));
end "-";
function "-" (Left, Right : Address) return Storage_Offset is
begin
- return To_Offset (System.Storage_Elements.To_Address
+ return To_Offset (Storage_Elements.To_Address
(To_Integer (Left) - To_Integer (Right)));
end "-";
First_Actual : Node_Id;
begin
- -- Place the name of the operation, with its innterpretations,
+ -- Place the name of the operation, with its interpretations,
-- on the rewritten call.
Set_Name (Call_Node, Subprog);