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 cc152bc..afa49f7 100644 (file)
--- 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: