diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:25:16 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:25:16 +0000 |
| commit | 271c020ead1f48b22927837e9617a5dc78bbbe9e (patch) | |
| tree | 47b104101e9f0a4d83635f8e134fc642ba236db6 /gcc/ada/prj-pp.adb | |
| parent | ef7e1793111031a06fd7e805025471f8d545d3d1 (diff) | |
| download | gcc-271c020ead1f48b22927837e9617a5dc78bbbe9e.tar.gz | |
2007-04-06 Vincent Celier <celier@adacore.com>
* prj-ext.adb (Initialize_Project_Path): New procedure that initialize
the default project path, initially done during elaboration of the
package.
If the prefix returned by Sdefault is null, get the prefix from a call
to Executable_Prefix_Path.
(Project_Path): Call Initialize_Project_Path if Current_Project_Path is
null.
* prj-nmsc.adb (Get_Path_Names_And_Record_Sources): Use the non
canonical directory name to open the directory from which files are
retrieved.
(Record_Other_Sources): Idem.
(Locate_Directory): Add the possibility to create automatically missing
directories when Setup_Projects is True.
Call Locate_Directory so that the directory will be created when
Setup_Projects is True, for object dir, library dir, library ALI dir,
library source copy dir and exec dir.
* prj-pp.adb (Max_Line_Length): Set to 255 for compatibility with older
versions of GNAT.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123589 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-pp.adb')
| -rw-r--r-- | gcc/ada/prj-pp.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/prj-pp.adb b/gcc/ada/prj-pp.adb index bf9305966d9..d20e642d7ac 100644 --- a/gcc/ada/prj-pp.adb +++ b/gcc/ada/prj-pp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2005, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2006, 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- -- @@ -26,7 +26,6 @@ with Ada.Characters.Handling; use Ada.Characters.Handling; -with Hostparm; with Namet; use Namet; with Output; use Output; with Snames; @@ -37,8 +36,9 @@ package body Prj.PP is Not_Tested : array (Project_Node_Kind) of Boolean := (others => True); - Max_Line_Length : constant := Hostparm.Max_Line_Length - 5; - -- Maximum length of a line + Max_Line_Length : constant := 255; + -- Maximum length of a line. This is chosen to be compatible with older + -- versions of GNAT that had a strict limit on the maximum line length. Column : Natural := 0; -- Column number of the last character in the line. Used to avoid |