mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-23 02:19:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

g-soccon-vms.ads: Fix value of MSG_WAITALL.

Browse Source 
2007-10-15  Thomas Quinot  <quinot@adacore.com>

	* g-soccon-vms.ads: Fix value of MSG_WAITALL.

	* gen-soccon.c: 
	Update documentation to note that OpenVMS 8.3 or later must be used
	to generate g-soccon-vms.ads.

	* atree.adb: Add ??? comment

	* exp_util.adb: Minor reformatting.
	Add ??? comment in Kill_Dead_Code.

From-SVN: r129342
This commit is contained in:
Thomas Quinot 2007-10-15 15:58:10 +02:00 committed by Arnaud Charlet
parent 54df6fd99a
commit 569f538b9d
4 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gcc/ada/atree.adb
View File

@ -949,6 +949,8 @@ package body Atree is
Delete_Field (Field3 (Node));
Delete_Field (Field4 (Node));
Delete_Field (Field5 (Node));
-- ??? According to spec, Node itself should be deleted as well
end Delete_Tree;
-----------

10
gcc/ada/exp_util.adb
View File

@ -3402,10 +3402,8 @@ package body Exp_Util is
or else Nkind (N) = N_Subprogram_Body
or else Nkind (N) = N_Package_Body
then
Kill_Dead_Code
(Declarations (N), False);
Kill_Dead_Code
(Statements (Handled_Statement_Sequence (N)));
Kill_Dead_Code (Declarations (N), False);
Kill_Dead_Code (Statements (Handled_Statement_Sequence (N)));
if Nkind (N) = N_Subprogram_Body then
Set_Is_Eliminated (Defining_Entity (N));
@ -3415,6 +3413,10 @@ package body Exp_Util is
Kill_Dead_Code (Visible_Declarations (Specification (N)));
Kill_Dead_Code (Private_Declarations (Specification (N)));
-- ??? After this point, Delete_Tree has been called on all
-- declarations in Specification (N), so references to
-- entities therein look suspicious.
declare
E : Entity_Id := First_Entity (Defining_Entity (N));
begin

2
gcc/ada/g-soccon-vms.ads
View File

@ -138,7 +138,7 @@ package GNAT.Sockets.Constants is
MSG_OOB : constant := 1; -- Process out-of-band data
MSG_PEEK : constant := 2; -- Peek at incoming data
MSG_EOR : constant := 8; -- Send end of record
MSG_WAITALL : constant := 64; -- Wait for full reception
MSG_WAITALL : constant := 128; -- Wait for full reception
MSG_NOSIGNAL : constant := -1; -- No SIGPIPE on send
MSG_Forced_Flags : constant := 0;
-- Flags set on all send(2) calls

16
gcc/ada/gen-soccon.c
View File

@ -24,11 +24,17 @@
/* This program generates g-soccon.ads */
/* To build using DEC C:
CC/DEFINE="TARGET=""OpenVMS""" gen-soccon
LINK gen-soccon
RUN gen-soccon
*/
/*
* To build using DEC C:
*
* CC/DEFINE="TARGET=""OpenVMS""" gen-soccon
* LINK gen-soccon
* RUN gen-soccon
*
* Note: OpenVMS versions older than 8.3 provide an incorrect value in
* the DEC C header files for MSG_WAITALL. To generate the VMS version
* of g-soccon.ads, gen-soccon should be run on an 8.3 or later machine.
*/
#ifndef TARGET
# error Please define TARGET