From: Jose Ruiz <ruiz@adacore.com>
Date: Fri, 1 Aug 2008 08:34:50 +0000 (+0200)
Subject: adaint.c (__gnat_tmp_name): Refine the generation of temporary names for RTX.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=bd56b3fca70f2a9f277274847268a9b835f2a740;p=gcc.git

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

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
---

diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index c13135788a6..03a0ff435a9 100644
--- a/gcc/ada/adaint.c
+++ b/gcc/ada/adaint.c
@@ -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__)
   {