This commit is contained in:
ceriel 1988-07-26 09:53:47 +00:00
parent dbbff76f4c
commit b1dc8c8f52
2 changed files with 2 additions and 3 deletions

View file

@ -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

View file

@ -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