From: ceriel Date: Fri, 8 Jul 1988 09:14:04 +0000 (+0000) Subject: keap type names different from others; some compilers don't like it X-Git-Tag: release-5-5~3077 X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=b8b355a0a2d5541d0885def881dd3d2e4e4147ba;p=ack.git keap type names different from others; some compilers don't like it --- diff --git a/util/LLgen/src/types.h b/util/LLgen/src/types.h index 72da2d0ee..40b9007b9 100644 --- a/util/LLgen/src/types.h +++ b/util/LLgen/src/types.h @@ -172,16 +172,16 @@ typedef short t_reps,*p_reps; /* * Access macros for repitition in term */ -# define r_getkind(q) ((q)->t_reps&03) -# define r_getnum(q) (((q)->t_reps>>2)&037777) -# define r_setkind(q,s) { assert(((unsigned)(s))<=03);(q)->t_reps=((q)->t_reps&0177774)|(s);} -# define r_setnum(q,s) { assert(((unsigned)(s))<=037777);(q)->t_reps=((q)->t_reps&03)|((s)<<2);} +# define r_getkind(q) ((q)->t_repeats&03) +# define r_getnum(q) (((q)->t_repeats>>2)&037777) +# define r_setkind(q,s) { assert(((unsigned)(s))<=03);(q)->t_repeats=((q)->t_repi&0177774)|(s);} +# define r_setnum(q,s) { assert(((unsigned)(s))<=037777);(q)->t_repeats=((q)->t_repi&03)|((s)<<2);} /* * header structure for a term */ typedef struct term { - t_reps t_reps; /* repeats ? */ + t_reps t_repeats; short t_flags; /* Low order three bits for safety */ # define gettout(q) ((q)->t_flags&07) # define settout(q,i) {assert(((unsigned)(i))<=NOSAFETY);(q)->t_flags&=~07;(q)->t_flags|=i;}