diff options
| author | Pascal Obry <obry@adacore.com> | 2007-06-06 12:31:39 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-06-06 12:31:39 +0200 |
| commit | 26fa2a35f5069fc553bbbadbdb92b786220be7f5 (patch) | |
| tree | 563e0b7493e58aaa0aeedac33e8e2e1ee6128409 /gcc | |
| parent | 45fdc7556590a8258c78c1f722a0b836bcd7956f (diff) | |
| download | gcc-26fa2a35f5069fc553bbbadbdb92b786220be7f5.zip gcc-26fa2a35f5069fc553bbbadbdb92b786220be7f5.tar.gz gcc-26fa2a35f5069fc553bbbadbdb92b786220be7f5.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/hostparm.ads | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/gcc/ada/hostparm.ads b/gcc/ada/hostparm.ads index eae0772..31c598e 100644 --- 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 |