godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adapted to new ip_spec.t

Browse Source
This commit is contained in:
ceriel 1988-03-15 11:37:00 +00:00
parent 41355b0622
commit 9f1b82f337
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
doc/em/Makefile
View File

@ -10,7 +10,7 @@ FILES = macr.nr title.nr intro.nr mem.nr ispace.nr dspace.nr mapping.nr \
types.nr descr.nr env.nr traps.nr mach.nr assem.nr \ types.nr descr.nr env.nr traps.nr mach.nr assem.nr \
app.int.nr app.codes.nr app.exam.nr cont.nr app.int.nr app.codes.nr app.exam.nr cont.nr
IOP=$(HOME)/util/ass/ip_spec.t# # to construct itables from IOP=$(HOME)/etc/ip_spec.t# # to construct itables from
../em.$(SUF): $(FILES) itables dispatdummy em.i Makefile ../em.$(SUF): $(FILES) itables dispatdummy em.i Makefile
$(TBL) $(FILES) | $(NROFF) > ../em.$(SUF) $(TBL) $(FILES) | $(NROFF) > ../em.$(SUF)

4
doc/em/mkdispatch.c
View File

@ -179,6 +179,8 @@ int decflag(str) 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' :
@ -199,6 +201,7 @@ int decflag(str) 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 :
@ -452,6 +455,7 @@ prx(flg,low,opc)
putchar('z'); putchar('z');
break; break;
case OP16: case OP16:
case OP16U:
if (flg&OP_POS) putchar('p'); if (flg&OP_POS) putchar('p');
else if (flg&OP_NEG) putchar('n'); else if (flg&OP_NEG) putchar('n');
else putchar('l'); else putchar('l');