Bell 32V release

[unix-history] / usr / src / cmd / f77 / proc.c

diff --git a/usr/src/cmd/f77/proc.c b/usr/src/cmd/f77/proc.c
index 48008a8..007aaa2 100644 (file)
--- a/usr/src/cmd/f77/proc.c
+++ b/usr/src/cmd/f77/proc.c
@@ -54,6 +54,11 @@ parstate = INEXEC;
 docommon();
 doequiv();
 docomleng();
 docommon();
 doequiv();
 docomleng();

+#if TARGET == PDP11
+/* fake jump to start the optimizer */
+if(procclass != CLBLOCK)
+       putgoto( fudgelabel = newlabel() );
+#endif

 for(p = entries ; p ; p = p->nextp)
        doentry(p);
 }
 for(p = entries ; p ; p = p->nextp)
        doentry(p);
 }


@@ -70,9 +75,9 @@ register struct entrypoint *p;
 
 p = ALLOC(entrypoint);
 if(class == CLMAIN)
 
 p = ALLOC(entrypoint);
 if(class == CLMAIN)

-       puthead("MAIN__", CLMAIN);
+       puthead("MAIN__");

 else
 else

-       puthead(NULL, CLBLOCK);
+       puthead(NULL);

 if(class == CLMAIN)
        newentry( mkname(5, "MAIN_") );
 p->entryname = progname;
 if(class == CLMAIN)
        newentry( mkname(5, "MAIN_") );
 p->entryname = progname;


@@ -123,7 +128,7 @@ register struct nameblock *q;
 register struct entrypoint *p;
 
 if(class != CLENTRY)
 register struct entrypoint *p;
 
 if(class != CLENTRY)

-       puthead( varstr(XL, procname = entry->extname), class);
+       puthead( varstr(XL, procname = entry->extname) );

 if(class == CLENTRY)
        fprintf(diagfile, "       entry ");
 fprintf(diagfile, "   %s:\n", nounder(XL, entry->extname));
 if(class == CLENTRY)
        fprintf(diagfile, "       entry ");
 fprintf(diagfile, "   %s:\n", nounder(XL, entry->extname));