diff options
Diffstat (limited to 'gcc/ada/prj-pars.adb')
| -rw-r--r-- | gcc/ada/prj-pars.adb | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/gcc/ada/prj-pars.adb b/gcc/ada/prj-pars.adb index 19a560d6118..bf266880507 100644 --- a/gcc/ada/prj-pars.adb +++ b/gcc/ada/prj-pars.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2002 Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2004 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,9 +26,10 @@ with Ada.Exceptions; use Ada.Exceptions; -with Prj.Err; use Prj.Err; +with Opt; with Output; use Output; with Prj.Com; use Prj.Com; +with Prj.Err; use Prj.Err; with Prj.Part; with Prj.Proc; with Prj.Tree; use Prj.Tree; @@ -42,7 +43,8 @@ package body Prj.Pars is procedure Parse (Project : out Project_Id; Project_File_Name : String; - Packages_To_Check : String_List_Access := All_Packages) + Packages_To_Check : String_List_Access := All_Packages; + Process_Languages : Languages_Processed := Ada_Language) is Project_Tree : Project_Node_Id := Empty_Node; The_Project : Project_Id := No_Project; @@ -64,7 +66,9 @@ package body Prj.Pars is (Project => The_Project, Success => Success, From_Project_Node => Project_Tree, - Report_Error => null); + Report_Error => null, + Process_Languages => Process_Languages, + Follow_Links => Opt.Follow_Links); Prj.Err.Finalize; if not Success then |