Mercurial > emacs

changeset 10951:6a8b6db450dc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fash, Flsh): Change arg names.
author Richard M. Stallman <rms@gnu.org>
date Sat, 11 Mar 1995 00:50:20 +0000
parents d1990c517cc9
children 6069707b1151
files src/data.c
diffstat 1 files changed, 14 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.c	Fri Mar 10 04:30:57 1995 +0000
+++ b/src/data.c	Sat Mar 11 00:50:20 1995 +0000
@@ -2018,18 +2018,18 @@
   "Return VALUE with its bits shifted left by COUNT.\n\
 If COUNT is negative, shifting is actually to the right.\n\
 In this case, the sign bit is duplicated.")
-  (num1, num2)
-     register Lisp_Object num1, num2;
+  (value, num2)
+     register Lisp_Object value, num2;
 {
   register Lisp_Object val;
 
-  CHECK_NUMBER (num1, 0);
-  CHECK_NUMBER (num2, 1);
+  CHECK_NUMBER (value, 0);
+  CHECK_NUMBER (count, 1);
 
-  if (XINT (num2) > 0)
-    XSETINT (val, XINT (num1) << XFASTINT (num2));
+  if (XINT (count) > 0)
+    XSETINT (val, XINT (value) << XFASTINT (count));
   else
-    XSETINT (val, XINT (num1) >> -XINT (num2));
+    XSETINT (val, XINT (value) >> -XINT (count));
   return val;
 }
 
@@ -2037,18 +2037,18 @@
   "Return VALUE with its bits shifted left by COUNT.\n\
 If COUNT is negative, shifting is actually to the right.\n\
 In this case,  zeros are shifted in on the left.")
-  (num1, num2)
-     register Lisp_Object num1, num2;
+  (value, count)
+     register Lisp_Object value, count;
 {
   register Lisp_Object val;
 
-  CHECK_NUMBER (num1, 0);
-  CHECK_NUMBER (num2, 1);
+  CHECK_NUMBER (value, 0);
+  CHECK_NUMBER (count, 1);
 
-  if (XINT (num2) > 0)
-    XSETINT (val, (EMACS_UINT) XUINT (num1) << XFASTINT (num2));
+  if (XINT (count) > 0)
+    XSETINT (val, (EMACS_UINT) XUINT (value) << XFASTINT (count));
   else
-    XSETINT (val, (EMACS_UINT) XUINT (num1) >> -XINT (num2));
+    XSETINT (val, (EMACS_UINT) XUINT (value) >> -XINT (count));
   return val;
 }