diff options
Diffstat (limited to 'gcc/ada/a-tideau.ads')
| -rw-r--r-- | gcc/ada/a-tideau.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-tideau.ads b/gcc/ada/a-tideau.ads index 9855e5b4237..7d513aee55a 100644 --- a/gcc/ada/a-tideau.ads +++ b/gcc/ada/a-tideau.ads @@ -69,12 +69,12 @@ private package Ada.Text_IO.Decimal_Aux is function Gets_Dec (From : String; - Last : access Positive; + Last : not null access Positive; Scale : Integer) return Integer; function Gets_LLD (From : String; - Last : access Positive; + Last : not null access Positive; Scale : Integer) return Long_Long_Integer; procedure Puts_Dec |