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-nmsc.adb | |
| parent | 563e1a9313b6ea17be856029b4f6b7e7df0a95a4 (diff) | |
| download | ppe42-gcc-9e5833d993fe743003c8efc99f475c499adec3ff.tar.gz ppe42-gcc-9e5833d993fe743003c8efc99f475c499adec3ff.zip | |
* 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-nmsc.adb')
| -rw-r--r-- | gcc/ada/prj-nmsc.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index e12fe08b167..56075cf292d 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -638,7 +638,7 @@ package body Prj.Nmsc is Data.Naming.Current_Spec_Suffix := Ada_Spec_Suffix; else - Data.Naming.Current_Spec_Suffix := Ada_Default_Spec_Suffix; + Data.Naming.Current_Spec_Suffix := Default_Ada_Spec_Suffix; end if; end; @@ -662,7 +662,7 @@ package body Prj.Nmsc is Data.Naming.Current_Impl_Suffix := Ada_Impl_Suffix; else - Data.Naming.Current_Impl_Suffix := Ada_Default_Impl_Suffix; + Data.Naming.Current_Impl_Suffix := Default_Ada_Impl_Suffix; end if; end; @@ -713,9 +713,9 @@ package body Prj.Nmsc is Check_Ada_Naming_Scheme (Data.Naming); else - Data.Naming.Current_Spec_Suffix := Ada_Default_Spec_Suffix; - Data.Naming.Current_Impl_Suffix := Ada_Default_Impl_Suffix; - Data.Naming.Separate_Suffix := Ada_Default_Impl_Suffix; + Data.Naming.Current_Spec_Suffix := Default_Ada_Spec_Suffix; + Data.Naming.Current_Impl_Suffix := Default_Ada_Impl_Suffix; + Data.Naming.Separate_Suffix := Default_Ada_Impl_Suffix; end if; end; |
