diff options
Diffstat (limited to 'gcc/ada/s-valuti.adb')
| -rw-r--r-- | gcc/ada/s-valuti.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/s-valuti.adb b/gcc/ada/s-valuti.adb index 258620e24b6..f2ed3217e2b 100644 --- a/gcc/ada/s-valuti.adb +++ b/gcc/ada/s-valuti.adb @@ -81,7 +81,7 @@ package body System.Val_Util is function Scan_Exponent (Str : String; - Ptr : access Integer; + Ptr : not null access Integer; Max : Integer; Real : Boolean := False) return Integer is @@ -165,7 +165,7 @@ package body System.Val_Util is procedure Scan_Plus_Sign (Str : String; - Ptr : access Integer; + Ptr : not null access Integer; Max : Integer; Start : out Positive) is @@ -209,7 +209,7 @@ package body System.Val_Util is procedure Scan_Sign (Str : String; - Ptr : access Integer; + Ptr : not null access Integer; Max : Integer; Minus : out Boolean; Start : out Positive) @@ -286,7 +286,7 @@ package body System.Val_Util is procedure Scan_Underscore (Str : String; P : in out Natural; - Ptr : access Integer; + Ptr : not null access Integer; Max : Integer; Ext : Boolean) is |