![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to support.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / engine|
Return to support.c CVS log | Up to [gforth] / gforth / engine |
| version 1.8, 2003/08/30 19:55:13 | version 1.9, 2004/06/19 18:47:26 |
|---|---|
| Line 399 void faxpy(Float ra, Float *f_x, Cell ns | Line 399 void faxpy(Float ra, Float *f_x, Cell ns |
| f_y = (Float *)(((Address)f_y)+nstridey); | f_y = (Float *)(((Address)f_y)+nstridey); |
| } | } |
| } | } |
| UCell lshift(UCell u1, UCell n) | |
| { | |
| return u1 << n; | |
| } | |
| UCell rshift(UCell u1, UCell n) | |
| { | |
| return u1 >> n; | |
| } |