hostparm.ads (Normalized_CWD): Use the host directory separator instead of the hardco...

2007-04-20  Pascal Obry  <obry@adacore.com>

	* hostparm.ads (Normalized_CWD): Use the host directory separator
	instead of the hardcoded forward slash which is not the proper
	character on Windows for example.
	(Java_VM): Removed.

From-SVN: r125426

diff --git a/gcc/ada/hostparm.ads b/gcc/ada/hostparm.ads
index eae07726a67121cf0559f152978b0df56e13365f..31c598e78a7d5683076a9db42664addc2f672854 100644 (file)
--- a/gcc/ada/hostparm.ads
+++ b/gcc/ada/hostparm.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2005 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2007, 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- --
@@ -39,15 +39,6 @@ with Types;
 
 package Hostparm is
 
-   -----------------------
-   -- TARGET Parameters --
-   -----------------------
-
-   --  ??? The following should really be moved to a Target package
-
-   Java_VM : constant Boolean := False;
-   --  Set true when compiling the JGNAT tool chain (compiler, gnatmake, etc)
-
    ---------------------
    -- HOST Parameters --
    ---------------------
@@ -57,10 +48,12 @@ package Hostparm is
 
    OpenVMS : Boolean := Gnat_VMSp /= 0;
    --  Set True for OpenVMS host. See also OpenVMS target boolean in
-   --  5vsystem.ads and OpenVMS_On_Target boolean in Targparm. This is
-   --  not a constant, because it can be modified by -gnatdm.
+   --  system-vms.ads and system-vms_64.ads and OpenVMS_On_Target boolean in
+   --  Targparm. This is not a constant, because it can be modified by -gnatdm.
 
-   Normalized_CWD : constant String := "./";
+   Direct_Separator : constant Character;
+   pragma Import (C, Direct_Separator, "__gnat_dir_separator");
+   Normalized_CWD : constant String := "." & Direct_Separator;
    --  Normalized string to access current directory
 
    Max_Line_Length : constant := Types.Column_Number'Pred