aboutsummaryrefslogtreecommitdiffstats
path: root/src/print.c
diff options
context:
space:
mode:
authorJoakim Verona2012-09-10 16:03:53 +0200
committerJoakim Verona2012-09-10 16:03:53 +0200
commitb035a30e5cd2f34fedc04c253eeb5a11afed8145 (patch)
treeb9350cce389602f4967bdc1beed745929155ad5d /src/print.c
parent4a37733c693d59a9b83a3fb2d0c7f9461d149f60 (diff)
parenta31a4cdacb196cc96dcb9bd229edb1d635e01344 (diff)
downloademacs-b035a30e5cd2f34fedc04c253eeb5a11afed8145.tar.gz
emacs-b035a30e5cd2f34fedc04c253eeb5a11afed8145.zip
upstream
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));