From ff56a48654279cca8a8482afba282eacb129be36 Mon Sep 17 00:00:00 2001 From: CSRG Date: Sun, 7 Sep 1986 17:12:05 -0800 Subject: [PATCH] BSD 4_3_Reno development Work on file usr/src/pgrm/lisp/franz/tahoe/myfrexp.c Synthesized-from: CSRG/cd2/4.3reno --- usr/src/pgrm/lisp/franz/tahoe/myfrexp.c | 26 +++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 usr/src/pgrm/lisp/franz/tahoe/myfrexp.c diff --git a/usr/src/pgrm/lisp/franz/tahoe/myfrexp.c b/usr/src/pgrm/lisp/franz/tahoe/myfrexp.c new file mode 100644 index 0000000000..a8488a9308 --- /dev/null +++ b/usr/src/pgrm/lisp/franz/tahoe/myfrexp.c @@ -0,0 +1,26 @@ +/* file: myfrexp.c +** functions: myfrexp() +** origins: 68k.c +** comments: this looks like a lame way out to me but *I* certainly don't +** want to write a version of this routine for any processor. +*/ + +#include "global.h" + +myfrexp() +{error("myfrexp called", FALSE); +} + + +/* +** Comment from bigmath.c: +** +** myfrexp (value, exp, hi, lo) +** double value; +** int *exp, *hi, *lo; +** +** myfrexp returns three values, exp, hi, lo, +** Such that value = 2**exp*tmp, where tmp = (hi*2**-23+lo*2**-53) +** is uniquely determined subect to .5< abs(tmp) <= 1.0 +** +*/ -- 2.20.1