Module Name: src
Committed By: christos
Date: Mon Mar 21 22:33:46 UTC 2011
Modified Files:
src/lib/libc/gdtoa: hdtoa.c
Log Message:
pacify lint.
To generate a diff of this commit:
cvs rdiff -u -r1.6 -r1.7 src/lib/libc/gdtoa/hdtoa.c
Please note that diffs are not public domain; they are subject to the
copyright notices on the relevant files.
Modified files:
Index: src/lib/libc/gdtoa/hdtoa.c
diff -u src/lib/libc/gdtoa/hdtoa.c:1.6 src/lib/libc/gdtoa/hdtoa.c:1.7
--- src/lib/libc/gdtoa/hdtoa.c:1.6 Fri Mar 21 19:13:48 2008
+++ src/lib/libc/gdtoa/hdtoa.c Mon Mar 21 18:33:46 2011
@@ -1,4 +1,4 @@
-/* $NetBSD: hdtoa.c,v 1.6 2008/03/21 23:13:48 christos Exp $ */
+/* $NetBSD: hdtoa.c,v 1.7 2011/03/21 22:33:46 christos Exp $ */
/*-
* Copyright (c) 2004, 2005 David Schultz <[email protected]>
@@ -30,7 +30,7 @@
#if 0
__FBSDID("$FreeBSD: src/lib/libc/gdtoa/_hdtoa.c,v 1.4 2007/01/03 04:57:58 das Exp $");
#else
-__RCSID("$NetBSD: hdtoa.c,v 1.6 2008/03/21 23:13:48 christos Exp $");
+__RCSID("$NetBSD: hdtoa.c,v 1.7 2011/03/21 22:33:46 christos Exp $");
#endif
#include <float.h>
@@ -161,8 +161,15 @@
*decpt = 1;
return (nrv_alloc("0", rve, 1));
case FP_SUBNORMAL:
+#ifdef __vax__
+ /* (DBL_MAX_EXP=127 / 2) + 2 = 65? */
+ u.dblu_d *= 0x1p65;
+ *decpt = u.dblu_dbl.dbl_exp - (65 + DBL_ADJ);
+#endif
+ /* (DBL_MAX_EXP=1024 / 2) + 2 = 514? */
u.dblu_d *= 0x1p514;
*decpt = u.dblu_dbl.dbl_exp - (514 + DBL_ADJ);
+#endif
break;
case FP_INFINITE:
*decpt = INT_MAX;
