Mercurial > emacs
comparison src/print.c @ 20200:b69f8ea35fef
(DBL_MIN): Use workaround if DBL_MIN_REPLACEMENT is defined.
| author | Paul Eggert <eggert@twinsun.com> |
|---|---|
| date | Wed, 29 Oct 1997 07:47:37 +0000 |
| parents | 1e352b03fd8a |
| children | 13efdf0fe96e |
comparison
equal
deleted
inserted
replaced
| 20199:70fcbe6a5e23 | 20200:b69f8ea35fef |
|---|---|
| 1 /* Lisp object printing and output streams. | 1 /* Lisp object printing and output streams. |
| 2 Copyright (C) 1985, 86, 88, 93, 94, 95 Free Software Foundation, Inc. | 2 Copyright (C) 1985, 86, 88, 93, 94, 95, 97 Free Software Foundation, Inc. |
| 3 | 3 |
| 4 This file is part of GNU Emacs. | 4 This file is part of GNU Emacs. |
| 5 | 5 |
| 6 GNU Emacs is free software; you can redistribute it and/or modify | 6 GNU Emacs is free software; you can redistribute it and/or modify |
| 7 it under the terms of the GNU General Public License as published by | 7 it under the terms of the GNU General Public License as published by |
| 70 #ifndef DBL_MANT_DIG | 70 #ifndef DBL_MANT_DIG |
| 71 #define DBL_MANT_DIG 53 | 71 #define DBL_MANT_DIG 53 |
| 72 #endif | 72 #endif |
| 73 #ifndef DBL_DIG | 73 #ifndef DBL_DIG |
| 74 #define DBL_DIG 15 | 74 #define DBL_DIG 15 |
| 75 #endif | |
| 76 #ifndef DBL_MIN | |
| 77 #define DBL_MIN 2.2250738585072014e-308 | |
| 78 #endif | |
| 79 | |
| 80 #ifdef DBL_MIN_REPLACEMENT | |
| 81 #undef DBL_MIN | |
| 82 #define DBL_MIN DBL_MIN_REPLACEMENT | |
| 75 #endif | 83 #endif |
| 76 | 84 |
| 77 /* Define DOUBLE_DIGITS_BOUND, an upper bound on the number of decimal digits | 85 /* Define DOUBLE_DIGITS_BOUND, an upper bound on the number of decimal digits |
| 78 needed to express a float without losing information. | 86 needed to express a float without losing information. |
| 79 The general-case formula is valid for the usual case, IEEE floating point, | 87 The general-case formula is valid for the usual case, IEEE floating point, |