![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to float.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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 |