![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to support.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / engine|
Return to support.c CVS log | Up to [gforth] / gforth / engine |
| version 1.12, 2006/01/15 19:50:26 | version 1.13, 2006/01/16 08:27:59 |
|---|---|
| Line 354 Cell to_float(Char *c_addr, UCell u, Flo | Line 354 Cell to_float(Char *c_addr, UCell u, Flo |
| for (i=1; i<u; i++) | for (i=1; i<u; i++) |
| if (number[i] != ' ') | if (number[i] != ' ') |
| return 0; | return 0; |
| *rp = 0.0; | |
| return -1; | return -1; |
| } | } |
| if(number[0]=='-') { | if(number[0]=='-') { |