From: eck <none@none>
Date: Mon, 3 Dec 1990 13:09:27 +0000 (+0000)
Subject: oops, do set errno in ldexp() (blanket rules)
X-Git-Tag: release-5-5~1371
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=2661a6085afca2fd9751599a0f302ca43c4d98ed;p=ack.git

oops, do set errno in ldexp() (blanket rules)
---

diff --git a/lang/cem/libcc.ansi/math/ldexp.c b/lang/cem/libcc.ansi/math/ldexp.c
index dd704df99..5ec83a8fd 100644
--- a/lang/cem/libcc.ansi/math/ldexp.c
+++ b/lang/cem/libcc.ansi/math/ldexp.c
@@ -6,6 +6,7 @@
 
 #include	<math.h>
 #include	<float.h>
+#include	<errno.h>
 
 double
 ldexp(double fl, int exp)
@@ -22,6 +23,7 @@ ldexp(double fl, int exp)
 	exp += currexp;
 	if (exp > 0) {
 		if (exp > DBL_MAX_EXP) {
+			errno = ERANGE;
 			return sign * HUGE_VAL;
 		}
 		while (exp>30) {