+2009-07-15 Sergey Rybin <rybin@adacore.com>
+
+ * tree_in.ads, tree_io.ads: Add pragma Warnings Off/On for with clause
+ to System.OS_Lib to avoid warnings.
+
+2009-07-15 Robert Dewar <dewar@adacore.com>
+
+ * sinfo.ads, make.adb, par.ads, par.adb, sem_warn.adb: Minor
+ reformatting.
+
+2009-07-15 Thomas Quinot <quinot@adacore.com>
+
+ * g-socthi-mingw.adb: Minor comment addition
+
+ * g-socthi-mingw.ads (WSAStartup): First argument is a WORD not an int.
+
2009-07-15 Robert Dewar <dewar@adacore.com>
* g-htable.ads, s-htable.ads: Minor reformatting
WSAData_Dummy : array (1 .. 512) of C.int;
- WS_Version : constant := 16#0202#;
+ WS_Version : constant := 16#0202#;
+ -- Winsock 2.2
+
Initialized : Boolean := False;
function Standard_Connect
(Command : System.Address) return C.int;
function WSAStartup
- (WS_Version : Interfaces.C.int;
+ (WS_Version : Interfaces.C.unsigned_short;
WSADataAddress : System.Address) return Interfaces.C.int;
-------------------------------------------------------
Comp_Next := Comp_Next + 1;
-- Optimize the simple case where the gcc command line looks like
- -- gcc -c -I. ... -I- file.adb --into-> gcc -c ... file.adb
+ -- gcc -c -I. ... -I- file.adb
+ -- into
+ -- gcc -c ... file.adb
if Args (Args'First).all = "-I" & Normalized_CWD
and then Args (Args'Last).all = "-I-"
-- Par --
---------
-function Par
- (Configuration_Pragmas : Boolean) return List_Id
-is
+function Par (Configuration_Pragmas : Boolean) return List_Id is
Num_Library_Units : Natural := 0;
-- Count number of units parsed (relevant only in syntax check only mode,
-- since in semantics check mode only a single unit is permitted anyway)
Operating_Mode := Save_Operating_Mode;
Style_Check := Save_Style_Check;
- -- If we are at an end of file, and not yet at the right
- -- unit, then we have a fatal error. The unit is missing.
+ -- If we are at an end of file, and not yet at the right unit,
+ -- then we have a fatal error. The unit is missing.
if Token = Tok_EOF then
Error_Msg_SC ("file has too few compilation units");
end if;
end;
- -- Here if we are not skipping a file in multiple unit per file
- -- mode. Parse the unit that we are interested in. Note that in
- -- check syntax mode we are interested in all units in the file.
+ -- Here if we are not skipping a file in multiple unit per file mode.
+ -- Parse the unit that we are interested in. Note that in check
+ -- syntax mode we are interested in all units in the file.
else
declare
begin
-- If parsing was successful and we are not in check syntax
- -- mode, check that language defined units are compiled in
- -- GNAT mode. For this purpose we do NOT consider renamings
- -- in annex J as predefined. That allows users to compile
- -- their own versions of these files, and in particular,
- -- in the VMS implementation, the DEC versions can be
- -- substituted for the standard Ada 95 versions. Another
- -- exception is System.RPC and its children. This allows
- -- a user to supply their own communication layer.
+ -- mode, check that language defined units are compiled in GNAT
+ -- mode. For this purpose we do NOT consider renamings in annex
+ -- J as predefined. That allows users to compile their own
+ -- versions of these files, and in particular, in the VMS
+ -- implementation, the DEC versions can be substituted for the
+ -- standard Ada 95 versions. Another exception is System.RPC
+ -- and its children. This allows a user to supply their own
+ -- communication layer.
if Comp_Unit_Node /= Error
and then Operating_Mode = Generate_Code
Name : String (1 .. Uname'Length - 2);
begin
- -- Because Unit_Name includes "%s" or "%b", we need to
- -- strip the last two characters to get the real unit
- -- name.
+ -- Because Unit_Name includes "%s"/"%b", we need to strip
+ -- the last two characters to get the real unit name.
Name := Uname (Uname'First .. Uname'Last - 2);
Restore_Opt_Config_Switches (Save_Config_Switches);
end loop;
- -- Now that we have completely parsed the source file, we can
- -- complete the source file table entry.
+ -- Now that we have completely parsed the source file, we can complete
+ -- the source file table entry.
Complete_Source_File_Entry;
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2009, 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- --
with Types; use Types;
-function Par
- (Configuration_Pragmas : Boolean) return List_Id;
+function Par (Configuration_Pragmas : Boolean) return List_Id;
-- Top level parsing routine. There are two cases:
--
-- If Configuration_Pragmas is False, Par parses a compilation unit in the
-- Start of processing for Warn_On_Known_Condition
begin
- -- Argument replacement in an inlined body can make conditions static.
- -- Do not emit warnings in this case.
+ -- Argument replacement in an inlined body can make conditions static.
+ -- Do not emit warnings in this case.
if In_Inlined_Body then
return;
-- Aliased_Present (Flag4) set if ALIASED appears
-- Constant_Present (Flag17) set if CONSTANT appears
-- Null_Exclusion_Present (Flag11)
- -- Object_Definition (Node4) subtype indic./array type def./ access def.
+ -- Object_Definition (Node4) subtype indic./array type def./access def.
-- Expression (Node3) (set to Empty if not present)
-- Handler_List_Entry (Node2-Sem)
-- Corresponding_Generic_Association (Node5-Sem)
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2009 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2009, 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- --
-- tools that need to read the tree to the tree reading routines, and is
-- thus bound as part of such tools.
+-- Note: the pragma Warnings (Off) here is because ASIS compiles this unit
+-- without -gnatg, and System.OS_Lib is an implementation unit. This is a
+-- temporary kludge which will be better resolved later on ???
+
+pragma Warnings (Off);
with System.OS_Lib; use System.OS_Lib;
+pragma Warnings (On);
procedure Tree_In (Desc : File_Descriptor);
-- Desc is the file descriptor for the file containing the tree, as written
-- --
-- S p e c --
-- --
--- Copyright (C) 1992-2009 Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2009, 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- --
with Types; use Types;
with System; use System;
+
+-- Note: the pragma Warnings (Off) here is because ASIS compiles this unit
+-- without -gnatg, and System.OS_Lib is an implementation unit. This is a
+-- temporary kludge which will be better resolved later on ???
+
+pragma Warnings (Off);
with System.OS_Lib; use System.OS_Lib;
+pragma Warnings (On);
package Tree_IO is