diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-06 10:31:39 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-06-06 10:31:39 +0000 |
commit | 77a073f32e3273746bd203e41edb68bda966b67c (patch) | |
tree | 563e0b7493e58aaa0aeedac33e8e2e1ee6128409 /gcc/ada/hostparm.ads | |
parent | 11edcba13cbfe05488a64b31893873e1b5f996aa (diff) | |
download | gcc-77a073f32e3273746bd203e41edb68bda966b67c.tar.gz |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125426 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/hostparm.ads')
-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 eae07726a67..31c598e78a7 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 |