[multiple changes]

[gcc.git] / gcc / ada / s-pack17.ads

diff --git a/gcc/ada/s-pack17.ads b/gcc/ada/s-pack17.ads
index a81a696206ab435ba00157c228353768ebf17d59..9234b1e50082b7546b6740b7a4bf68a9ba36d5d7 100644 (file)
--- a/gcc/ada/s-pack17.ads
+++ b/gcc/ada/s-pack17.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2009, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2014, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -39,11 +39,21 @@ package System.Pack_17 is
    type Bits_17 is mod 2 ** Bits;
    for Bits_17'Size use Bits;
 
-   function Get_17 (Arr : System.Address; N : Natural) return Bits_17;
+   --  In all subprograms below, Rev_SSO is set True if the array has the
+   --  non-default scalar storage order.
+
+   function Get_17
+     (Arr     : System.Address;
+      N       : Natural;
+      Rev_SSO : Boolean) return Bits_17 with Inline;
    --  Arr is the address of the packed array, N is the zero-based
    --  subscript. This element is extracted and returned.
 
-   procedure Set_17 (Arr : System.Address; N : Natural; E : Bits_17);
+   procedure Set_17
+     (Arr     : System.Address;
+      N       : Natural;
+      E       : Bits_17;
+      Rev_SSO : Boolean) with Inline;
    --  Arr is the address of the packed array, N is the zero-based
    --  subscript. This element is set to the given value.