From: ceriel Date: Tue, 26 Jul 1988 09:53:47 +0000 (+0000) Subject: fixed X-Git-Tag: release-5-5~2996 X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=b1dc8c8f521b7dd8c482f21d8f037dceb945d8fd;p=ack.git fixed --- diff --git a/modules/src/em_code/make.sh b/modules/src/em_code/make.sh index 41c1f3ca1..0c4dee2cb 100755 --- a/modules/src/em_code/make.sh +++ b/modules/src/em_code/make.sh @@ -45,7 +45,6 @@ if $cc $cflags pspnam.c ; then : ; else exit 1 ; fi if $cc $cflags scon.c ; then : ; else exit 1 ; fi if $cc $cflags ucon.c ; then : ; else exit 1 ; fi if $cc $cflags -I../read_em C_out.c ; then : ; else exit 1 ; fi -if ; then : ; else exit 1 ; fi if $cc $cflags $1/em.c ; then : ; else exit 1 ; fi if mv em.o em$1.o ; then : ; else exit 1 ; fi if $ar rc libem$1.a bhcst.o bhdlb.o bhdnam.o bhfcon.o bhicon.o bhilb.o bhpnam.o bhucon.o crcst.o crdlb.o crdnam.o crfcon.o cricon.o crilb.o crpnam.o crscon.o crucon.o cst.o dfdlb.o dfdnam.o dfilb.o dlb.o dnam.o end.o endarg.o exc.o fcon.o getid.o icon.o ilb.o insert.o internerr.o msend.o op.o opcst.o opdlb.o opdnam.o opilb.o opnarg.o oppnam.o pnam.o pro.o pronarg.o msstart.o psdlb.o psdnam.o pspnam.o scon.o ucon.o C_out.o em$1.o failed.o ; then : ; else exit 1 ; fi diff --git a/util/LLgen/src/types.h b/util/LLgen/src/types.h index 40b9007b9..2b0973aff 100644 --- a/util/LLgen/src/types.h +++ b/util/LLgen/src/types.h @@ -174,8 +174,8 @@ typedef short t_reps,*p_reps; */ # 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);} +# define r_setkind(q,s) { assert(((unsigned)(s))<=03);(q)->t_repeats=((q)->t_repeats&0177774)|(s);} +# define r_setnum(q,s) { assert(((unsigned)(s))<=037777);(q)->t_repeats=((q)->t_repeats&03)|((s)<<2);} /* * header structure for a term