Re: [Amforth] Recognizer - float - issue

[pito <pi...@vo...>]

Hmmm, however it does not work when compiled:

> : test7 9.33e-1 8.334e+12 f* fp. ;
ok
> test7
3.402823E38  ok
> 9.33e-1 8.334e+12 f* fp. 
7.775622E12  ok
> 

Any hint from experts?? P.




----- PŮVODNÍ ZPRÁVA -----
Od: "pito" <pi...@vo...>
Komu: amf...@li...
Předmět: [Amforth] Recognizer - float - issue
Datum: 26.5.2011 - 14:34:07

> Hi - this does work with my setup:
> > marker -mycode
> ok
> > : rec-float count >float state @ if postpone
> > fliteral then ;
> > ok
> > .s
> ok
> > get-recognizer
> ok
> > .s
> 0 2005 3 
> 1 2007 1562 
> 2 2009 1532 
> 3 2011 1593 
> ok
> > : place-rec ( xt -- )
> okget-recognizer
> okdup >r
> ok1-  n>r
> okswap
> oknr> drop r> 1+
> okset-recognizer
> ok;
> ok
> > get-recognizer
> ok
> > .s
> 0 1997 3 
> 1 1999 1562 
> 2 2001 1532 
> 3 2003 1593 
> 4 2005 3 
> 5 2007 1562 
> 6 2009 1532 
> 7 2011 1593 
> ok
> > ...
> ... ?? -13 4 
> > ' rec-float place-rec
> ok
> > .s
> ok
> > get-recognizer
> ok
> > .s
> 0 2003 4 
> 1 2005 1562 
> 2 2007 1532 
> 3 2009 8483 
> 4 2011 1593 
> ok
> > 1.222e6 fs.
> 1.2219999E6  ok
> > -3.556e12 0.564343E-12 f* fp.
> -2.006803  ok
> > 1.00 fsin fs.
> 8.414711E-1  ok
> > 1.000e15 flog10 fs.
> 1.50000024E1  ok
> >
> 
> 
> ------------------------------------------------------------------------------
> > vRanger cuts backup time in half-while increasing
> security.
> With the market-leading solution for virtual
> backup and recovery, 
> you get blazing-fast, flexible, and affordable
> data protection.
> Download your free trial now. 
> http://p.sf.net/sfu/quest-d2dcopy1
> _______________________________________________
> Amforth-devel mailing list
> Amf...@li...
> https://lists.sourceforge.net/lists/listinfo/amforth-devel
>