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-nmsc.adb | |
| parent | d6c1ace7a347ccbf045b97fb2facf463cfa28f80 (diff) | |
| download | gcc-b1085d2daa8889643275eeb2be01f3820e6ce1ca.zip gcc-b1085d2daa8889643275eeb2be01f3820e6ce1ca.tar.gz gcc-b1085d2daa8889643275eeb2be01f3820e6ce1ca.tar.bz2 | |
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-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 e12fe08..56075cf 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; |