diff options
Diffstat (limited to 'gcc/ada/i-cstrin.ads')
| -rw-r--r-- | gcc/ada/i-cstrin.ads | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/gcc/ada/i-cstrin.ads b/gcc/ada/i-cstrin.ads index 9ec673c724a..2f42cdea7d4 100644 --- a/gcc/ada/i-cstrin.ads +++ b/gcc/ada/i-cstrin.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1993-2000 Free Software Foundation, Inc. -- +-- Copyright (C) 1993-2002 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -35,8 +35,6 @@ -- -- ------------------------------------------------------------------------------ -with System.Storage_Elements; - package Interfaces.C.Strings is pragma Preelaborate (Strings); @@ -92,12 +90,7 @@ pragma Preelaborate (Strings); Update_Error : exception; private - type chars_ptr is new System.Storage_Elements.Integer_Address; - - Null_Ptr : constant chars_ptr := 0; - -- A little cleaner might be To_Integer (System.Null_Address) but this is - -- non-preelaborable, and in fact we jolly well know this value is zero. - -- Indeed, given the C interface nature, it is probably more correct to - -- write zero here (even if Null_Address were non-zero). + type chars_ptr is access all Character; + Null_Ptr : constant chars_ptr := null; end Interfaces.C.Strings; |