From: Jose Ruiz Date: Fri, 1 Aug 2008 07:38:17 +0000 (+0200) Subject: cstreams.c (__gnat_full_name): RTSS applications cannot ask for the current directory... X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=1884210a861f40f614430628e2dc7065e1e958c5;p=platform%2Fupstream%2Fgcc.git cstreams.c (__gnat_full_name): RTSS applications cannot ask for the current directory so only fully qualified... 2008-08-01 Jose Ruiz * cstreams.c (__gnat_full_name): RTSS applications cannot ask for the current directory so only fully qualified names are allowed. From-SVN: r138460 --- 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] == ':')