projects / unix-history / blobdiff
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
BSD 4_4 release
[unix-history] / usr / src / usr.bin / f77 / pass1.tahoe / conv.c
diff --git a/usr/src/usr.bin/f77/pass1.tahoe/conv.c b/usr/src/usr.bin/f77/pass1.tahoe/conv.c
index 4a17631..4e1155d 100644 (file)
--- a/usr/src/usr.bin/f77/pass1.tahoe/conv.c
+++ b/usr/src/usr.bin/f77/pass1.tahoe/conv.c
@@ -1,3 +1,16 @@
+/*-
+ * 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
+static char sccsid[] = "@(#)conv.c     5.3 (Berkeley) 4/12/91";
+#endif /* not lint */
+
 #include "defs.h"
 #include "conv.h"
 
 #include "defs.h"
 #include "conv.h"
 
@@ -42,8 +55,8 @@ Constp cp;
   register int k;
   register int lenb;
 
   register int k;
   register int lenb;
 
-  bits = cp->const.ccp;
-  lenb = cp->vleng->constblock.const.ci;
+  bits = cp->constant.ccp;
+  lenb = cp->vleng->constblock.constant.ci;
 
   p = (char *) ckalloc(len);
 
 
   p = (char *) ckalloc(len);
 
@@ -101,8 +114,8 @@ Constp cp;
   register int k;
   register int lenb;
 
   register int k;
   register int lenb;
 
-  bytes = cp->const.ccp;
-  lenb = cp->vleng->constblock.const.ci;
+  bytes = cp->constant.ccp;
+  lenb = cp->vleng->constblock.constant.ci;
 
   p = (char *) ckalloc(len);
 
 
   p = (char *) ckalloc(len);
 
@@ -148,7 +161,7 @@ Constp cp;
     case TYBITSTR:
       shortp = (short *) grabbits(2, cp);
       p = (expptr) mkconst(TYSHORT);
     case TYBITSTR:
       shortp = (short *) grabbits(2, cp);
       p = (expptr) mkconst(TYSHORT);
-      p->constblock.const.ci = *shortp;
+      p->constblock.constant.ci = *shortp;
       free((char *) shortp);
       break;
 
       free((char *) shortp);
       break;
 
@@ -157,11 +170,11 @@ Constp cp;
       break;
 
     case TYLONG:
       break;
 
     case TYLONG:
-      value = cp->const.ci;
+      value = cp->constant.ci;
       if (value >= MINWORD && value <= MAXWORD)
        {
          p = (expptr) mkconst(TYSHORT);
       if (value >= MINWORD && value <= MAXWORD)
        {
          p = (expptr) mkconst(TYSHORT);
-         p->constblock.const.ci = value;
+         p->constblock.constant.ci = value;
        }
       else
        {
        }
       else
        {
@@ -180,7 +193,7 @@ Constp cp;
     case TYDCOMPLEX:
       minp = (double *) dminword;
       maxp = (double *) dmaxword;
     case TYDCOMPLEX:
       minp = (double *) dminword;
       maxp = (double *) dmaxword;
-      rp = (long *) &(cp->const.cd[0]);
+      rp = (long *) &(cp->constant.cd[0]);
       x.q.word1 = rp[0];
       x.q.word2 = rp[1];
       if (x.f.sign == 1 && x.f.exp == 0)
       x.q.word1 = rp[0];
       x.q.word2 = rp[1];
       if (x.f.sign == 1 && x.f.exp == 0)
@@ -195,7 +208,7 @@ Constp cp;
       else if (x.d >= *minp && x.d <= *maxp)
        {
          p = (expptr) mkconst(TYSHORT);
       else if (x.d >= *minp && x.d <= *maxp)
        {
          p = (expptr) mkconst(TYSHORT);
-         p->constblock.const.ci = x.d;
+         p->constblock.constant.ci = x.d;
        }
       else
        {
        }
       else
        {
@@ -227,7 +240,7 @@ Constp cp;
     case TYHOLLERITH:
       shortp = (short *) grabbytes(2, cp);
       p = (expptr) mkconst(TYSHORT);
     case TYHOLLERITH:
       shortp = (short *) grabbytes(2, cp);
       p = (expptr) mkconst(TYSHORT);
-      p->constblock.const.ci = *shortp;
+      p->constblock.constant.ci = *shortp;
       free((char *) shortp);
       break;
 
       free((char *) shortp);
       break;
 
@@ -262,13 +275,13 @@ Constp cp;
     case TYBITSTR:
       longp = (ftnint *) grabbits(4, cp);
       p = (expptr) mkconst(TYLONG);
     case TYBITSTR:
       longp = (ftnint *) grabbits(4, cp);
       p = (expptr) mkconst(TYLONG);
-      p->constblock.const.ci = *longp;
+      p->constblock.constant.ci = *longp;
       free((char *) longp);
       break;
 
     case TYSHORT:
       p = (expptr) mkconst(TYLONG);
       free((char *) longp);
       break;
 
     case TYSHORT:
       p = (expptr) mkconst(TYLONG);
-      p->constblock.const.ci = cp->const.ci;
+      p->constblock.constant.ci = cp->constant.ci;
       break;
 
     case TYLONG:
       break;
 
     case TYLONG:
@@ -281,7 +294,7 @@ Constp cp;
     case TYDCOMPLEX:
       minp = (double *) dminint;
       maxp = (double *) dmaxint;
     case TYDCOMPLEX:
       minp = (double *) dminint;
       maxp = (double *) dmaxint;
-      rp = (long *) &(cp->const.cd[0]);
+      rp = (long *) &(cp->constant.cd[0]);
       x.q.word1 = rp[0];
       x.q.word2 = rp[1];
       if (x.f.sign == 1 && x.f.exp == 0)
       x.q.word1 = rp[0];
       x.q.word2 = rp[1];
       if (x.f.sign == 1 && x.f.exp == 0)
@@ -296,7 +309,7 @@ Constp cp;
       else if (x.d >= *minp && x.d <= *maxp)
        {
          p = (expptr) mkconst(TYLONG);
       else if (x.d >= *minp && x.d <= *maxp)
        {
          p = (expptr) mkconst(TYLONG);
-         p->constblock.const.ci = x.d;
+         p->constblock.constant.ci = x.d;
        }
       else
        {
        }
       else
        {
@@ -328,7 +341,7 @@ Constp cp;
     case TYHOLLERITH:
       longp = (ftnint *) grabbytes(4, cp);
       p = (expptr) mkconst(TYLONG);
     case TYHOLLERITH:
       longp = (ftnint *) grabbytes(4, cp);
       p = (expptr) mkconst(TYLONG);
-      p->constblock.const.ci = *longp;
+      p->constblock.constant.ci = *longp;
       free((char *) longp);
       break;
 
       free((char *) longp);
       break;
 
@@ -363,7 +376,7 @@ Constp cp;
     case TYBITSTR:
       longp = (long *) grabbits(4, cp);
       p = (expptr) mkconst(TYREAL);
     case TYBITSTR:
       longp = (long *) grabbits(4, cp);
       p = (expptr) mkconst(TYREAL);
-      rp = (long *) &(p->constblock.const.cd[0]);
+      rp = (long *) &(p->constblock.constant.cd[0]);
       rp[0] = *longp;
       free((char *) longp);
       break;
       rp[0] = *longp;
       free((char *) longp);
       break;
@@ -371,7 +384,7 @@ Constp cp;
     case TYSHORT:
     case TYLONG:
       p = (expptr) mkconst(TYREAL);
     case TYSHORT:
     case TYLONG:
       p = (expptr) mkconst(TYREAL);
-      p->constblock.const.cd[0] = cp->const.ci;
+      p->constblock.constant.cd[0] = cp->constant.ci;
       break;
 
     case TYREAL:
       break;
 
     case TYREAL:
@@ -380,20 +393,20 @@ Constp cp;
     case TYDCOMPLEX:
       minp = (double *) dminreal;
       maxp = (double *) dmaxreal;
     case TYDCOMPLEX:
       minp = (double *) dminreal;
       maxp = (double *) dmaxreal;
-      rp = (long *) &(cp->const.cd[0]);
+      rp = (long *) &(cp->constant.cd[0]);
       x.q.word1 = rp[0];
       x.q.word2 = rp[1];
       if (x.f.sign == 1 && x.f.exp == 0)
        {
          p = (expptr) mkconst(TYREAL);
       x.q.word1 = rp[0];
       x.q.word2 = rp[1];
       if (x.f.sign == 1 && x.f.exp == 0)
        {
          p = (expptr) mkconst(TYREAL);
-         rp = (long *) &(p->constblock.const.cd[0]);
+         rp = (long *) &(p->constblock.constant.cd[0]);
          rp[0] = x.q.word1;
        }
       else if (x.d >= *minp && x.d <= *maxp)
        {
          p = (expptr) mkconst(TYREAL);
          y = x.d;
          rp[0] = x.q.word1;
        }
       else if (x.d >= *minp && x.d <= *maxp)
        {
          p = (expptr) mkconst(TYREAL);
          y = x.d;
-         p->constblock.const.cd[0] = y;
+         p->constblock.constant.cd[0] = y;
        }
       else
        {
        }
       else
        {
@@ -425,7 +438,7 @@ Constp cp;
     case TYHOLLERITH:
       longp = (long *) grabbytes(4, cp);
       p = (expptr) mkconst(TYREAL);
     case TYHOLLERITH:
       longp = (long *) grabbytes(4, cp);
       p = (expptr) mkconst(TYREAL);
-      rp = (long *) &(p->constblock.const.cd[0]);
+      rp = (long *) &(p->constblock.constant.cd[0]);
       rp[0] = *longp;
       free((char *) longp);
       break;
       rp[0] = *longp;
       free((char *) longp);
       break;
@@ -458,7 +471,7 @@ Constp cp;
     case TYBITSTR:
       longp = (long *) grabbits(8, cp);
       p = (expptr) mkconst(TYDREAL);
     case TYBITSTR:
       longp = (long *) grabbits(8, cp);
       p = (expptr) mkconst(TYDREAL);
-      rp = (long *) &(p->constblock.const.cd[0]);
+      rp = (long *) &(p->constblock.constant.cd[0]);
       rp[0] = longp[0];
       rp[1] = longp[1];
       free((char *) longp);
       rp[0] = longp[0];
       rp[1] = longp[1];
       free((char *) longp);
@@ -467,7 +480,7 @@ Constp cp;
     case TYSHORT:
     case TYLONG:
       p = (expptr) mkconst(TYDREAL);
     case TYSHORT:
     case TYLONG:
       p = (expptr) mkconst(TYDREAL);
-      p->constblock.const.cd[0] = cp->const.ci;
+      p->constblock.constant.cd[0] = cp->constant.ci;
       break;
 
     case TYREAL:
       break;
 
     case TYREAL:
@@ -475,8 +488,8 @@ Constp cp;
     case TYCOMPLEX:
     case TYDCOMPLEX:
       p = (expptr) mkconst(TYDREAL);
     case TYCOMPLEX:
     case TYDCOMPLEX:
       p = (expptr) mkconst(TYDREAL);
-      longp = (long *) &(cp->const.cd[0]);
-      rp = (long *) &(p->constblock.const.cd[0]);
+      longp = (long *) &(cp->constant.cd[0]);
+      rp = (long *) &(p->constblock.constant.cd[0]);
       rp[0] = longp[0];
       rp[1] = longp[1];
       break;
       rp[0] = longp[0];
       rp[1] = longp[1];
       break;
@@ -500,7 +513,7 @@ Constp cp;
     case TYHOLLERITH:
       longp = (long *) grabbytes(8, cp);
       p = (expptr) mkconst(TYDREAL);
     case TYHOLLERITH:
       longp = (long *) grabbytes(8, cp);
       p = (expptr) mkconst(TYDREAL);
-      rp = (long *) &(p->constblock.const.cd[0]);
+      rp = (long *) &(p->constblock.constant.cd[0]);
       rp[0] = longp[0];
       rp[1] = longp[1];
       free((char *) longp);
       rp[0] = longp[0];
       rp[1] = longp[1];
       free((char *) longp);
@@ -538,7 +551,7 @@ Constp cp;
     case TYBITSTR:
       longp = (long *) grabbits(8, cp);
       p = (expptr) mkconst(TYCOMPLEX);
     case TYBITSTR:
       longp = (long *) grabbits(8, cp);
       p = (expptr) mkconst(TYCOMPLEX);
-      rp = (long *) &(p->constblock.const.cd[0]);
+      rp = (long *) &(p->constblock.constant.cd[0]);
       rp[0] = longp[0];
       rp[2] = longp[1];
       free((char *) longp);
       rp[0] = longp[0];
       rp[2] = longp[1];
       free((char *) longp);
@@ -547,7 +560,7 @@ Constp cp;
     case TYSHORT:
     case TYLONG:
       p = (expptr) mkconst(TYCOMPLEX);
     case TYSHORT:
     case TYLONG:
       p = (expptr) mkconst(TYCOMPLEX);
-      p->constblock.const.cd[0] = cp->const.ci;
+      p->constblock.constant.cd[0] = cp->constant.ci;
       break;
 
     case TYREAL:
       break;
 
     case TYREAL:
@@ -557,7 +570,7 @@ Constp cp;
       overflow = 0;
       minp = (double *) dminreal;
       maxp = (double *) dmaxreal;
       overflow = 0;
       minp = (double *) dminreal;
       maxp = (double *) dmaxreal;
-      rp = (long *) &(cp->const.cd[0]);
+      rp = (long *) &(cp->constant.cd[0]);
       re.q.word1 = rp[0];
       re.q.word2 = rp[1];
       im.q.word1 = rp[2];
       re.q.word1 = rp[0];
       re.q.word2 = rp[1];
       im.q.word1 = rp[2];
@@ -591,7 +604,7 @@ Constp cp;
              x = im.d;
              im.d = x;
            }
              x = im.d;
              im.d = x;
            }
-         rp = (long *) &(p->constblock.const.cd[0]);
+         rp = (long *) &(p->constblock.constant.cd[0]);
          rp[0] = re.q.word1;
          rp[1] = re.q.word2;
          rp[2] = im.q.word1;
          rp[0] = re.q.word1;
          rp[1] = re.q.word2;
          rp[2] = im.q.word1;
@@ -617,7 +630,7 @@ Constp cp;
     case TYHOLLERITH:
       longp = (long *) grabbytes(8, cp);
       p = (expptr) mkconst(TYCOMPLEX);
     case TYHOLLERITH:
       longp = (long *) grabbytes(8, cp);
       p = (expptr) mkconst(TYCOMPLEX);
-      rp = (long *) &(p->constblock.const.cd[0]);
+      rp = (long *) &(p->constblock.constant.cd[0]);
       rp[0] = longp[0];
       rp[2] = longp[1];
       free((char *) longp);
       rp[0] = longp[0];
       rp[2] = longp[1];
       free((char *) longp);
@@ -649,7 +662,7 @@ Constp cp;
     case TYBITSTR:
       longp = (long *) grabbits(16, cp);
       p = (expptr) mkconst(TYDCOMPLEX);
     case TYBITSTR:
       longp = (long *) grabbits(16, cp);
       p = (expptr) mkconst(TYDCOMPLEX);
-      rp = (long *) &(p->constblock.const.cd[0]);
+      rp = (long *) &(p->constblock.constant.cd[0]);
       rp[0] = longp[0];
       rp[1] = longp[1];
       rp[2] = longp[2];
       rp[0] = longp[0];
       rp[1] = longp[1];
       rp[2] = longp[2];
@@ -660,7 +673,7 @@ Constp cp;
     case TYSHORT:
     case TYLONG:
       p = (expptr) mkconst(TYDCOMPLEX);
     case TYSHORT:
     case TYLONG:
       p = (expptr) mkconst(TYDCOMPLEX);
-      p->constblock.const.cd[0] = cp->const.ci;
+      p->constblock.constant.cd[0] = cp->constant.ci;
       break;
 
     case TYREAL:
       break;
 
     case TYREAL:
@@ -668,8 +681,8 @@ Constp cp;
     case TYCOMPLEX:
     case TYDCOMPLEX:
       p = (expptr) mkconst(TYDCOMPLEX);
     case TYCOMPLEX:
     case TYDCOMPLEX:
       p = (expptr) mkconst(TYDCOMPLEX);
-      longp = (long *) &(cp->const.cd[0]);
-      rp = (long *) &(p->constblock.const.cd[0]);
+      longp = (long *) &(cp->constant.cd[0]);
+      rp = (long *) &(p->constblock.constant.cd[0]);
       rp[0] = longp[0];
       rp[1] = longp[1];
       rp[2] = longp[2];
       rp[0] = longp[0];
       rp[1] = longp[1];
       rp[2] = longp[2];
@@ -695,7 +708,7 @@ Constp cp;
     case TYHOLLERITH:
       longp = (long *) grabbytes(16, cp);
       p = (expptr) mkconst(TYDCOMPLEX);
     case TYHOLLERITH:
       longp = (long *) grabbytes(16, cp);
       p = (expptr) mkconst(TYDCOMPLEX);
-      rp = (long *) &(p->constblock.const.cd[0]);
+      rp = (long *) &(p->constblock.constant.cd[0]);
       rp[0] = longp[0];
       rp[1] = longp[1];
       rp[2] = longp[2];
       rp[0] = longp[0];
       rp[1] = longp[1];
       rp[2] = longp[2];
@@ -734,13 +747,13 @@ Constp cp;
       if (tylogical == TYSHORT)
        {
          shortp = (short *) grabbits(size, cp);
       if (tylogical == TYSHORT)
        {
          shortp = (short *) grabbits(size, cp);
-         p->constblock.const.ci = (int) *shortp;
+         p->constblock.constant.ci = (int) *shortp;
          free((char *) shortp);
        }
       else
        {
          longp = (long *) grabbits(size, cp);
          free((char *) shortp);
        }
       else
        {
          longp = (long *) grabbits(size, cp);
-         p->constblock.const.ci = *longp;
+         p->constblock.constant.ci = *longp;
          free((char *) longp);
        }
       break;
          free((char *) longp);
        }
       break;
@@ -776,13 +789,13 @@ Constp cp;
       if (tylogical == TYSHORT)
        {
          shortp = (short *) grabbytes(size, cp);
       if (tylogical == TYSHORT)
        {
          shortp = (short *) grabbytes(size, cp);
-         p->constblock.const.ci = (int) *shortp;
+         p->constblock.constant.ci = (int) *shortp;
          free((char *) shortp);
        }
       else
        {
          longp = (long *) grabbytes(4, cp);
          free((char *) shortp);
        }
       else
        {
          longp = (long *) grabbytes(4, cp);
-         p->constblock.const.ci = *longp;
+         p->constblock.constant.ci = *longp;
          free((char *) longp);
        }
       break;
          free((char *) longp);
        }
       break;
@@ -857,45 +870,45 @@ Constp cp;
 \f
 
 expptr
 \f
 
 expptr
-convconst(type, len, const)
+convconst(type, len, constant)
 int type;
 int len;
 int type;
 int len;
-Constp const;
+Constp constant;
 {
   register expptr p;
 
   switch (type)
     {
     case TYSHORT:
 {
   register expptr p;
 
   switch (type)
     {
     case TYSHORT:
-      p = cshort(const);
+      p = cshort(constant);
       break;
 
     case TYLONG:
       break;
 
     case TYLONG:
-      p = clong(const);
+      p = clong(constant);
       break;
 
     case TYREAL:
       break;
 
     case TYREAL:
-      p = creal(const);
+      p = creal(constant);
       break;
 
     case TYDREAL:
       break;
 
     case TYDREAL:
-      p = cdreal(const);
+      p = cdreal(constant);
       break;
 
     case TYCOMPLEX:
       break;
 
     case TYCOMPLEX:
-      p = ccomplex(const);
+      p = ccomplex(constant);
       break;
 
     case TYDCOMPLEX:
       break;
 
     case TYDCOMPLEX:
-      p = cdcomplex(const);
+      p = cdcomplex(constant);
       break;
 
     case TYLOGICAL:
       break;
 
     case TYLOGICAL:
-      p = clogical(const);
+      p = clogical(constant);
       break;
 
     case TYCHAR:
       break;
 
     case TYCHAR:
-      p = cchar(len, const);
+      p = cchar(len, constant);
       break;
 
     case TYERROR:
       break;
 
     case TYERROR:
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.