use new con_float

diff --git a/mach/pdp/ncg/mach.c b/mach/pdp/ncg/mach.c
index ae9e51e..66150f0 100644 (file)
--- a/mach/pdp/ncg/mach.c
+++ b/mach/pdp/ncg/mach.c
@@ -46,78 +46,12 @@ con_mult(sz) word sz; {
 #endif
 }
 
-/*
- * The next function is difficult to do when not running on a PDP 11 or VAX
- * The strategy followed is to assume the code generator is running on a PDP 11
- * unless the ACK_ASS define  is on.
- */
-
-con_float() {
-#ifdef ACK_ASS
-       double f;
-       double atof(), frexp();
-       int i, j;
-       int sign = 0;
-       int fraction ;
-
-       if (argval != 4 && argval != 8)
-               fatal("bad fcon size");
-       f = atof(str);
-       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;
-               sign = 1;
-       }
-       while (f < 0.5) {
-               f += f;
-               i --;
-       }
-       f = 2*f - 1.0;          /* hidden bit */
-       i = (i + 128) & 0377;
-       fraction = (sign << 15) | (i << 7);
-       for (j = 6; j>= 0; j--) {
-               f *= 2;
-               if (f >= 1.0) {
-                       fraction |= (1 << j);
-                       f -= 1.0;
-               }
-       }
-       fprintf(codefile, ".data2 0%o", fraction);
-       for (i = argval / 2 - 1; i; i--) {
-               fraction = 0;
-               for (j = 15; j>= 0; j--) {
-                       f *= 2;
-                       if (f >= 1.0) {
-                               fraction |= (1 << j);
-                               f -= 1.0;
-                       }
-               }
-               fprintf(codefile, ", 0%o", fraction);
-       }
-       putc('\n', codefile);
-#else
-       double f;
-       double atof();
-       int i;
-       short *p;
-
-       if (argval != 4 && argval != 8)
-               fatal("bad fcon size");
-       f = atof(str);
-       p = (short *) &f;
-       i = *p++;
-       if (argval == 8) {
-               fprintf(codefile,"\t%o;%o;",i,*p++);
-               i = *p++;
-       }
-       fprintf(codefile,"\t%o;%o\n",i,*p++);
-#endif
-}
+#define PDPFLOAT
+#define FL_MSL_AT_LOW_ADDRESS  1
+#define FL_MSW_AT_LOW_ADDRESS  1
+#define FL_MSB_AT_LOW_ADDRESS  0
+#define CODE_GENERATOR
+#include <con_float>
 
 #ifdef REGVARS