From: sater <none@none>
Date: Thu, 12 Jul 1984 09:29:49 +0000 (+0000)
Subject: The sequence:
X-Git-Tag: release-5-5~6223
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=aa9d50ff5afc3b19ef0bdd349bd8e14a8f3bb558;p=ack.git

The sequence:
  lin 100
  cal $foo
  lin 101
used to have it's second lin lni'ed. This is obviously wrong.
A check is now made for procedure calls.
---

diff --git a/util/opt/putline.c b/util/opt/putline.c
index cc152bca1..afa49f763 100644
--- a/util/opt/putline.c
+++ b/util/opt/putline.c
@@ -131,6 +131,8 @@ putlines(lnp) register line_p lnp; {
 			curlin = -2;
 			break;
 		default:
+			if ((em_flag[instr-sp_fmnem]&EM_FLO)==FLO_P)
+				curlin = -2;
 			outinst(instr);
 		}
 processoperand: