* g-dirope.ads, g-dirope.adb: (Dir_Type_Value): Moved to spec.

From-SVN: r133592

gcc/ada/ChangeLog

 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
 

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
 

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;