diff options
| author | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-17 20:50:03 +0000 |
|---|---|---|
| committer | bosch <bosch@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-12-17 20:50:03 +0000 |
| commit | 9e5833d993fe743003c8efc99f475c499adec3ff (patch) | |
| tree | 248c7b3824e0a9080926110f8245d6222245f79b /gcc/ada/prj.adb | |
| parent | 563e1a9313b6ea17be856029b4f6b7e7df0a95a4 (diff) | |
| download | gcc-9e5833d993fe743003c8efc99f475c499adec3ff.tar.gz | |
* 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
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 -- ------------------- |