s-crtl.ads, [...]: Fix support for VMS

2009-11-30  Thomas Quinot  <quinot@adacore.com>

	* s-crtl.ads, s-oscons-tmplt.c: Fix support for VMS
	* make.adb, g-comlin.ads, exp_ch6.adb: Minor reformatting

From-SVN: r154767
This commit is contained in:
Thomas Quinot 2009-11-30 09:52:34 +00:00 committed by Arnaud Charlet
parent 864e0cbdc8
commit 92a745f3c4
6 changed files with 15 additions and 33 deletions

View File

@ -1,3 +1,8 @@
2009-11-30 Thomas Quinot <quinot@adacore.com>
* s-crtl.ads, s-oscons-tmplt.c: Fix support for VMS
* make.adb, g-comlin.ads, exp_ch6.adb: Minor reformatting
2009-11-30 Robert Dewar <dewar@adacore.com>
* bcheck.adb, gnatlink.adb, make.adb, makeutl.adb, osint.adb,

View File

@ -2314,9 +2314,9 @@ package body Exp_Ch6 is
end case;
-- For allocators we pass the level of the execution of
-- the called subprogram, which is one greater than the
-- current scope level.
-- For allocators we pass the level of the execution of the
-- called subprogram, which is one greater than the current
-- scope level.
when N_Allocator =>
Add_Extra_Actual

View File

@ -622,8 +622,7 @@ package GNAT.Command_Line is
Section : String := "";
Add_Before : Boolean := False;
Success : out Boolean);
-- Same as above, returning the status of
-- the operation
-- Same as above, returning the status of the operation
procedure Remove_Switch
(Cmd : in out Command_Line;

View File

@ -3405,7 +3405,7 @@ package body Make is
-- Compute where the ALI file must be generated in
-- In_Place_Mode (this does not require to know the
-- location of the object directory)
-- location of the object directory).
if In_Place_Mode then
if Full_Lib_File = No_File then
@ -3426,9 +3426,9 @@ package body Make is
end if;
end if;
-- Start the compilation and record it. We can do
-- this because there is at least one free process.
-- This might change the current directory
-- Start the compilation and record it. We can do this
-- because there is at least one free process. This
-- might change the current directory.
Collect_Arguments_And_Compile
(Full_Source_File => Full_Source_File,
@ -3481,7 +3481,7 @@ package body Make is
Lib_File_Attr := Unknown_Attributes;
-- Make sure we could successfully start the Compilation
-- Make sure we could successfully start the compilation
if Process_Created then
if Pid = Invalid_Pid then

View File

@ -29,8 +29,7 @@
-- --
------------------------------------------------------------------------------
-- This package provides the low level interface to the C Run Time Library
-- on non-VMS systems.
-- This package provides the low level interface to the C runtime library
with System.Parameters;

View File

@ -1275,27 +1275,6 @@ CST(Inet_Pton_Linkname, "")
#endif /* HAVE_SOCKETS */
/*
---------------------------------
-- C runtime library interface --
---------------------------------
*/
#if defined (__VMS)
# define malloc32_Linkname "_malloc32"
# define realloc32_Linkname "_realloc32"
# define strerror_Linkname "DECC$STRERROR"
#else
# define malloc32_Linkname "malloc"
# define realloc32_Linkname "realloc"
# define strerror_Linkname "strerror"
#endif
CST(malloc32_Linkname, "")
CST(realloc32_Linkname, "")
CST(strerror_Linkname, "")
/**
** System-specific constants follow
** Each section should be activated if compiling for the corresponding