* prj-nmsc.adb: (Ada_Check): Migrate drom Ada_Default_... to

	Default_Ada_...

	* prj.adb: (Ada_Default_Spec_Suffix, Ada_Default_Impl_Suffix):
	Remove functions.
	(Default_Ada_Spec_Suffix, Default_Ada_Impl_Suffix): Move to spec.

	* prj.ads: (Ada_Default_Spec_Suffix, Ada_Default_Impl_Suffix):
	Remove functions.
	(Default_Ada_Spec_Suffix, Default_Ada_Impl_Suffix): Move from body.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@48123 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 8 insertions, 8 deletions

diff --git a/gcc/ada/prj.ads b/gcc/ada/prj.ads
index d4b47784445..eb02bf4804a 100644
--- a/gcc/ada/prj.ads
+++ b/gcc/ada/prj.ads
@@ -40,6 +40,14 @@ with Types;       use Types;
 
 package Prj is
 
+   Default_Ada_Spec_Suffix : Name_Id := No_Name;
+   --  The Name_Id for the standard GNAT suffix for Ada spec source file
+   --  name ".ads". Initialized by Prj.Initialize.
+
+   Default_Ada_Impl_Suffix : Name_Id := No_Name;
+   --  The Name_Id for the standard GNAT suffix for Ada body source file
+   --  name ".adb". Initialized by Prj.Initialize.
+
    type Put_Line_Access is access procedure (Line : String);
    --  Use to customize error reporting in Prj.Proc and Prj.Nmsc.
 
@@ -466,14 +474,6 @@ package Prj is
    --  it is called for B. With_State may be used by Action to choose a
    --  behavior or to report some global result.
 
-   function Ada_Default_Spec_Suffix return Name_Id;
-   --  Return the Name_Id for the standard GNAT suffix for Ada spec source
-   --  file name ".ads".
-
-   function Ada_Default_Impl_Suffix return Name_Id;
-   --  Return the Name_Id for the standard GNAT suffix for Ada body source
-   --  file name ".adb".
-
 private
 
    procedure Scan;