From: Paul Eggert <eggert@twinsun.com>
Date: Wed, 29 Oct 1997 07:47:37 +0000 (+0000)
Subject: (DBL_MIN): Use workaround if DBL_MIN_REPLACEMENT is defined.
X-Git-Tag: emacs-20.3~2873
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b0a1044b3ec84dd151a9f7b881c552bc4d44594a;p=emacs.git

(DBL_MIN): Use workaround if DBL_MIN_REPLACEMENT is defined.
---

diff --git a/src/print.c b/src/print.c
index 237bccc5a65..57193694f4a 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1,5 +1,5 @@
 /* Lisp object printing and output streams.
-   Copyright (C) 1985, 86, 88, 93, 94, 95 Free Software Foundation, Inc.
+   Copyright (C) 1985, 86, 88, 93, 94, 95, 97 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -73,6 +73,14 @@ Lisp_Object Vfloat_output_format, Qfloat_output_format;
 #ifndef DBL_DIG
 #define DBL_DIG 15
 #endif
+#ifndef DBL_MIN
+#define DBL_MIN 2.2250738585072014e-308
+#endif
+
+#ifdef DBL_MIN_REPLACEMENT
+#undef DBL_MIN
+#define DBL_MIN DBL_MIN_REPLACEMENT
+#endif
 
 /* Define DOUBLE_DIGITS_BOUND, an upper bound on the number of decimal digits
    needed to express a float without losing information.