/[emacs]/emacs/src/m/sr2k.h
ViewVC logotype

Diff of /emacs/src/m/sr2k.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by lektu, Tue Feb 4 14:03:18 2003 UTC revision 1.5 by monnier, Sun Jul 6 21:06:45 2003 UTC
# Line 1  Line 1 
1  /* machine description file for Hitachi SR2001/SR2201 machines.  /* machine description file for Hitachi SR2001/SR2201 machines.
2     Copyright (C) 1996, 2002 Free Software Foundation, Inc.     Copyright (C) 1996, 2002, 2003 Free Software Foundation, Inc.
3    
4  This file is part of GNU Emacs.  This file is part of GNU Emacs.
5    
# Line 69  Boston, MA 02111-1307, USA.  */ Line 69  Boston, MA 02111-1307, USA.  */
69     ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS))     ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << BITS_PER_INT-VALBITS) >> BITS_PER_INT-VALBITS))
70    
71  #define XMARKBIT(a) ((a) < 0)  #define XMARKBIT(a) ((a) < 0)
 #define XSETMARKBIT(a,b) ((a) = ((b) ? (a)|MARKBIT : (a) & ~MARKBIT))  
72    
73  #if 0  /* Loses when sign bit of type field is set.  */  #if 0  /* Loses when sign bit of type field is set.  */
74  #define XUNMARK(a) ((a) = (((a) << BITS_PER_INT-GCTYPEBITS-VALBITS) >> BITS_PER_INT-GCTYPEBITS-VALBITS))  #define XUNMARK(a) ((a) = (((a) << BITS_PER_INT-GCTYPEBITS-VALBITS) >> BITS_PER_INT-GCTYPEBITS-VALBITS))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26