diff options
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 8 |
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 | ||
| 48 | static Lisp_Object Qfloat_output_format; | 48 | static 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. */ |
| 60 | static ptrdiff_t print_depth; | 54 | static 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)); |