From 69d8dc3b441136d3ef4753e8056d4f82ccc93ded Mon Sep 17 00:00:00 2001 From: ceriel Date: Thu, 26 Oct 1989 11:07:26 +0000 Subject: [PATCH] use new version of con_float --- mach/pdp/cg/mach.c | 37 ++++--------------------------------- 1 file changed, 4 insertions(+), 33 deletions(-) diff --git a/mach/pdp/cg/mach.c b/mach/pdp/cg/mach.c index 077f9cd90..66150f092 100644 --- a/mach/pdp/cg/mach.c +++ b/mach/pdp/cg/mach.c @@ -47,41 +47,12 @@ con_mult(sz) word sz; { } #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() -{ - char buf[8]; - int rval = float_cst(str, argval, buf); - int i; - - if (rval == 1) { - fprintf(stderr,"float constant size = %d\n",argval); - fatal("bad fcon size"); - } -#ifdef ACK_ASS - fprintf(codefile,"! float %s sz %d\n", str, argval); -#else - fprintf(codefile,"/ float %s sz %d\n", str, argval); -#endif - if (rval == 2) { - fprintf(stderr, "Warning: overflow in floating point constant %s\n", str); - } -#ifdef ACK_ASS - fprintf(codefile, ".data1 0%o", buf[1] & 0377); - for (i = 1; i < argval; i++) { - /* use little trick to get bytes out in swapped order ... */ - fprintf(codefile, ",0%o", buf[i^1] & 0377); - } -#else - for (i = 0; i < argval; i++) { - /* use little trick to get bytes out in swapped order ... */ - fprintf(codefile, "??? %o", buf[i^1] & 0377); - } -#endif - putc('\n', codefile); -} - #ifdef REGVARS char Rstring[10]; -- 2.34.1