OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[multiple changes]

Browse Source 
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.

From-SVN: r178405
This commit is contained in:
Arnaud Charlet 2011-09-01 12:52:10 +02:00
parent 70c0422d55
commit 549e455803
3 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/ChangeLog
View File

@ -1,3 +1,11 @@
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> 2011-09-01 Vincent Celier <celier@adacore.com>
* prj-env.adb (Create_Config_Pragmas_File.Check): Put all naming * prj-env.adb (Create_Config_Pragmas_File.Check): Put all naming

8
gcc/ada/g-socthi-vms.adb
View File

@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- 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 -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
@ -40,8 +40,10 @@ package body GNAT.Sockets.Thin is
type VMS_Msghdr is new Msghdr; type VMS_Msghdr is new Msghdr;
pragma Pack (VMS_Msghdr); pragma Pack (VMS_Msghdr);
-- On VMS (unlike other platforms), struct msghdr is packed, so a specific -- On VMS 8.x (unlike other platforms), struct msghdr is packed, so a
-- derived type is required. -- 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; Non_Blocking_Sockets : aliased Fd_Set;
-- When this package is initialized with Process_Blocking_IO set to True, -- When this package is initialized with Process_Blocking_IO set to True,

6
gcc/ada/prj.ads
View File

@ -1479,7 +1479,7 @@ package Prj is
-- Unit name to Unit_Index (and from there to Source_Id) -- Unit name to Unit_Index (and from there to Source_Id)
Source_Files_HT : Source_Files_Htable.Instance; 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; Source_Paths_HT : Source_Paths_Htable.Instance;
-- Full path to Source_Id -- Full path to Source_Id
@ -1493,7 +1493,7 @@ package Prj is
-- True when a source info file has been successfully read -- True when a source info file has been successfully read
Shared : Shared_Project_Tree_Data_Access; 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; Appdata : Project_Tree_Appdata_Access;
-- Application-specific data for this tree -- Application-specific data for this tree
@ -1501,7 +1501,7 @@ package Prj is
case Is_Root_Tree is case Is_Root_Tree is
when True => when True =>
Shared_Data : aliased Shared_Project_Tree_Data; Shared_Data : aliased Shared_Project_Tree_Data;
-- Do not access directly, only through Shared. -- Do not access directly, only through Shared
when False => when False =>
null; null;