Mercurial > hg > xemacs-beta

diff src/data.c @ 4759:aa5ed11f473b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove support for obsolete systems. See xemacs-patches message with ID <870180fe0911101613m6b8efa4bpf083fd9013950807@mail.gmail.com>.
author Jerry James <james@xemacs.org>
date Wed, 18 Nov 2009 08:49:14 -0700
parents 80cd90837ac5
children a98ca4640147 e0db3c197671
line wrap: on
line diff
--- a/src/data.c	Wed Nov 18 22:44:28 2009 +0900
+++ b/src/data.c	Wed Nov 18 08:49:14 2009 -0700
@@ -160,23 +160,6 @@
     args_out_of_range_3 (make_int (val), make_int (min), make_int (max));
 }
 
-/* On some machines, XINT needs a temporary location.
-   Here it is, in case it is needed.  */
-
-EMACS_INT sign_extend_temp;
-
-/* On a few machines, XINT can only be done by calling this.  */
-/* XEmacs:  only used by m/convex.h */
-EMACS_INT sign_extend_lisp_int (EMACS_INT num);
-EMACS_INT
-sign_extend_lisp_int (EMACS_INT num)
-{
-  if (num & (1L << (INT_VALBITS - 1)))
-    return num | ((-1L) << INT_VALBITS);
-  else
-    return num & (EMACS_INT) ((1UL << INT_VALBITS) - 1);
-}
-
 
 /* Data type predicates */