Return to float.fs CVS log | Up to [gforth] / gforth |
version 1.40, 2002/12/15 17:38:51 | version 1.41, 2003/01/26 20:56:37 |
---|---|
Line 211 set-current | Line 211 set-current |
\G @code{f~abs}; r3=0: bitwise comparison; r3<0: @code{fnegate f~rel}. | \G @code{f~abs}; r3=0: bitwise comparison; r3<0: @code{fnegate f~rel}. |
fdup f0= | fdup f0= |
IF \ bitwise comparison | IF \ bitwise comparison |
fp@ float+ 1 floats over float+ -text 0= | fp@ float+ 1 floats over float+ over str= |
fdrop fdrop fdrop | fdrop fdrop fdrop |
EXIT | EXIT |
THEN | THEN |