From 21c51f53f0145dd812b2231e03116f49fadcd004 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Fri, 1 Aug 2014 09:48:28 +0000 Subject: a-numaux-vxworks.ads, [...]: Fix bad package header comments. 2014-08-01 Robert Dewar * a-numaux-vxworks.ads, a-numaux-x86.adb, a-numaux-x86.ads, a-numaux-darwin.adb, a-numaux-darwin.ads, a-numaux.ads, a-numaux-libc-x86.ads: Fix bad package header comments. * elists.ads, elists.adb (Append_New_Elmt): New procedure. * gnat_rm.texi, a-calend.adb, gnatcmd.adb, einfo.adb, einfo.ads, checks.adb, sem_prag.adb, sem_prag.ads, rtsfind.ads, freeze.adb, sem_util.adb, sem_attr.adb, exp_dbug.adb, exp_dbug.ads, gnat1drv.adb, targparm.adb, targparm.ads, exp_ch6.adb, switch-b.adb, s-shasto.ads, stand.ads, s-auxdec.ads, opt.adb, opt.ads, mlib-tgt.ads, s-fatgen.adb, s-fatgen.ads, system.ads, snames.ads-tmpl, s-stalib.ads, s-os_lib.adb: Remove VMS-specific code. From-SVN: r213437 --- gcc/ada/sem_attr.adb | 39 +-------------------------------------- 1 file changed, 1 insertion(+), 38 deletions(-) (limited to 'gcc/ada/sem_attr.adb') diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index e0d2d9e..599212f 100644 --- a/gcc/ada/sem_attr.adb +++ b/gcc/ada/sem_attr.adb @@ -6264,11 +6264,7 @@ package body Sem_Attr is -- Mark this component as processed else - if No (Comps) then - Comps := New_Elmt_List; - end if; - - Append_Elmt (Comp_Or_Discr, Comps); + Append_New_Elmt (Comp_Or_Discr, Comps); end if; end if; @@ -6787,9 +6783,6 @@ package body Sem_Attr is -- Computes the Fore value for the current attribute prefix, which is -- known to be a static fixed-point type. Used by Fore and Width. - function Is_VAX_Float (Typ : Entity_Id) return Boolean; - -- Determine whether Typ denotes a VAX floating point type - function Mantissa return Uint; -- Returns the Mantissa value for the prefix type @@ -6921,16 +6914,6 @@ package body Sem_Attr is return R; end Fore_Value; - ------------------ - -- Is_VAX_Float -- - ------------------ - - function Is_VAX_Float (Typ : Entity_Id) return Boolean is - pragma Unreferenced (Typ); - begin - return False; - end Is_VAX_Float; - -------------- -- Mantissa -- -------------- @@ -7953,16 +7936,6 @@ package body Sem_Attr is Fold_Uint (N, Expr_Value (Lo_Bound), Static); end if; - -- Replace VAX Float_Type'First with a reference to the temporary - -- which represents the low bound of the type. This transformation - -- is needed since the back end cannot evaluate 'First on VAX. - - elsif Is_VAX_Float (P_Type) - and then Nkind (Lo_Bound) = N_Identifier - then - Rewrite (N, New_Occurrence_Of (Entity (Lo_Bound), Sloc (N))); - Analyze (N); - else Check_Concurrent_Discriminant (Lo_Bound); end if; @@ -8206,16 +8179,6 @@ package body Sem_Attr is Fold_Uint (N, Expr_Value (Hi_Bound), Static); end if; - -- Replace VAX Float_Type'Last with a reference to the temporary - -- which represents the high bound of the type. This transformation - -- is needed since the back end cannot evaluate 'Last on VAX. - - elsif Is_VAX_Float (P_Type) - and then Nkind (Hi_Bound) = N_Identifier - then - Rewrite (N, New_Occurrence_Of (Entity (Hi_Bound), Sloc (N))); - Analyze (N); - else Check_Concurrent_Discriminant (Hi_Bound); end if; -- cgit v1.1