25a26
> #include "real.h"
50,51c51
< table = (struct bucket **) permalloc (HASH_SIZE * sizeof (struct bucket *));
< memset ((char *) table, 0, HASH_SIZE * sizeof (struct bucket *));
---
> table = (struct bucket **) xcalloc (HASH_SIZE, sizeof (struct bucket *));
127d126
< #if !defined(REAL_IS_NOT_DOUBLE) || defined(REAL_ARITHMETIC)
135,137c134,135
< char string[100];
<
< REAL_VALUE_TO_DECIMAL (d, "%e", string);
---
> char string[60];
> real_to_decimal (string, &d, sizeof (string), 0, 1);
140,149d137
< #else
< {
< int i;
< unsigned char *p = (unsigned char *) &TREE_REAL_CST (node);
< fprintf (file, " 0x");
< for (i = 0; i < sizeof TREE_REAL_CST (node); i++)
< fprintf (file, "%02x", *p++);
< fprintf (file, "");
< }
< #endif
226c214
< b = (struct bucket *) permalloc (sizeof (struct bucket));
---
> b = (struct bucket *) xmalloc (sizeof (struct bucket));
343c331,333
< if (TREE_CODE (node) == FUNCTION_DECL && DECL_INLINE (node))
---
> if (TREE_CODE (node) == FUNCTION_DECL && DID_INLINE_FUNC (node))
> fputs (" autoinline", file);
> else if (TREE_CODE (node) == FUNCTION_DECL && DECL_INLINE (node))
365a356,357
> if (TREE_CODE (node) == VAR_DECL && DECL_THREAD_LOCAL (node))
> fputs (" thread-local", file);
398c390
<
---
>
429c421
< fprintf (file, HOST_WIDE_INT_PRINT_DEC,
---
> fprintf (file, HOST_WIDE_INT_PRINT_DEC,
519a512,514
> if (TYPE_RESTRICT (node))
> fputs (" restrict", file);
>
647c642
< fprintf (file, "%s:%d:%d",
---
> fprintf (file, "%s:%d:%d",
686d680
< #if !defined(REAL_IS_NOT_DOUBLE) || defined(REAL_ARITHMETIC)
694,696c688,689
< char string[100];
<
< REAL_VALUE_TO_DECIMAL (d, "%e", string);
---
> char string[64];
> real_to_decimal (string, &d, sizeof (string), 0, 1);
699,708d691
< #else
< {
< int i;
< unsigned char *p = (unsigned char *) &TREE_REAL_CST (node);
< fprintf (file, " 0x");
< for (i = 0; i < sizeof TREE_REAL_CST (node); i++)
< fprintf (file, "%02x", *p++);
< fprintf (file, "");
< }
< #endif
734c717,730
< fprintf (file, " \"%s\"", TREE_STRING_POINTER (node));
---
> {
> const char *p = TREE_STRING_POINTER (node);
> int i = TREE_STRING_LENGTH (node);
> fputs (" \"", file);
> while (--i >= 0)
> {
> char ch = *p++;
> if (ch >= ' ' && ch < 127)
> putc (ch, file);
> else
> fprintf(file, "\\%03o", ch & 0xFF);
> }
> fputc ('\"', file);
> }