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

Added local optimization of lin to lni.

Browse source
This commit is contained in:
bruce 1987-02-09 17:55:46 +00:00
parent ced0ffabbd
commit 25a7b2ae22
1 changed files with 15 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
modules/src/em_opt/mkcalls.c
View file

@ -4,6 +4,8 @@ static char rcsid[] = "$Header$";
#include "nopt.h"
static Linenumber = 0; /* Local optimization of lin to lni if possible */
OO_mkcalls(p)
struct instr *p;
{
@ -108,6 +110,7 @@ OO_mkcalls(p)
case op_fif:
O_fif(p->acst); break;
case op_fil:
Linenumber = 0;
if(p->argtype==nof_ptyp) O_fil_dlb(p->adlb, p->anoff);
else O_fil_dnam(p->adnam, p->asoff); break;
case op_gto:
@ -125,6 +128,7 @@ OO_mkcalls(p)
case op_ior:
O_ior(p->acst); break;
case op_lab:
Linenumber = 0;
O_df_ilb(p->alab); break;
case op_lae:
if(p->argtype==nof_ptyp) O_lae_dlb(p->adlb, p->anoff);
@ -149,9 +153,18 @@ OO_mkcalls(p)
case op_lim:
O_lim(); break;
case op_lin:
O_lin(p->acst); break;
if(Linenumber && p->acst == ++Linenumber) {
O_lni();
}
else {
O_lin(p->acst);
Linenumber = p->acst;
}
break;
case op_lni:
O_lni(); break;
O_lni();
Linenumber++;
break;
case op_loc:
O_loc(p->acst); break;
case op_loe: