mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-18 14:31:48 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
From-SVN: r133592
This commit is contained in:
Arnaud Charlet 2008-03-26 07:56:12 +00:00 committed by Arnaud Charlet
parent afc5f9793c
commit 0afae63b0a
3 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -1,3 +1,7 @@
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).

4
gcc/ada/g-dirope.adb
View File

@ -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

11
gcc/ada/g-dirope.ads
View File

@ -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;