[Emacs-diffs] Changes to emacs/src/lisp.h

[Stefan Monnier]

Index: emacs/src/lisp.h
diff -c emacs/src/lisp.h:1.468 emacs/src/lisp.h:1.469
*** emacs/src/lisp.h:1.468      Thu Sep 11 19:52:17 2003
--- emacs/src/lisp.h    Wed Nov  5 10:24:08 2003
***************
*** 335,342 ****
  /* Extract the value of a Lisp_Object as a signed integer.  */
  
  #ifndef XINT   /* Some machines need to do this differently.  */
! #define XINT(a) ((EMACS_INT) (((a) << (BITS_PER_EMACS_INT - VALBITS)) \
!                             >> (BITS_PER_EMACS_INT - VALBITS)))
  #endif
  
  /* Extract the value as an unsigned integer.  This is a basis
--- 335,342 ----
  /* Extract the value of a Lisp_Object as a signed integer.  */
  
  #ifndef XINT   /* Some machines need to do this differently.  */
! #define XINT(a) ((((EMACS_INT) (a)) << (BITS_PER_EMACS_INT - VALBITS))        
\
!                >> (BITS_PER_EMACS_INT - VALBITS))
  #endif
  
  /* Extract the value as an unsigned integer.  This is a basis