From a0a786e30d405d181e936f76317e3f1c896d4bfa Mon Sep 17 00:00:00 2001 From: Emmanuel Briot Date: Tue, 5 Oct 2010 09:26:00 +0000 Subject: gnatcmd.adb, [...] (Project_Search_Path): New type. 2010-10-05 Emmanuel Briot * gnatcmd.adb, prj-proc.adb, prj-part.adb, prj-ext.adb, prj-ext.ads, switch-m.adb, clean.adb, prj-nmsc.adb, prj-nmsc.ads, prj-env.adb, prj-env.ads, prj-tree.adb, prj-tree.ads (Project_Search_Path): New type. From-SVN: r164969 --- gcc/ada/clean.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'gcc/ada/clean.adb') diff --git a/gcc/ada/clean.adb b/gcc/ada/clean.adb index f3a1e2f..8174e91 100644 --- a/gcc/ada/clean.adb +++ b/gcc/ada/clean.adb @@ -1692,8 +1692,9 @@ package body Clean is Add_Lib_Search_Dir (Arg (4 .. Arg'Last)); elsif Arg (3) = 'P' then - Prj.Ext.Add_Search_Project_Directory - (Project_Node_Tree, Arg (4 .. Arg'Last)); + Prj.Env.Add_Directories + (Project_Node_Tree.Project_Path, + Arg (4 .. Arg'Last)); else Bad_Argument; -- cgit v1.1