+2005-10-01 Jakub Jelinek <jakub@redhat.com>
+
+ * libgfortran.h (GFC_ITOA_BUF_SIZE, GFC_XTOA_BUF_SIZE,
+ GFC_OTOA_BUF_SIZE, GFC_BTOA_BUF_SIZE): Define.
+ (gfc_itoa, xtoa): Add 2 extra arguments.
+ * runtime/environ.c: Include stdio.h.
+ (check_buffered): Use sprintf.
+ * runtime/error.c: Include assert.h.
+ (gfc_itoa, xtoa): Add 2 extra arguments, avoid using static
+ buffers.
+ (st_printf, st_sprintf): Adjust callers.
+ * io/write.c (otoa, btoa): Add 2 extra arguments, avoid using
+ static buffers.
+ (write_int, write_decimal): Add 2 extra arguments to conv
+ function pointer, adjust caller.
+ (write_integer): Adjust gfc_itoa caller.
+
+ * io/unit.c (get_array_unit_len): Return 0 rather than NULL.
+
+ * io/read.c (read_f): Remove spurious pointer dereference.
+
2005-09-30 Janne Blomqvist <jblomqvi@cc.hut.fi>
PR 24112
case '9':
case ' ':
ndigits++;
- *p++;
+ p++;
w--;
break;
if (desc->dim[i].stride != stride)
{
generate_error (ERROR_ARRAY_STRIDE, NULL);
- return NULL;
+ return 0;
}
stride *= desc->dim[i].ubound;
record_count *= desc->dim[i].ubound;
Boston, MA 02110-1301, USA. */
#include "config.h"
+#include <assert.h>
#include <string.h>
#include <ctype.h>
#include <float.h>
static void
write_int (fnode *f, const char *source, int len,
- char *(*conv) (GFC_UINTEGER_LARGEST))
+ const char *(*conv) (GFC_UINTEGER_LARGEST, char *, size_t))
{
GFC_UINTEGER_LARGEST n = 0;
int w, m, digits, nzero, nblank;
- char *p, *q;
+ char *p;
+ const char *q;
+ char itoa_buf[GFC_BTOA_BUF_SIZE];
w = f->u.integer.w;
m = f->u.integer.m;
goto done;
}
- q = conv (n);
+ q = conv (n, itoa_buf, sizeof (itoa_buf));
digits = strlen (q);
/* Select a width if none was specified. The idea here is to always
static void
write_decimal (fnode *f, const char *source, int len,
- char *(*conv) (GFC_INTEGER_LARGEST))
+ const char *(*conv) (GFC_INTEGER_LARGEST, char *, size_t))
{
GFC_INTEGER_LARGEST n = 0;
int w, m, digits, nsign, nzero, nblank;
- char *p, *q;
+ char *p;
+ const char *q;
sign_t sign;
+ char itoa_buf[GFC_BTOA_BUF_SIZE];
w = f->u.integer.w;
m = f->u.integer.m;
n = -n;
nsign = sign == SIGN_NONE ? 0 : 1;
- q = conv (n);
+ q = conv (n, itoa_buf, sizeof (itoa_buf));
digits = strlen (q);
/* Convert unsigned octal to ascii. */
-static char *
-otoa (GFC_UINTEGER_LARGEST n)
+static const char *
+otoa (GFC_UINTEGER_LARGEST n, char *buffer, size_t len)
{
char *p;
+ assert (len >= GFC_OTOA_BUF_SIZE);
+
if (n == 0)
- {
- scratch[0] = '0';
- scratch[1] = '\0';
- return scratch;
- }
+ return "0";
- p = scratch + SCRATCH_SIZE - 1;
- *p-- = '\0';
+ p = buffer + GFC_OTOA_BUF_SIZE - 1;
+ *p = '\0';
while (n != 0)
{
- *p = '0' + (n & 7);
- p--;
+ *--p = '0' + (n & 7);
n >>= 3;
}
- return ++p;
+ return p;
}
/* Convert unsigned binary to ascii. */
-static char *
-btoa (GFC_UINTEGER_LARGEST n)
+static const char *
+btoa (GFC_UINTEGER_LARGEST n, char *buffer, size_t len)
{
char *p;
+ assert (len >= GFC_BTOA_BUF_SIZE);
+
if (n == 0)
- {
- scratch[0] = '0';
- scratch[1] = '\0';
- return scratch;
- }
+ return "0";
- p = scratch + SCRATCH_SIZE - 1;
- *p-- = '\0';
+ p = buffer + GFC_BTOA_BUF_SIZE - 1;
+ *p = '\0';
while (n != 0)
{
- *p-- = '0' + (n & 1);
+ *--p = '0' + (n & 1);
n >>= 1;
}
- return ++p;
+ return p;
}
const char *q;
int digits;
int width;
+ char itoa_buf[GFC_ITOA_BUF_SIZE];
- q = gfc_itoa (extract_int (source, length));
+ q = gfc_itoa (extract_int (source, length), itoa_buf, sizeof (itoa_buf));
switch (length)
{
/* error.c */
-extern char *gfc_itoa (GFC_INTEGER_LARGEST);
+#define GFC_ITOA_BUF_SIZE (sizeof (GFC_INTEGER_LARGEST) * 3 + 2)
+#define GFC_XTOA_BUF_SIZE (sizeof (GFC_UINTEGER_LARGEST) * 2 + 1)
+#define GFC_OTOA_BUF_SIZE (sizeof (GFC_INTEGER_LARGEST) * 3 + 1)
+#define GFC_BTOA_BUF_SIZE (sizeof (GFC_INTEGER_LARGEST) * 8 + 1)
+
+extern const char *gfc_itoa (GFC_INTEGER_LARGEST, char *, size_t);
internal_proto(gfc_itoa);
-extern char *xtoa (GFC_UINTEGER_LARGEST);
+extern const char *xtoa (GFC_UINTEGER_LARGEST, char *, size_t);
internal_proto(xtoa);
extern void os_error (const char *) __attribute__ ((noreturn));
Boston, MA 02110-1301, USA. */
#include "config.h"
+#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <ctype.h>
int
check_buffered (int n)
{
- char name[40];
+ char name[22 + sizeof (n) * 3];
variable v;
int rv;
if (options.all_unbuffered)
return 0;
- strcpy (name, "GFORTRAN_UNBUFFERED_");
- strcat (name, gfc_itoa (n));
+ sprintf (name, "GFORTRAN_UNBUFFERED_%d", n);
v.name = name;
v.value = 2;
#include "config.h"
+#include <assert.h>
#include <stdio.h>
#include <stdarg.h>
#include <string.h>
unsigned line = 0;
iexport_data(line);
-/* buffer for integer/ascii conversions. */
-static char buffer[sizeof (GFC_UINTEGER_LARGEST) * 8 + 1];
+/* gfc_itoa()-- Integer to decimal conversion. */
-
-/* Returns a pointer to a static buffer. */
-
-char *
-gfc_itoa (GFC_INTEGER_LARGEST n)
+const char *
+gfc_itoa (GFC_INTEGER_LARGEST n, char *buffer, size_t len)
{
int negative;
char *p;
GFC_UINTEGER_LARGEST t;
+ assert (len >= GFC_ITOA_BUF_SIZE);
+
if (n == 0)
- {
- buffer[0] = '0';
- buffer[1] = '\0';
- return buffer;
- }
+ return "0";
negative = 0;
t = n;
t = -n; /*must use unsigned to protect from overflow*/
}
- p = buffer + sizeof (buffer) - 1;
- *p-- = '\0';
+ p = buffer + GFC_ITOA_BUF_SIZE - 1;
+ *p = '\0';
while (t != 0)
{
- *p-- = '0' + (t % 10);
+ *--p = '0' + (t % 10);
t /= 10;
}
if (negative)
- *p-- = '-';
- return ++p;
+ *--p = '-';
+ return p;
}
-/* xtoa()-- Integer to hexadecimal conversion. Returns a pointer to a
- * static buffer. */
+/* xtoa()-- Integer to hexadecimal conversion. */
-char *
-xtoa (GFC_UINTEGER_LARGEST n)
+const char *
+xtoa (GFC_UINTEGER_LARGEST n, char *buffer, size_t len)
{
int digit;
char *p;
+ assert (len >= GFC_XTOA_BUF_SIZE);
+
if (n == 0)
- {
- buffer[0] = '0';
- buffer[1] = '\0';
- return buffer;
- }
+ return "0";
- p = buffer + sizeof (buffer) - 1;
- *p-- = '\0';
+ p = buffer + GFC_XTOA_BUF_SIZE - 1;
+ *p = '\0';
while (n != 0)
{
if (digit > 9)
digit += 'A' - '0' - 10;
- *p-- = '0' + digit;
+ *--p = '0' + digit;
n >>= 4;
}
- return ++p;
+ return p;
}
{
int count, total;
va_list arg;
- char *p, *q;
+ char *p;
+ const char *q;
stream *s;
+ char itoa_buf[GFC_ITOA_BUF_SIZE];
total = 0;
s = init_error_stream ();
break;
case 'd':
- q = gfc_itoa (va_arg (arg, int));
+ q = gfc_itoa (va_arg (arg, int), itoa_buf, sizeof (itoa_buf));
count = strlen (q);
p = salloc_w (s, &count);
break;
case 'x':
- q = xtoa (va_arg (arg, unsigned));
+ q = xtoa (va_arg (arg, unsigned), itoa_buf, sizeof (itoa_buf));
count = strlen (q);
p = salloc_w (s, &count);
st_sprintf (char *buffer, const char *format, ...)
{
va_list arg;
- char c, *p;
+ char c;
+ const char *p;
int count;
+ char itoa_buf[GFC_ITOA_BUF_SIZE];
va_start (arg, format);
break;
case 'd':
- p = gfc_itoa (va_arg (arg, int));
+ p = gfc_itoa (va_arg (arg, int), itoa_buf, sizeof (itoa_buf));
count = strlen (p);
memcpy (buffer, p, count);