diff options
| author | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-17 21:50:03 +0100 |
|---|---|---|
| committer | Geert Bosch <bosch@gcc.gnu.org> | 2001-12-17 21:50:03 +0100 |
| commit | b1085d2daa8889643275eeb2be01f3820e6ce1ca (patch) | |
| tree | 248c7b3824e0a9080926110f8245d6222245f79b /gcc/ada/prj.adb | |
| parent | d6c1ace7a347ccbf045b97fb2facf463cfa28f80 (diff) | |
| download | gcc-b1085d2daa8889643275eeb2be01f3820e6ce1ca.tar.gz | |
prj-nmsc.adb: (Ada_Check): Migrate drom Ada_Default_...
* 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.
From-SVN: r48123
Diffstat (limited to 'gcc/ada/prj.adb')
| -rw-r--r-- | gcc/ada/prj.adb | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/gcc/ada/prj.adb b/gcc/ada/prj.adb index 55fd9f0bcb7..ca6758e55ab 100644 --- a/gcc/ada/prj.adb +++ b/gcc/ada/prj.adb @@ -43,9 +43,6 @@ package body Prj is The_Empty_String : String_Id; - Default_Ada_Spec_Suffix : Name_Id := No_Name; - Default_Ada_Impl_Suffix : Name_Id := No_Name; - subtype Known_Casing is Casing_Type range All_Upper_Case .. Mixed_Case; The_Casing_Images : array (Known_Casing) of String_Access := @@ -108,24 +105,6 @@ package body Prj is Flag1 => False, Flag2 => False); - ----------------------------- - -- Ada_Default_Spec_Suffix -- - ----------------------------- - - function Ada_Default_Spec_Suffix return Name_Id is - begin - return Default_Ada_Spec_Suffix; - end Ada_Default_Spec_Suffix; - - ----------------------------- - -- Ada_Default_Impl_Suffix -- - ----------------------------- - - function Ada_Default_Impl_Suffix return Name_Id is - begin - return Default_Ada_Impl_Suffix; - end Ada_Default_Impl_Suffix; - ------------------- -- Empty_Project -- ------------------- |