date and time created 83/08/05 13:35:20 by sam

[unix-history] / usr / src / old / as.vax / ascode.c

diff --git a/usr/src/old/as.vax/ascode.c b/usr/src/old/as.vax/ascode.c
index 3eaf483..e67a400 100644 (file)
--- a/usr/src/old/as.vax/ascode.c
+++ b/usr/src/old/as.vax/ascode.c
@@ -2,7 +2,7 @@
  *     Copyright (c) 1982 Regents of the University of California
  */
 #ifndef lint
  *     Copyright (c) 1982 Regents of the University of California
  */
 #ifndef lint

-static char sccsid[] = "@(#)ascode.c 4.9 %G%";
+static char sccsid[] = "@(#)ascode.c 4.11 %G%";

 #endif not lint
 
 #include <stdio.h>
 #endif not lint
 
 #include <stdio.h>


@@ -253,10 +253,10 @@ PASS2:
                                        xp->e_xvalue - (dotp->e_xvalue + 1);
                                if (xp->e_xtype & XXTRN)
                                        yywarning("%s: destination label is external",
                                        xp->e_xvalue - (dotp->e_xvalue + 1);
                                if (xp->e_xtype & XXTRN)
                                        yywarning("%s: destination label is external",

-                                               ITABFETCH(opcode)->s_name);
+                                               FETCHNAME(ITABFETCH(opcode)));

                                if (!ISBYTE(argtype))
                                        yyerror("%s: Branch too far(%db): try -J flag",
                                if (!ISBYTE(argtype))
                                        yyerror("%s: Branch too far(%db): try -J flag",

-                                               ITABFETCH(opcode)->s_name,
+                                               FETCHNAME(ITABFETCH(opcode)),

                                                argtype);
                                break;
                        }
                                                argtype);
                                break;
                        }


@@ -265,11 +265,11 @@ PASS2:
                                        -= dotp->e_xvalue + 2;
                                if (xp->e_xtype & XXTRN)
                                        yywarning("%s: destination label is external",
                                        -= dotp->e_xvalue + 2;
                                if (xp->e_xtype & XXTRN)
                                        yywarning("%s: destination label is external",

-                                               ITABFETCH(opcode)->s_name);
+                                               FETCHNAME(ITABFETCH(opcode)));

                                xp->e_xtype = XABS;
                                if (!ISWORD(argtype))
                                        yyerror("%s: Branch too far(%db): try -J flag",
                                xp->e_xtype = XABS;
                                if (!ISWORD(argtype))
                                        yyerror("%s: Branch too far(%db): try -J flag",

-                                               ITABFETCH(opcode)->s_name,
+                                               FETCHNAME(ITABFETCH(opcode)),

                                                argtype);
                                xp->e_xvalue = argtype>>8;
                                reloc_how = TYPB;
                                                argtype);
                                xp->e_xvalue = argtype>>8;
                                reloc_how = TYPB;


@@ -326,12 +326,6 @@ PASS2:
                 *      use the first byte to describe the argument
                 */
                Outb(ap->a_areg1);
                 *      use the first byte to describe the argument
                 */
                Outb(ap->a_areg1);

-#ifdef VMS
-               if ((vms_obj_ptr-sobuf) > 400) {
-                       write(objfil,sobuf,vms_obj_ptr-sobuf);
-                       vms_obj_ptr=sobuf+1;
-               }
-#endif VMS

                if (reloc_how != TYPNONE) 
                        outrel(xp, reloc_how);
        }       /*end of the for to pick up all arguments*/
                if (reloc_how != TYPNONE) 
                        outrel(xp, reloc_how);
        }       /*end of the for to pick up all arguments*/