diff options
| author | Jose Ruiz <ruiz@adacore.com> | 2008-08-01 09:38:17 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-01 09:38:17 +0200 |
| commit | 1884210a861f40f614430628e2dc7065e1e958c5 (patch) | |
| tree | 5cc23759918ac2fbfb6e5057c09b0781c2d30dd9 /gcc/ada/cstreams.c | |
| parent | d8a9c35eb95ea5a9d6c3575ab9a8e59c60a521dd (diff) | |
| download | gcc-1884210a861f40f614430628e2dc7065e1e958c5.zip gcc-1884210a861f40f614430628e2dc7065e1e958c5.tar.gz gcc-1884210a861f40f614430628e2dc7065e1e958c5.tar.bz2 | |
cstreams.c (__gnat_full_name): RTSS applications cannot ask for the current directory so only fully qualified...
2008-08-01 Jose Ruiz <ruiz@adacore.com>
* cstreams.c (__gnat_full_name): RTSS applications cannot ask for the
current directory so only fully qualified names are allowed.
From-SVN: r138460
Diffstat (limited to 'gcc/ada/cstreams.c')
| -rw-r--r-- | gcc/ada/cstreams.c | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/gcc/ada/cstreams.c b/gcc/ada/cstreams.c index fe81bcb..79dde93 100644 --- a/gcc/ada/cstreams.c +++ b/gcc/ada/cstreams.c @@ -6,7 +6,7 @@ * * * Auxiliary C functions for Interfaces.C.Streams * * * - * Copyright (C) 1992-2007, Free Software Foundation, Inc. * + * Copyright (C) 1992-2008, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -156,7 +156,18 @@ __gnat_constant_stdout (void) char * __gnat_full_name (char *nam, char *buffer) { -#if defined(__EMX__) || defined (__MINGW32__) +#ifdef RTSS + /* RTSS applications have no current-directory notion, so RTSS file I/O + requests must use fully qualified path names, such as: + c:\temp\MyFile.txt (for a file system object) + \\.\MyDevice0 (for a device object) + */ + if (nam[1] == ':' || nam[0] == '\\') + strcpy (buffer, nam); + else + buffer[0] = '\0'; + +#elif defined(__EMX__) || defined (__MINGW32__) /* If this is a device file return it as is; under Windows NT and OS/2 a device file end with ":". */ if (nam[strlen (nam) - 1] == ':') |