public / ack.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: c4d0a4f)
be careful about overflow in con_float
authorceriel <none@none>
Thu, 28 Apr 1988 14:46:11 +0000 (14:46 +0000)
committerceriel <none@none>
Thu, 28 Apr 1988 14:46:11 +0000 (14:46 +0000)
mach/m68020/ncg/mach.c patch | blob | history
mach/m68k2/ncg/mach.c patch | blob | history
mach/m68k4/ncg/mach.c patch | blob | history
mach/moon3/ncg/mach.c patch | blob | history

diff --git a/mach/m68020/ncg/mach.c b/mach/m68020/ncg/mach.c
index 1d5aa9c..6de151d 100644 (file)
--- a/mach/m68020/ncg/mach.c
+++ b/mach/m68020/ncg/mach.c
@@ -62,9 +62,9 @@ con_float() {
        double f;
        double atof();
        int i;
-#ifndef OWNFLOAT
-       double frexp();
        int j;
+       double frexp();
+#ifndef OWNFLOAT
        int sign = 0;
        int fraction[4] ;
 #else OWNFLOAT
@@ -78,9 +78,31 @@ con_float() {
        }
        fprintf(codefile,"!float %s sz %d\n", str, argval);
        f = atof(str);
+       if (f == 0) {
+               if (argval == 8) fprintf(codefile, ".data2 0, 0\n");
+               fprintf(codefile, ".data2 0, 0\n");
+               return;
+       }
 #ifdef OWNFLOAT
        if (argval == 4) {
+               /* careful: avoid overflow */
+               double ldexp();
+               f = frexp(f, &i);
                fl = f;
+               fl = frexp(fl,&j);
+               if (i+j > 127) {
+                       /* overflow situation */
+                       fprintf(codefile, ".data1 0%o, 0377, 0377, 0377 ! overflow\n",
+                               f < 0 ? 0377 : 0177);
+                       return;
+               }
+               if (i+j < -127) {
+                       /* underflow situation */
+                       fprintf(codefile, ".data1 0%o, 0200, 0, 0 ! underflow\n",
+                               f < 0 ? 0200 : 0);
+                       return;
+               }
+               fl = ldexp(fl, i+j);
                p = (char *) &fl;
        }
        else {
@@ -91,11 +113,6 @@ con_float() {
                fprintf(codefile,",0%o", *p++ & 0377);
        }
 #else OWNFLOAT
-       if (f == 0) {
-               if (argval == 8) fprintf(codefile, ".data2 0, 0\n");
-               fprintf(codefile, ".data2 0, 0\n");
-               return;
-       }
        f = frexp(f, &i);
        if (f < 0) {
                f = -f;
diff --git a/mach/m68k2/ncg/mach.c b/mach/m68k2/ncg/mach.c
index 1d5aa9c..6de151d 100644 (file)
--- a/mach/m68k2/ncg/mach.c
+++ b/mach/m68k2/ncg/mach.c
@@ -62,9 +62,9 @@ con_float() {
        double f;
        double atof();
        int i;
-#ifndef OWNFLOAT
-       double frexp();
        int j;
+       double frexp();
+#ifndef OWNFLOAT
        int sign = 0;
        int fraction[4] ;
 #else OWNFLOAT
@@ -78,9 +78,31 @@ con_float() {
        }
        fprintf(codefile,"!float %s sz %d\n", str, argval);
        f = atof(str);
+       if (f == 0) {
+               if (argval == 8) fprintf(codefile, ".data2 0, 0\n");
+               fprintf(codefile, ".data2 0, 0\n");
+               return;
+       }
 #ifdef OWNFLOAT
        if (argval == 4) {
+               /* careful: avoid overflow */
+               double ldexp();
+               f = frexp(f, &i);
                fl = f;
+               fl = frexp(fl,&j);
+               if (i+j > 127) {
+                       /* overflow situation */
+                       fprintf(codefile, ".data1 0%o, 0377, 0377, 0377 ! overflow\n",
+                               f < 0 ? 0377 : 0177);
+                       return;
+               }
+               if (i+j < -127) {
+                       /* underflow situation */
+                       fprintf(codefile, ".data1 0%o, 0200, 0, 0 ! underflow\n",
+                               f < 0 ? 0200 : 0);
+                       return;
+               }
+               fl = ldexp(fl, i+j);
                p = (char *) &fl;
        }
        else {
@@ -91,11 +113,6 @@ con_float() {
                fprintf(codefile,",0%o", *p++ & 0377);
        }
 #else OWNFLOAT
-       if (f == 0) {
-               if (argval == 8) fprintf(codefile, ".data2 0, 0\n");
-               fprintf(codefile, ".data2 0, 0\n");
-               return;
-       }
        f = frexp(f, &i);
        if (f < 0) {
                f = -f;
diff --git a/mach/m68k4/ncg/mach.c b/mach/m68k4/ncg/mach.c
index 1d5aa9c..6de151d 100644 (file)
--- a/mach/m68k4/ncg/mach.c
+++ b/mach/m68k4/ncg/mach.c
@@ -62,9 +62,9 @@ con_float() {
        double f;
        double atof();
        int i;
-#ifndef OWNFLOAT
-       double frexp();
        int j;
+       double frexp();
+#ifndef OWNFLOAT
        int sign = 0;
        int fraction[4] ;
 #else OWNFLOAT
@@ -78,9 +78,31 @@ con_float() {
        }
        fprintf(codefile,"!float %s sz %d\n", str, argval);
        f = atof(str);
+       if (f == 0) {
+               if (argval == 8) fprintf(codefile, ".data2 0, 0\n");
+               fprintf(codefile, ".data2 0, 0\n");
+               return;
+       }
 #ifdef OWNFLOAT
        if (argval == 4) {
+               /* careful: avoid overflow */
+               double ldexp();
+               f = frexp(f, &i);
                fl = f;
+               fl = frexp(fl,&j);
+               if (i+j > 127) {
+                       /* overflow situation */
+                       fprintf(codefile, ".data1 0%o, 0377, 0377, 0377 ! overflow\n",
+                               f < 0 ? 0377 : 0177);
+                       return;
+               }
+               if (i+j < -127) {
+                       /* underflow situation */
+                       fprintf(codefile, ".data1 0%o, 0200, 0, 0 ! underflow\n",
+                               f < 0 ? 0200 : 0);
+                       return;
+               }
+               fl = ldexp(fl, i+j);
                p = (char *) &fl;
        }
        else {
@@ -91,11 +113,6 @@ con_float() {
                fprintf(codefile,",0%o", *p++ & 0377);
        }
 #else OWNFLOAT
-       if (f == 0) {
-               if (argval == 8) fprintf(codefile, ".data2 0, 0\n");
-               fprintf(codefile, ".data2 0, 0\n");
-               return;
-       }
        f = frexp(f, &i);
        if (f < 0) {
                f = -f;
diff --git a/mach/moon3/ncg/mach.c b/mach/moon3/ncg/mach.c
index 1d5aa9c..6de151d 100644 (file)
--- a/mach/moon3/ncg/mach.c
+++ b/mach/moon3/ncg/mach.c
@@ -62,9 +62,9 @@ con_float() {
        double f;
        double atof();
        int i;
-#ifndef OWNFLOAT
-       double frexp();
        int j;
+       double frexp();
+#ifndef OWNFLOAT
        int sign = 0;
        int fraction[4] ;
 #else OWNFLOAT
@@ -78,9 +78,31 @@ con_float() {
        }
        fprintf(codefile,"!float %s sz %d\n", str, argval);
        f = atof(str);
+       if (f == 0) {
+               if (argval == 8) fprintf(codefile, ".data2 0, 0\n");
+               fprintf(codefile, ".data2 0, 0\n");
+               return;
+       }
 #ifdef OWNFLOAT
        if (argval == 4) {
+               /* careful: avoid overflow */
+               double ldexp();
+               f = frexp(f, &i);
                fl = f;
+               fl = frexp(fl,&j);
+               if (i+j > 127) {
+                       /* overflow situation */
+                       fprintf(codefile, ".data1 0%o, 0377, 0377, 0377 ! overflow\n",
+                               f < 0 ? 0377 : 0177);
+                       return;
+               }
+               if (i+j < -127) {
+                       /* underflow situation */
+                       fprintf(codefile, ".data1 0%o, 0200, 0, 0 ! underflow\n",
+                               f < 0 ? 0200 : 0);
+                       return;
+               }
+               fl = ldexp(fl, i+j);
                p = (char *) &fl;
        }
        else {
@@ -91,11 +113,6 @@ con_float() {
                fprintf(codefile,",0%o", *p++ & 0377);
        }
 #else OWNFLOAT
-       if (f == 0) {
-               if (argval == 8) fprintf(codefile, ".data2 0, 0\n");
-               fprintf(codefile, ".data2 0, 0\n");
-               return;
-       }
        f = frexp(f, &i);
        if (f < 0) {
                f = -f;
Unnamed repository; edit this file 'description' to name the repository.