From: bruce <none@none>
Date: Mon, 9 Feb 1987 17:55:46 +0000 (+0000)
Subject: Added local optimization of lin to lni.
X-Git-Tag: release-5-5~4694
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=25a7b2ae22c52747888533926ca0beffd36cce06;p=ack.git

Added local optimization of lin to lni.
---

diff --git a/modules/src/em_opt/mkcalls.c b/modules/src/em_opt/mkcalls.c
index 71bf9bf3c..69c70a608 100644
--- a/modules/src/em_opt/mkcalls.c
+++ b/modules/src/em_opt/mkcalls.c
@@ -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: