From 0a2ee143962b2865cb103aa78e90603df983d132 Mon Sep 17 00:00:00 2001 From: ceriel Date: Tue, 13 Nov 1990 13:21:21 +0000 Subject: [PATCH] Adapted for use with improved fp package --- mach/arm/ncg/mach.c | 147 ++------------------------------------------ mach/arm/ncg/table | 93 ++++++---------------------- 2 files changed, 24 insertions(+), 216 deletions(-) diff --git a/mach/arm/ncg/mach.c b/mach/arm/ncg/mach.c index dfdd14f65..11b124d35 100644 --- a/mach/arm/ncg/mach.c +++ b/mach/arm/ncg/mach.c @@ -139,147 +139,10 @@ prolog(nlocals) full nlocals; return; } -#ifdef NOFLOAT -con_float() /* warning only -- AMK */ - { - static int been_here; - - if (argval != 4 && argval != 8) - fatal("bad fcon size"); - fputs(".data4\t", codefile); - if (argval == 8) - fputs("0,",codefile); - fputs("0 !dummy float\n", codefile); - if ( !been_here++) { - fputs("Warning : dummy float-constant(s)\n", stderr); - } - } -#else +#define CODE_GENERATOR #define IEEEFLOAT - -con_float() { - double f; - double atof(); - int i; - int j; - double frexp(); -#ifndef OWNFLOAT - int sign = 0; - int fraction[4] ; -#else OWNFLOAT - float fl; - char *p; -#endif OWNFLOAT - - if (argval!= 4 && argval!= 8) { - fprintf(stderr,"float constant size = %d\n",argval); - fatal("bad fcon size"); - } - 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 { - p = (char *) &f; - } - fprintf(codefile, ".data1 0%o", *p++ & 0377); - for (i = argval-1; i; i--) { - fprintf(codefile,",0%o", *p++ & 0377); - } -#else OWNFLOAT - 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 */ -#ifdef IEEEFLOAT - if (argval == 4) { -#endif IEEEFLOAT - i = (i + 128) & 0377; - fraction[0] = (sign << 15) | (i << 7); - for (j = 6; j>= 0; j--) { - f *= 2; - if (f >= 1.0) { - f -= 1.0; - fraction[0] |= (1 << j); - } - } -#ifdef IEEEFLOAT - } - else { - i = (i + 1024) & 03777; - fraction[0] = (sign << 15) | (i << 4); - for (j = 3; j>= 0; j--) { - f *= 2; - if (f >= 1.0) { - fraction[0] |= (1 << j); - f -= 1.0; - } - } - } -#endif IEEEFLOAT - for (i = 1; i < argval / 2; i++) { - fraction[i] = 0; - for (j = 15; j>= 0; j--) { - f *= 2; - if (f >= 1.0) { - fraction[i] |= (1 << j); - f -= 1.0; - } - } - } - if (f >= 0.5) { - for (i = argval/2 - 1; i >= 0; i--) { - for (j = 0; j < 16; j++) { - if (fraction[i] & (1 << j)) { - fraction[i] &= ~(1 << j); - } - else { - fraction[i] |= (1 << j); - break; - } - } - if (j != 16) break; - } - } - for (i = 0; i < argval/2; i++) { - fprintf(codefile, - i != 0 ? ", 0%o, 0%o" : ".data1 0%o, 0%o", - (fraction[i]>>8)&0377, - fraction[i]&0377); - } -#endif OWNFLOAT - putc('\n', codefile); -} -#endif +#define FL_MSL_AT_LOW_ADDRESS 0 +#define FL_MSW_AT_LOW_ADDRESS 0 +#define FL_MSB_AT_LOW_ADDRESS 0 +#include diff --git a/mach/arm/ncg/table b/mach/arm/ncg/table index b774302ce..8b25bbd4c 100644 --- a/mach/arm/ncg/table +++ b/mach/arm/ncg/table @@ -1324,69 +1324,20 @@ with const4+fitcon GENREG yields {imS, %2, "LSR", %1.num} * * ************************************************************************/ - pat adf $1==8 - with STACK - kills ALL - leaving cal ".adf8" asp 16 lfr 4 loi 8 - pat adf $1==4 - with STACK - kills ALL - leaving cal ".adf4" asp 8 lfr 4 - - pat sbf $1==8 - with STACK - kills ALL - leaving cal ".sbf8" asp 16 lfr 4 loi 8 - pat sbf $1==4 - with STACK - kills ALL - leaving cal ".sbf4" asp 8 lfr 4 - - pat mlf $1==8 - with STACK - kills ALL - leaving cal ".mlf8" asp 16 lfr 4 loi 8 - pat mlf $1==4 - with STACK - kills ALL - leaving cal ".mlf4" asp 8 lfr 4 - - pat dvf $1==8 - with STACK - kills ALL - leaving cal ".dvf8" asp 8 - pat dvf $1==4 - with STACK - kills ALL - leaving cal ".dvf4" asp 4 - - pat ngf $1==8 - with STACK - kills ALL - leaving cal ".ngf8" - pat ngf $1==4 - with STACK - kills ALL - leaving cal ".ngf4" - - pat fif $1==8 - with STACK - kills ALL - leaving cal ".fif8" - pat fif $1==4 - with STACK - kills ALL - leaving cal ".fif4" - -/* the next two need a 4 byte hole on the stack */ - pat ldl fef $2==8 - with STACK - kills ALL - leaving loc 0 ldl $1 cal ".fef8" - pat lol fef $2==4 - with STACK - kills ALL - leaving loc 0 lol $1 cal ".fef4" +pat adf $1==4 leaving cal ".adf4" asp 4 +pat adf $1==8 leaving cal ".adf8" asp 8 +pat sbf $1==4 leaving cal ".sbf4" asp 4 +pat sbf $1==8 leaving cal ".sbf8" asp 8 +pat mlf $1==4 leaving cal ".mlf4" asp 4 +pat mlf $1==8 leaving cal ".mlf8" asp 8 +pat dvf $1==4 leaving cal ".dvf4" asp 4 +pat dvf $1==8 leaving cal ".dvf8" asp 8 +pat ngf $1==4 leaving cal ".ngf4" +pat ngf $1==8 leaving cal ".ngf8" +pat fif $1==4 leaving lor 1 cal ".fif4" asp 4 +pat fif $1==8 leaving lor 1 cal ".fif8" asp 4 +pat fef $1==4 leaving lor 1 adp 0-4 cal ".fef4" +pat fef $1==8 leaving lor 1 adp 0-4 cal ".fef8" /************************************************************************ * * @@ -1495,21 +1446,15 @@ pat loc loc cii ($1 > 2) pat cui with address +REGcon address + REGcon -pat loc loc cif $1==4 && $2==4 leaving loc 4 cal ".cif4" asp 8 lfr 4 -pat loc loc cif $1==4 && $2==8 leaving loc 4 cal ".cif8" asp 8 lfr 4 loi 8 +pat loc loc cif $1==4 && $2==4 leaving loc 4 cal ".cif4" asp 4 +pat loc loc cif $1==4 && $2==8 leaving loc 4 cal ".cif8" -pat loc loc cuf $1==4 && $2==4 leaving loc 4 cal ".cuf4" asp 8 lfr 4 +pat loc loc cuf $1==4 && $2==4 leaving loc 4 cal ".cuf4" asp 4 pat loc loc cuf $1==4 && $2==8 leaving loc 4 cal ".cuf8" -pat loc loc cfi $1==8 && $2==4 - leaving loc $1 loc $2 cal ".cfi" asp 16 lfr 4 -pat loc loc cfi $1==4 && $2==4 - leaving loc $1 loc $2 cal ".cfi" asp 12 lfr 4 +pat loc loc cfi leaving loc $1 loc $2 cal ".cfi" asp 8+($1-4) -pat loc loc cfu $1==8 && $2==4 - leaving loc $1 loc $2 cal ".cfu" asp 16 lfr 4 -pat loc loc cfu $1==4 && $2==4 - leaving loc $1 loc $2 cal ".cfu" asp 12 lfr 4 +pat loc loc cfu leaving loc $1 loc $2 cal ".cfu" asp 8+($1-4) pat loc loc cff $1==8 && $2==4 leaving cal ".cff4" asp 4 -- 2.34.1