From 26fa2a35f5069fc553bbbadbdb92b786220be7f5 Mon Sep 17 00:00:00 2001 From: Pascal Obry Date: Wed, 6 Jun 2007 12:31:39 +0200 Subject: [PATCH] hostparm.ads (Normalized_CWD): Use the host directory separator instead of the hardcoded forward slash which... 2007-04-20 Pascal Obry * 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 --- gcc/ada/hostparm.ads | 19 ++++++------------- 1 file 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 -- 2.30.2