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

For DIAGOPT, change outshort(patno) to outshort(lino - 1).

Browse source 
This is more useful when looking for patterns; lino - 1 is probably
the line number in the patterns file.  DIAGOPT is off by default but
one can edit optim.h to enable it.

The other changes just clean up whitespace.
This commit is contained in:
George Koehler 2017-10-29 14:18:47 -04:00
parent c567532eee
commit cb8b28c088
1 changed files with 14 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
util/opt/mktab.y
View file

@ -87,7 +87,7 @@ pattern :
if (patCBO) {
register int i;
if (! rplCBO) {
if (! rplCBO) {
yyerror("No CBO in replacement");
}
for (i=0; i<sizeof(CBO_instrs)/sizeof(int); i++) {
@ -153,8 +153,7 @@ optexpr : /* empty */
{ $$ = 0; }
| expr
;
expr
: '$' argno
expr : '$' argno
{ $$ = lookup(0,EX_ARG,$2,0); }
| NUMBER
{ $$ = lookup(0,EX_CON,(int)(short)$1,0); }
@ -382,25 +381,26 @@ outpat(exprno, instrno)
{
register int i;
outbyte(0); outshort(prevind); prevind=curind-3;
out(patlen);
for (i=0;i<patlen;i++) {
outbyte(0); outshort(prevind); prevind=curind-3;
out(patlen);
for (i=0;i<patlen;i++) {
if (patmnem[i] == op_CBO) outbyte(instrno);
else outbyte(patmnem[i]);
}
out(exprno);
out(rpllen);
for (i=0;i<rpllen;i++) {
out(exprno);
out(rpllen);
for (i=0;i<rpllen;i++) {
if (rplmnem[i] == op_CBO) outbyte(instrno);
else outbyte(rplmnem[i]);
out(rplexpr[i]);
}
}
#ifdef DIAGOPT
outshort(patno);
/* outshort(patno); */
outshort(lino - 1);
#endif
patno++;
printf("\n");
if (patlen>maxpatlen) maxpatlen=patlen;
patno++;
printf("\n");
if (patlen>maxpatlen) maxpatlen=patlen;
}
outbyte(b) {
@ -424,4 +424,3 @@ out(w) {
outshort(w);
}
}