Return to myfrexp.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / lisp / franz / tahoe

Annotation of 43BSDTahoe/ucb/lisp/franz/tahoe/myfrexp.c, revision 1.1.1.1

1.1       root        1: /* file: myfrexp.c
                      2: ** functions: myfrexp()
                      3: ** origins: 68k.c
                      4: ** comments: this looks like a lame way out to me but *I* certainly don't
                      5: ** want to write a version of this routine for any processor.
                      6: */
                      7: 
                      8: #include "global.h"
                      9: 
                     10: myfrexp()
                     11: {error("myfrexp called", FALSE);
                     12: }
                     13: 
                     14: 
                     15: /*
                     16: ** Comment from bigmath.c:
                     17: **
                     18: **     myfrexp (value, exp, hi, lo)
                     19: **             double value;
                     20: **             int *exp, *hi, *lo;
                     21: **
                     22: **     myfrexp returns three values, exp, hi, lo,
                     23: **     Such that value = 2**exp*tmp, where tmp = (hi*2**-23+lo*2**-53)
                     24: **     is uniquely determined subect to .5< abs(tmp) <= 1.0
                     25: **
                     26: */

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.