# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 893811562 0
# Node ID c98ba82f4b528a87eb80defe324888ffd819d115
# Parent  af741167f81efcc7ebff21c27c479a5112bec8f8
(Flsh, Fash): Handle out-of-range shift counts reasonably.

diff -r af741167f81e -r c98ba82f4b52 src/data.c
--- a/src/data.c	Wed Apr 29 00:28:28 1998 +0000
+++ b/src/data.c	Wed Apr 29 00:59:22 1998 +0000
@@ -2481,8 +2481,12 @@
   CHECK_NUMBER (value, 0);
   CHECK_NUMBER (count, 1);
 
-  if (XINT (count) > 0)
+  if (XINT (count) >= BITS_PER_EMACS_INT)
+    XSETINT (val, 0);
+  else if (XINT (count) > 0)
     XSETINT (val, XINT (value) << XFASTINT (count));
+  else if (XINT (count) <= -BITS_PER_EMACS_INT)
+    XSETINT (val, XINT (value) < 0 ? -1 : 0);
   else
     XSETINT (val, XINT (value) >> -XINT (count));
   return val;
@@ -2500,8 +2504,12 @@
   CHECK_NUMBER (value, 0);
   CHECK_NUMBER (count, 1);
 
-  if (XINT (count) > 0)
+  if (XINT (count) >= BITS_PER_EMACS_INT)
+    XSETINT (val, 0);
+  else if (XINT (count) > 0)
     XSETINT (val, (EMACS_UINT) XUINT (value) << XFASTINT (count));
+  else if (XINT (count) <= -BITS_PER_EMACS_INT)
+    XSETINT (val, 0);
   else
     XSETINT (val, (EMACS_UINT) XUINT (value) >> -XINT (count));
   return val;