blob: 4847f4772336a62de8186f77d618a9d11926fdf3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
/* Copyright (c) 1988 Bellcore
** All Rights Reserved
** Permission is granted to copy or use this program, EXCEPT that it
** may not be sold for profit, the copyright notice must be reproduced
** on copies, and credit should be given to Bellcore where it is due.
** BELLCORE MAKES NO WARRANTY AND ACCEPTS NO LIABILITY FOR THIS PROGRAM.
*/
#ifndef lint
static char rcsid[]= "$Header$";
#endif
#include "misc.h"
#include "floatrep.h"
R_float
R_makefloat()
{
R_float retval;
retval = Z_ALLOC(1,struct R_flstr);
retval->mantissa = Z_ALLOC(R_MANMAX,char);
return(retval);
}
R_getexp(ptr)
R_float ptr;
{
return(ptr->exponent);
}
|
