diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2008-03-26 07:56:12 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-26 08:56:12 +0100 |
| commit | 0afae63b0abc188340b1ee927ddbe0934ef26d9f (patch) | |
| tree | 0d9fc92e6ee168877c1a6a0bf8692bfece2b39a6 | |
| parent | afc5f9793c407902fade709ab2cdd3e83d051166 (diff) | |
| download | gcc-0afae63b0abc188340b1ee927ddbe0934ef26d9f.zip gcc-0afae63b0abc188340b1ee927ddbe0934ef26d9f.tar.gz gcc-0afae63b0abc188340b1ee927ddbe0934ef26d9f.tar.bz2 | |
* g-dirope.ads, g-dirope.adb: (Dir_Type_Value): Moved to spec.
From-SVN: r133592
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/g-dirope.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/g-dirope.ads | 11 |
3 files changed, 14 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index f2853e8..f8ef97c 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,9 @@ 2008-03-26 Arnaud Charlet <charlet@adacore.com> + * g-dirope.ads, g-dirope.adb: (Dir_Type_Value): Moved to spec. + +2008-03-26 Arnaud Charlet <charlet@adacore.com> + * a-witeio.adb: Fix problem with Current_Output (introduce Self). Fix problem of status check for null file diff --git a/gcc/ada/g-dirope.adb b/gcc/ada/g-dirope.adb index 774444d..0cccaba 100644 --- a/gcc/ada/g-dirope.adb +++ b/gcc/ada/g-dirope.adb @@ -46,10 +46,6 @@ package body GNAT.Directory_Operations is use Ada; - type Dir_Type_Value is new System.Address; - -- This is the low-level address directory structure as returned by the C - -- opendir routine. - Filename_Max : constant Integer := 1024; -- 1024 is the value of FILENAME_MAX in stdio.h diff --git a/gcc/ada/g-dirope.ads b/gcc/ada/g-dirope.ads index 060c3c4..c489ecc 100644 --- a/gcc/ada/g-dirope.ads +++ b/gcc/ada/g-dirope.ads @@ -43,6 +43,7 @@ -- directory names (OpenVMS native directory format is not supported). -- Read individual entries for more specific notes on OpenVMS support. +with System; with Ada.Strings.Maps; package GNAT.Directory_Operations is @@ -254,7 +255,15 @@ package GNAT.Directory_Operations is private - type Dir_Type_Value; + type Dir_Type_Value is new System.Address; + -- Low-level address directory structure as returned by opendir in C + -- + -- Note that we used to define this type in the body of this package, + -- but this was causing troubles in the context of .NET code generation + -- (because Taft amendment types are not fully implemented and cause + -- undefined references to the class), so we moved the type declaration + -- to the spec's private part, which is no problem in any case here. + type Dir_Type is access Dir_Type_Value; Null_Dir : constant Dir_Type := null; |