mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-26 02:30:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

adaint.c (__gnat_tmp_name): Refine the generation of temporary names for RTX.

Browse Source 
2008-08-01  Jose Ruiz  <ruiz@adacore.com>

	* adaint.c (__gnat_tmp_name): Refine the generation of temporary names
	for RTX. Adding a suffix that is incremented at each iteration.

From-SVN: r138482
This commit is contained in:
Jose Ruiz 2008-08-01 10:34:50 +02:00 committed by Arnaud Charlet
parent 7273484240
commit bd56b3fca7
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/adaint.c
View File

@ -983,8 +983,12 @@ void
__gnat_tmp_name (char *tmp_filename)
{
#ifdef RTX
/* RTX in RTSS mode does not support tempnam nor tmpnam */
strcpy (tmp_filename, "c:\\WINDOWS\\Temp\\gnat-XXXXXX");
/* Variable used to create a series of unique names */
static int counter = 0;
/* RTX in RTSS mode does not support tempnam nor tmpnam so we emulate it */
strcpy (tmp_filename, "c:\\WINDOWS\\Temp\\gnat-");
sprintf (&tmp_filename[strlen (tmp_filename)], "%d\0", counter++);
#elif defined (__MINGW32__)
{