🚀 go-pugleaf

In article <9102190752.AA24995@yc1.yc.estec.nl>, neil@yc.estec.nl (Neil Dixon) writes:
> 
> When using Epoch 3.2 under HPUX 7.0 on an HP 835, I often get the following
> message on pressing a mouse button
> 
> Wrong type argument: buttonp, #<EMACS BUG: ILLEGAL DATATYPE(#o3777777777767> 
> save your buffers immediately and please report this bug.

This is a bug we inherited from GNU Emacs. The problem is in the
m-hp9000s800.h file. The definitions for XMARKBIT and XSETMARKBIT are
wrong. The definitions around line 137 should look like:

/* The standard definitions of these macros would work ok,
   but these are faster because the constants are short. */
   

#define XUINT(a) (((unsigned)(a) << INTBITS-VALBITS) >> INTBITS-VALBITS)

#define XSET(var, type, ptr) \
   ((var) = ((int)(type) << VALBITS) + (((unsigned) (ptr) << INTBITS-VALBITS) >> INTBITS-VALBITS))

#define XSETINT(a, b)  XSET(a, XTYPE(a), b)
#define XSETUINT(a, b) XSET(a, XTYPE(a), b)
#define XSETPNTR(a, b) XSET(a, XTYPE(a), b)
#define XMARKBIT(a) ((a) < 0)
#define XSETMARKBIT(a,b) ((a) = ((b) ? (a)|MARKBIT : (a) & ~MARKBIT))

-- 
Alan M. Carroll                "I hate shopping with the reality-impaired"
Epoch Development Team                 - Susan
CS Grad / U of Ill @ Urbana    ...{ucbvax,pur-ee,convex}!cs.uiuc.edu!carroll