From 1a631e6fd4e79a8e73a740c690e3ba027705cffc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Tue, 22 Apr 1997 02:18:47 -0700
Subject: [PATCH] frexp test updated
Rev: src/configure.in:1.91
---
src/configure.in | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/src/configure.in b/src/configure.in
index 8bb56db28c..1afb087047 100644
--- a/src/configure.in
+++ b/src/configure.in
@@ -1,4 +1,4 @@
-AC_REVISION("$Id: configure.in,v 1.90 1997/04/22 03:36:28 hubbe Exp $")
+AC_REVISION("$Id: configure.in,v 1.91 1997/04/22 09:18:47 hubbe Exp $")
AC_INIT(interpret.c)
AC_CONFIG_HEADER(machine.h)
@@ -991,13 +991,16 @@ MY_CHECK_FUNCTION(frexp,
int main()
{
double x,y;
- int p=-7;
+ int p,e;
+ x=frexp(1.0, &e);
+ if(x * pow(2.0,(double)e) != 1.0) exit(3)
+
+ p=-7;
for(x=3.0/4.0*pow(2.0,(double)p);x<50000.0;x*=2.0,p++)
{
- int e;
if(frexp(x, &e)!=3.0/4.0) exit(1);
- if(e!=p) exit(1);
+ if(e!=p) exit(2);
}
exit(0);
}])
--
GitLab