+2011-09-01 Tristan Gingold <gingold@adacore.com>
+
+ * g-socthi-vms.adb: Add comments.
+
+2011-09-01 Pascal Obry <obry@adacore.com>
+
+ * prj.ads: Minor reformatting.
+
2011-09-01 Vincent Celier <celier@adacore.com>
* prj-env.adb (Create_Config_Pragmas_File.Check): Put all naming
-- --
-- B o d y --
-- --
--- Copyright (C) 2001-2010, AdaCore --
+-- Copyright (C) 2001-2011, AdaCore --
-- --
-- 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- --
type VMS_Msghdr is new Msghdr;
pragma Pack (VMS_Msghdr);
- -- On VMS (unlike other platforms), struct msghdr is packed, so a specific
- -- derived type is required.
+ -- On VMS 8.x (unlike other platforms), struct msghdr is packed, so a
+ -- specific derived type is required.
+ -- This structure was not packed on VMS 7.3, so sendmsg and recvmsg fail on
+ -- earlier VMS versions.
Non_Blocking_Sockets : aliased Fd_Set;
-- When this package is initialized with Process_Blocking_IO set to True,
-- Unit name to Unit_Index (and from there to Source_Id)
Source_Files_HT : Source_Files_Htable.Instance;
- -- Base source file names to Source_Id list.
+ -- Base source file names to Source_Id list
Source_Paths_HT : Source_Paths_Htable.Instance;
-- Full path to Source_Id
-- True when a source info file has been successfully read
Shared : Shared_Project_Tree_Data_Access;
- -- The shared data for this tree and all aggregated trees.
+ -- The shared data for this tree and all aggregated trees
Appdata : Project_Tree_Appdata_Access;
-- Application-specific data for this tree
case Is_Root_Tree is
when True =>
Shared_Data : aliased Shared_Project_Tree_Data;
- -- Do not access directly, only through Shared.
+ -- Do not access directly, only through Shared
when False =>
null;