Commit 26fa2a35 by Pascal Obry Committed by Arnaud Charlet

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

hostparm.ads (Normalized_CWD): Use the host directory separator instead of the hardcoded forward slash which...

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
parent 45fdc755
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- 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 -- -- 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- --
...@@ -39,15 +39,6 @@ with Types; ...@@ -39,15 +39,6 @@ with Types;
package Hostparm is 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 -- -- HOST Parameters --
--------------------- ---------------------
...@@ -57,10 +48,12 @@ package Hostparm is ...@@ -57,10 +48,12 @@ package Hostparm is
OpenVMS : Boolean := Gnat_VMSp /= 0; OpenVMS : Boolean := Gnat_VMSp /= 0;
-- Set True for OpenVMS host. See also OpenVMS target boolean in -- Set True for OpenVMS host. See also OpenVMS target boolean in
-- 5vsystem.ads and OpenVMS_On_Target boolean in Targparm. This is -- system-vms.ads and system-vms_64.ads and OpenVMS_On_Target boolean in
-- not a constant, because it can be modified by -gnatdm. -- 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 -- Normalized string to access current directory
Max_Line_Length : constant := Types.Column_Number'Pred Max_Line_Length : constant := Types.Column_Number'Pred
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment