aboutsummaryrefslogtreecommitdiffstats
path: root/src/print.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/print.c')
-rw-r--r--src/print.c8
1 files changed, 1 insertions, 7 deletions
diff --git a/src/print.c b/src/print.c
index 911e009ad25..c1b60c97d9e 100644
--- a/src/print.c
+++ b/src/print.c
@@ -47,15 +47,9 @@ static Lisp_Object Qtemp_buffer_setup_hook;
47 47
48static Lisp_Object Qfloat_output_format; 48static Lisp_Object Qfloat_output_format;
49 49
50#include <math.h>
51#include <float.h> 50#include <float.h>
52#include <ftoastr.h> 51#include <ftoastr.h>
53 52
54/* Default to values appropriate for IEEE floating point. */
55#ifndef DBL_DIG
56#define DBL_DIG 15
57#endif
58
59/* Avoid actual stack overflow in print. */ 53/* Avoid actual stack overflow in print. */
60static ptrdiff_t print_depth; 54static ptrdiff_t print_depth;
61 55
@@ -2069,7 +2063,7 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
2069 { 2063 {
2070 int len; 2064 int len;
2071 /* We're in trouble if this happens! 2065 /* We're in trouble if this happens!
2072 Probably should just abort () */ 2066 Probably should just emacs_abort (). */
2073 strout ("#<EMACS BUG: INVALID DATATYPE ", -1, -1, printcharfun); 2067 strout ("#<EMACS BUG: INVALID DATATYPE ", -1, -1, printcharfun);
2074 if (MISCP (obj)) 2068 if (MISCP (obj))
2075 len = sprintf (buf, "(MISC 0x%04x)", (int) XMISCTYPE (obj)); 2069 len = sprintf (buf, "(MISC 0x%04x)", (int) XMISCTYPE (obj));