BSD 4_4 release

[unix-history] / usr / src / usr.bin / f77 / pass1.vax / vax.c

diff --git a/usr/src/usr.bin/f77/pass1.vax/vax.c b/usr/src/usr.bin/f77/pass1.vax/vax.c
index df0b070..b7cec26 100644 (file)
--- a/usr/src/usr.bin/f77/pass1.vax/vax.c
+++ b/usr/src/usr.bin/f77/pass1.vax/vax.c
@@ -1,12 +1,15 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This module is believed to contain source code proprietary to AT&T.
+ * Use and redistribution is subject to the Berkeley Software License
+ * Agreement and your Software Agreement with AT&T (Western Electric).

  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)vax.c      5.2 (Berkeley) %G%";
-#endif not lint
+static char sccsid[] = "@(#)vax.c      5.4 (Berkeley) 4/12/91";
+#endif /* not lint */

 
 /*
  * vax.c
 
 /*
  * vax.c


@@ -403,32 +406,32 @@ register Constp cp;
   switch (cp->vtype)
     {
     case TYSHORT:
   switch (cp->vtype)
     {
     case TYSHORT:

-      *((short *) shrt) = (short) cp->const.ci;
+      *((short *) shrt) = (short) cp->constant.ci;

       return (shrt);
 
     case TYLONG:
     case TYLOGICAL:
     case TYREAL:
       return (shrt);
 
     case TYLONG:
     case TYLOGICAL:
     case TYREAL:

-      *((int *) lng) = cp->const.ci;
+      *((int *) lng) = cp->constant.ci;

       return (lng);
 
     case TYDREAL:
       ip = (int *) quad;
       return (lng);
 
     case TYDREAL:
       ip = (int *) quad;

-      jp = (int *) &(cp->const.cd[0]);
+      jp = (int *) &(cp->constant.cd[0]);

       ip[0] = jp[0];
       ip[1] = jp[1];
       return (quad);
 
     case TYCOMPLEX:
       ip = (int *) quad;
       ip[0] = jp[0];
       ip[1] = jp[1];
       return (quad);
 
     case TYCOMPLEX:
       ip = (int *) quad;

-      jp = (int *) &(cp->const.cd[0]);
+      jp = (int *) &(cp->constant.cd[0]);

       ip[0] = jp[0];
       ip[1] = jp[2];
       return (quad);
 
     case TYDCOMPLEX:
       ip = (int *) oct;
       ip[0] = jp[0];
       ip[1] = jp[2];
       return (quad);
 
     case TYDCOMPLEX:
       ip = (int *) oct;

-      jp = (int *) &(cp->const.cd[0]);
+      jp = (int *) &(cp->constant.cd[0]);

       *ip++ = *jp++;
       *ip++ = *jp++;
       *ip++ = *jp++;
       *ip++ = *jp++;
       *ip++ = *jp++;
       *ip++ = *jp++;


@@ -917,7 +920,7 @@ if (anylocals == YES)
 if(argvec)
        {
        if (argvec->tag != TADDR) badtag ("prolog",argvec->tag);
 if(argvec)
        {
        if (argvec->tag != TADDR) badtag ("prolog",argvec->tag);

-       argloc = argvec->memoffset->constblock.const.ci + SZINT;
+       argloc = argvec->memoffset->constblock.constant.ci + SZINT;

                        /* first slot holds count */
        if(proctype == TYCHAR)
                {
                        /* first slot holds count */
        if(proctype == TYCHAR)
                {


@@ -979,7 +982,7 @@ for(p = ep->arglist ; p ; p = p->nextp)
                size = typesize[ q->vtype ];
                if(q->vtype == TYCHAR)
                        if( ISICON(q->vleng) )
                size = typesize[ q->vtype ];
                if(q->vtype == TYCHAR)
                        if( ISICON(q->vleng) )

-                               size *= q->vleng->constblock.const.ci;
+                               size *= q->vleng->constblock.constant.ci;

                        else
                                size = -1;
 
                        else
                                size = -1;
 


@@ -1009,13 +1012,13 @@ for(p = ep->arglist ; p ; p = p->nextp)
                                        p->datap->nameblock.vardesc.varno +
                                                ARGOFFSET);
                                }
                                        p->datap->nameblock.vardesc.varno +
                                                ARGOFFSET);
                                }

-                       else if(dp->baseoffset->constblock.const.ci != 0)
+                       else if(dp->baseoffset->constblock.constant.ci != 0)

                                {
                                char buff[25];
                                if(size > 0)
                                        {
                                        sprintf(buff, "\tsubl2\t$%ld,%d(ap)",
                                {
                                char buff[25];
                                if(size > 0)
                                        {
                                        sprintf(buff, "\tsubl2\t$%ld,%d(ap)",

-                                               dp->baseoffset->constblock.const.ci * size,
+                                               dp->baseoffset->constblock.constant.ci * size,

                                                p->datap->nameblock.vardesc.varno +
                                                        ARGOFFSET);
                                        }
                                                p->datap->nameblock.vardesc.varno +
                                                        ARGOFFSET);
                                        }