git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

libgfortran.h (itoa): Rename to gfc_itoa. 

* libgfortran.h (itoa): Rename to gfc_itoa.
	* io/write.c (itoa): Same.
	* runtime/environ.c (itoa): Same.
	* runtime/error.c (itoa): Same.

From-SVN: r92380
This commit is contained in:
Aaron W. LaFramboise 2004-12-19 12:54:00 -06:00 committed by Aaron W. LaFramboise
parent 8d19f04f49
commit 9548f05908
5 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libgfortran/ChangeLog
View File

@ -1,3 +1,11 @@
2004-12-19 Aaron W. LaFramboise <aaronavay62@aaronwl.com>
PR libfortran/19074
* libgfortran.h (itoa): Rename to gfc_itoa.
* io/write.c (itoa): Same.
* runtime/environ.c (itoa): Same.
* runtime/error.c (itoa): Same.
2004-12-15 Bud Davis <bdavis9659@comcast.net> 2004-12-15 Bud Davis <bdavis9659@comcast.net>
Steven G. Kargl <kargls@comcast.net> Steven G. Kargl <kargls@comcast.net>

4
libgfortran/io/write.c
View File

@ -928,7 +928,7 @@ btoa (uint64_t n)
void void
write_i (fnode * f, const char *p, int len) write_i (fnode * f, const char *p, int len)
{ {
write_decimal (f, p, len, (void *) itoa); write_decimal (f, p, len, (void *) gfc_itoa);
} }
@ -1042,7 +1042,7 @@ write_integer (const char *source, int length)
int digits; int digits;
int width; int width;
q = itoa (extract_int (source, length)); q = gfc_itoa (extract_int (source, length));
switch (length) switch (length)
{ {

4
libgfortran/libgfortran.h
View File

@ -370,8 +370,8 @@ internal_proto(get_args);
/* error.c */ /* error.c */
extern char *itoa (int64_t); extern char *gfc_itoa (int64_t);
internal_proto(itoa); internal_proto(gfc_itoa);
extern char *xtoa (uint64_t); extern char *xtoa (uint64_t);
internal_proto(xtoa); internal_proto(xtoa);

2
libgfortran/runtime/environ.c
View File

@ -551,7 +551,7 @@ check_buffered (int n)
return 0; return 0;
strcpy (name, "GFORTRAN_UNBUFFERED_"); strcpy (name, "GFORTRAN_UNBUFFERED_");
strcat (name, itoa (n)); strcat (name, gfc_itoa (n));
v.name = name; v.name = name;
v.value = 2; v.value = 2;

6
libgfortran/runtime/error.c
View File

@ -60,7 +60,7 @@ static char buffer[32]; /* buffer for integer/ascii conversions */
/* Returns a pointer to a static buffer. */ /* Returns a pointer to a static buffer. */
char * char *
itoa (int64_t n) gfc_itoa (int64_t n)
{ {
int negative; int negative;
char *p; char *p;
@ -177,7 +177,7 @@ st_printf (const char *format, ...)
break; break;
case 'd': case 'd':
q = itoa (va_arg (arg, int)); q = gfc_itoa (va_arg (arg, int));
count = strlen (q); count = strlen (q);
p = salloc_w (s, &count); p = salloc_w (s, &count);
@ -254,7 +254,7 @@ st_sprintf (char *buffer, const char *format, ...)
break; break;
case 'd': case 'd':
p = itoa (va_arg (arg, int)); p = gfc_itoa (va_arg (arg, int));
count = strlen (p); count = strlen (p);
memcpy (buffer, p, count); memcpy (buffer, p, count);