| |
|
| f>d r -- d float f_to_d |
f>d r -- d float f_to_d |
| #ifdef BUGGY_LONG_LONG |
#ifdef BUGGY_LONG_LONG |
| d.hi = ldexp(r,-CELL_BITS) - (r<0); |
d.hi = ldexp(r,-(int)(CELL_BITS)) - (r<0); |
| d.lo = r-ldexp((Float)d.hi,CELL_BITS); |
d.lo = r-ldexp((Float)d.hi,CELL_BITS); |
| #else |
#else |
| d = r; |
d = r; |
| sig=ecvt(r, u, &decpt, &flag); |
sig=ecvt(r, u, &decpt, &flag); |
| n=(r==0 ? 1 : decpt); |
n=(r==0 ? 1 : decpt); |
| f1=FLAG(flag!=0); |
f1=FLAG(flag!=0); |
| f2=FLAG(isdigit(sig[0])!=0); |
f2=FLAG(isdigit((unsigned)(sig[0]))!=0); |
| memmove(c_addr,sig,u); |
memmove(c_addr,sig,u); |
| |
|
| >float c_addr u -- flag float to_float |
>float c_addr u -- flag float to_float |
| Float r; |
Float r; |
| char *number=cstr(c_addr, u, 1); |
char *number=cstr(c_addr, u, 1); |
| char *endconv; |
char *endconv; |
| while(isspace(number[--u]) && u>0); |
while(isspace((unsigned)(number[--u])) && u>0); |
| switch(number[u]) |
switch(number[u]) |
| { |
{ |
| case 'd': |
case 'd': |
