I believe the following patch is applicable to the June 98 release of
Hugs.
mike
isdn-ericthered[2230]$ diff -C7 builtin.c.orig builtin.c
*** builtin.c.orig Wed Jul 1 23:43:11 1998
--- builtin.c Wed Jul 1 23:43:21 1998
***************
*** 1105,1119 ****
primFun(primShiftInt) {
Int x,y;
IntArg(x,2);
IntArg(y,1);
if (y >= 0) {
IntResult(x << y);
} else {
! IntResult(x >> y);
}
}
/* --------------------------------------------------------------------------
* Unsigned arithmetic primitives:
* ------------------------------------------------------------------------*/
--- 1105,1119 ----
primFun(primShiftInt) {
Int x,y;
IntArg(x,2);
IntArg(y,1);
if (y >= 0) {
IntResult(x << y);
} else {
! IntResult(x >> (- y));
}
}
/* --------------------------------------------------------------------------
* Unsigned arithmetic primitives:
* ------------------------------------------------------------------------*/
