diff options
| author | Florian Weimer <fw@deneb.enyo.de> | 2002-05-31 20:08:23 +0200 |
|---|---|---|
| committer | Florian Weimer <fw@gcc.gnu.org> | 2002-05-31 20:08:23 +0200 |
| commit | 019310acda881c20b8d16fd7ec28f274b718f63e (patch) | |
| tree | 8d012631d1d115c229144aa1e14548aa4e54f077 /gcc/ada/adaint.c | |
| parent | 4722213d3364bc9cb8a039d8d6206006610aa269 (diff) | |
| download | gcc-019310acda881c20b8d16fd7ec28f274b718f63e.zip gcc-019310acda881c20b8d16fd7ec28f274b718f63e.tar.gz gcc-019310acda881c20b8d16fd7ec28f274b718f63e.tar.bz2 | |
cstreams.c (max_path_len): Move from here ...
2002-05-31 Florian Weimer <fw@deneb.enyo.de>
* cstreams.c (max_path_len): Move from here ...
* adaint.c (__gnat_max_path_len): ... to here.
* adaint.c (__gnat_max_path_len): Declare.
* g-dirope.adb (Max_Path): Adjust.
* g-os_lib.adb (Normalize_Pathname.Max_Path): Adjust.
* i-cstrea.ads (max_path_len): Adjust.
* osint.adb (Get_RTS_Search_Dir.Max_Path): Adjust.
* xr_tabls.adb (Dir_Name.Max_Path: Adjust.
From-SVN: r54112
Diffstat (limited to 'gcc/ada/adaint.c')
| -rw-r--r-- | gcc/ada/adaint.c | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c index 4bb97b7..de733ff2 100644 --- a/gcc/ada/adaint.c +++ b/gcc/ada/adaint.c @@ -213,6 +213,24 @@ const int __gnat_vmsp = 1; const int __gnat_vmsp = 0; #endif +/* This variable is used to export the maximum length of a path name to + Ada code. */ + +#ifdef __EMX__ +int __gnat_max_path_len = _MAX_PATH; + +#elif defined (VMS) +int __gnat_max_path_len = 4096; /* PATH_MAX */ + +#elif defined (__vxworks) || defined (__OPENNT) +int __gnat_max_path_len = PATH_MAX; + +#else +#include <sys/param.h> +int __gnat_max_path_len = MAXPATHLEN; + +#endif + /* The following macro HAVE_READDIR_R should be defined if the system provides the routine readdir_r. */ #undef HAVE_READDIR_R |