X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fada%2Fs-valuns.ads;h=80695dd386c047b36efd99f4edb1320fc644e469;hb=d251c56f3d8030367df1248caa715f207e18996a;hp=7503ca4b72036b4ce74c87ba98cf7a819eb9fba0;hpb=9ce02b233ca3dcfa6be1a342fb0747113b3c7693;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/ada/s-valuns.ads b/gcc/ada/s-valuns.ads
index 7503ca4b720..80695dd386c 100644
--- a/gcc/ada/s-valuns.ads
+++ b/gcc/ada/s-valuns.ads
@@ -41,7 +41,7 @@ package System.Val_Uns is
 
    function Scan_Raw_Unsigned
      (Str : String;
-      Ptr : access Integer;
+      Ptr : not null access Integer;
       Max : Integer) return System.Unsigned_Types.Unsigned;
    --  This function scans the string starting at Str (Ptr.all) for a valid
    --  integer according to the syntax described in (RM 3.5(43)). The substring
@@ -71,7 +71,7 @@ package System.Val_Uns is
 
    function Scan_Unsigned
      (Str : String;
-      Ptr : access Integer;
+      Ptr : not null access Integer;
       Max : Integer) return System.Unsigned_Types.Unsigned;
    --  Same as Scan_Raw_Unsigned, except scans optional leading
    --  blanks, and an optional leading plus sign.