optimize AS to AS2, AS4, and AS8

SCCS-vsn: usr.bin/pascal/src/put.c 1.9

diff --git a/usr/src/usr.bin/pascal/src/put.c b/usr/src/usr.bin/pascal/src/put.c
index 6610f63..4334bcb 100644 (file)
--- a/usr/src/usr.bin/pascal/src/put.c
+++ b/usr/src/usr.bin/pascal/src/put.c
@@ -1,6 +1,6 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)put.c 1.8 %G%";
+static char sccsid[] = "@(#)put.c 1.9 %G%";

 
 #include "whoami.h"
 #include "opcode.h"
 
 #include "whoami.h"
 #include "opcode.h"


@@ -63,15 +63,26 @@ put(a)
                case O_ABORT:
                        cp = "*";
                        break;
                case O_ABORT:
                        cp = "*";
                        break;

+               case O_AS:
+                       switch(p[1]) {
+                       case 2:
+                               op = O_AS2;
+                               break;
+                       case 4:
+                               op = O_AS4;
+                               break;
+                       case 8:
+                               op = O_AS8;
+                               break;
+                       default:
+                               goto pack;
+                       }
+                       n = 1;
+                       cp = otext[op];
+                       break;

                case O_LINO:
                case O_LINO:

-/*****
-                       if (line == codeline)
-                               return (oldlc);
-                       codeline = line;
-*****/

                case O_NEW:
                case O_DISPOSE:
                case O_NEW:
                case O_DISPOSE:

-               case O_AS:

                case O_IND:
                case O_LVCON:
                case O_CON:
                case O_IND:
                case O_LVCON:
                case O_CON:


@@ -106,6 +117,7 @@ put(a)
                                break;
                case O_CON2:
                case O_CON24:
                                break;
                case O_CON2:
                case O_CON24:

+               pack:

                        if (p[1] < 128 && p[1] >= -128) {
                                suboppr = subop = p[1];
                                p++;
                        if (p[1] < 128 && p[1] >= -128) {
                                suboppr = subop = p[1];
                                p++;