OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Fix errno for rename for the VxWorks 6 target

Browse Source 
This fixes the wrong errno for rename when the file is not existing on a
dosFs. In the end it makes Ada.Directories.Rename raising the right
exception in the case we are trying to move a file in a non existing
directory.

2019-09-18  Frederic Konrad  <konrad@adacore.com>

gcc/ada/

	* adaint.c: Include dosFsLib.h and vwModNum.h for VxWorks 6.
	(__gnat_rename): Map S_dosFsLib_FILE_NOT_FOUND to ENOENT.

From-SVN: r275846
This commit is contained in:
Frederic Konrad 2019-09-18 08:32:09 +00:00 committed by Pierre-Marie de Rodat
parent dcbe49a6c4
commit 82fa20a211
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2019-09-18 Frederic Konrad <konrad@adacore.com>
* adaint.c: Include dosFsLib.h and vwModNum.h for VxWorks 6.
(__gnat_rename): Map S_dosFsLib_FILE_NOT_FOUND to ENOENT.
2019-09-18 Steve Baird <baird@adacore.com>
* freeze.adb (Freeze_Object_Declaration): Do not call

20
gcc/ada/adaint.c
View File

@ -74,6 +74,12 @@
(such as chmod) are only available on VxWorks 6. */
#include "version.h"
/* vwModNum.h and dosFsLib.h are needed for the VxWorks 6 rename workaround.
See below. */
#if (_WRS_VXWORKS_MAJOR == 6)
#include <vwModNum.h>
#include <dosFsLib.h>
#endif /* 6.x */
#endif /* VxWorks */
#if defined (__APPLE__)
@ -754,6 +760,20 @@ __gnat_rename (char *from, char *to)
S2WSC (wto, to, GNAT_MAX_PATH_LEN);
return _trename (wfrom, wto);
}
#elif defined (__vxworks) && (_WRS_VXWORKS_MAJOR == 6)
{
/* When used on a dos filesystem under VxWorks 6.9 rename will trigger a
S_dosFsLib_FILE_NOT_FOUND errno when the file is not found. Let's map
that to ENOENT so Ada.Directory.Rename can detect that and raise the
Name_Error exception. */
int ret = rename (from, to);
if (ret && (errno == S_dosFsLib_FILE_NOT_FOUND))
{
errno = ENOENT;
}
return ret;
}
#else
return rename (from, to);
#endif