d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

adapted to new ip_spec.t

Browse source
This commit is contained in:
ceriel 1988-03-15 11:29:39 +00:00
parent 539e01b5bc
commit 0b8a55c0cf
3 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
doc/em/int/Makefile
View file

@ -4,12 +4,12 @@ HOME=../../..
install \ install \
all: em emdmp tables all: em emdmp tables
tables: mktables $(HOME)/util/ass/ip_spec.t tables: mktables $(HOME)/etc/ip_spec.t
mktables $(HOME)/util/ass/ip_spec.t tables mktables $(HOME)/etc/ip_spec.t tables
mktables: mktables.c $(HOME)/h/em_spec.h $(HOME)/h/em_flag.h \ mktables: mktables.c $(HOME)/h/em_spec.h $(HOME)/h/em_flag.h \
$(HOME)/util/data/em_data.a $(HOME)/util/ass/ip_spec.h $(HOME)/lib/em_data.a $(HOME)/util/ass/ip_spec.h
cc -I$(HOME) -O -o mktables mktables.c $(HOME)/util/data/em_data.a cc -I$(HOME) -O -o mktables mktables.c $(HOME)/lib/em_data.a
em.out: em.p em.out: em.p
apc -mint -O em.p >emerrs ; mv e.out em.out apc -mint -O em.p >emerrs ; mv e.out em.out

1
doc/em/int/em.p
View file

@ -962,6 +962,7 @@ begin
begin begin
iflag:=f; instr:=insr; iflag:=f; instr:=insr;
if '2' in cset then ilength:=2 if '2' in cset then ilength:=2
else if 'u' in cset then ilength:=2
else if '4' in cset then ilength:=4 else if '4' in cset then ilength:=4
else if '8' in cset then ilength:=8 else if '8' in cset then ilength:=8
else if (mini in f) or (short in f) then else if (mini in f) or (short in f) then

3
doc/em/int/mktables.c
View file

@ -166,6 +166,8 @@ int decflag(str,opc) char *str ; {
check(type) ; type=OP32 ; break ; check(type) ; type=OP32 ; break ;
case '8' : case '8' :
check(type) ; type=OP64 ; break ; check(type) ; type=OP64 ; break ;
case 'u' :
check(type) ; type=OP16U ; break ;
case 'e' : case 'e' :
check(escape) ; escape=0 ; break ; check(escape) ; escape=0 ; break ;
case 'N' : case 'N' :
@ -188,6 +190,7 @@ int decflag(str,opc) char *str ; {
if ( escape!=ILLGL ) error("Conflicting escapes") ; if ( escape!=ILLGL ) error("Conflicting escapes") ;
escape=ILLGL ; escape=ILLGL ;
case OP16 : case OP16 :
case OP16U :
case OP8 : case OP8 :
case OPSHORT : case OPSHORT :
case OPNO : case OPNO :