### Diff for /gforth/prim between versions 1.271 and 1.272

version 1.271, 2012/04/12 16:11:40 version 1.272, 2012/05/26 10:20:01
Line 2262  representation. If the string represents Line 2262  representation. If the string represents
true. Otherwise, @i{flag} is false. A string of blanks is a special  true. Otherwise, @i{flag} is false. A string of blanks is a special
case and represents the floating-point number 0.""  case and represents the floating-point number 0.""
Float r;  Float r;
flag = to_float(c_addr, u, &r);  flag = to_float(c_addr, u, &r, '.');
if (flag) {  if (flag) {
fp--;    fp--;
fp[0]=r;    fp[0]=r;
Line 2457  faxpy(ra, f_x, nstridex, f_y, nstridey, Line 2457  faxpy(ra, f_x, nstridex, f_y, nstridey,
fdup dup f@ f* over + 2swap dup f@ f+ dup f! over + 2swap       fdup dup f@ f* over + 2swap dup f@ f+ dup f! over + 2swap
LOOP 2drop 2drop fdrop ;   LOOP 2drop 2drop fdrop ;

>float1 ( c_addr u c -- f:... flag )    gforth  to_float1
""Actual stack effect: ( c_addr u c -- r t | f ).  Attempt to convert the
character string @i{c-addr u} to internal floating-point
representation. If the string represents a valid floating-point number
@i{r} is placed on the floating-point stack and @i{flag} is
true. Otherwise, @i{flag} is false. A string of blanks is a special
case and represents the floating-point number 0.""
Float r;
flag = to_float(c_addr, u, &r, c);
if (flag) {
fp--;
fp[0]=r;
}

\+  \+

\ The following words access machine/OS/installation-dependent  \ The following words access machine/OS/installation-dependent

 Removed from v.1.271 changed lines Added in v.1.272

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>