Float variables in locals.This is a discussion on Float variables in locals. within the Forth forums in Programming Languages category; here 100 floats allot value fsp : flocs ( S: n -- n*x )( F: n*f -- ) fsp over floats over + rot 0 ?do ( fsp0 fspn ) 1 floats - dup f! ( fsp0 fspn-1 ) over 1 floats + swap ( fsp0 fsp1 fspn-1 ) loop over ! 1 floats + to fsp ; : release-flocs ( -- ) \ possible to automate on exit. fsp 1 floats - @ to fsp ; \ test : foo ( S: a b --)( F: x y -- ) 2 flocs locals| 'y 'x b a | a ... | ||||||||
| | ||||||||
| ||||||||
| Register | FAQ | Calendar | Search | Today's Posts | Mark Forums Read |
|
#1
08-21-2008, 01:06 PM
| |||
| |||
 Float variables in locals. here 100 floats allot value fsp : flocs ( S: n -- n*x )( F: n*f -- ) fsp over floats over + rot 0 ?do ( fsp0 fspn ) 1 floats - dup f! ( fsp0 fspn-1 ) over 1 floats + swap ( fsp0 fsp1 fspn-1 ) loop over ! 1 floats + to fsp ; : release-flocs ( -- ) \ possible to automate on exit. fsp 1 floats - @ to fsp ; \ test : foo ( S: a b --)( F: x y -- ) 2 flocs locals| 'y 'x b a | a b + s>f 'x f@ f+ 'y f@ f+ f. 'x f@ f. release-flocs ; 1 2 3e 4e foo \ display 10e 3e ( Celime )  |
 |
« Previous Thread
|
Next Thread »
| Thread Tools | |
| Display Modes | |
Linear Mode
All times are GMT -5. The time now is 03:31 AM.
