| /* 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); |
| } |
| |
| int |
| R_getexp(ptr) |
| R_float ptr; |
| { |
| return(ptr->exponent); |
| } |
| |