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; | |
} |