--- gforth/engine/support.c	2003/08/30 19:55:13	1.8
+++ gforth/engine/support.c	2004/06/19 18:47:26	1.9
@@ -399,3 +399,13 @@ void faxpy(Float ra, Float *f_x, Cell ns
     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;
+}