use con_float file
This commit is contained in:
ceriel
parent
53ce9da827
commit
4759f1c9f9
|
|
@ -20,148 +20,7 @@ int val;
|
||||||
return( val >= -128 && val <= 127);
|
return( val >= -128 && val <= 127);
|
||||||
}
|
}
|
||||||
|
|
||||||
con_float(str, argval)
|
#include <con_float>
|
||||||
char *str;
|
|
||||||
int argval;
|
|
||||||
{
|
|
||||||
#ifdef NOFLOAT
|
|
||||||
|
|
||||||
static int been_here;
|
|
||||||
if (argval != 4 && argval != 8)
|
|
||||||
arg_error("fcon", argval);
|
|
||||||
if (argval == 8)
|
|
||||||
gen4((FOUR_BYTES) 0);
|
|
||||||
gen4((FOUR_BYTES) 0);
|
|
||||||
if ( !been_here++)
|
|
||||||
{
|
|
||||||
fprint(STDERR, "Warning : dummy float-constant(s)\n");
|
|
||||||
}
|
|
||||||
#else
|
|
||||||
#define IEEEFLOAT
|
|
||||||
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) {
|
|
||||||
arg_error("fcon", argval);
|
|
||||||
argval = 8;
|
|
||||||
}
|
|
||||||
f = atof(str);
|
|
||||||
if (f == 0) {
|
|
||||||
if (argval == 8) gen4((FOUR_BYTES) 0);
|
|
||||||
gen4((FOUR_BYTES) 0);
|
|
||||||
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 */
|
|
||||||
gen1(f<0?0377:0177);
|
|
||||||
gen1(0377);
|
|
||||||
gen1(0377);
|
|
||||||
gen1(0377);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
if (i+j < -127) {
|
|
||||||
/* underflow situation */
|
|
||||||
gen1(f<0?0200:0);
|
|
||||||
gen1(0200);
|
|
||||||
gen1(0);
|
|
||||||
gen1(0);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
fl = ldexp(fl, i+j);
|
|
||||||
p = (char *) &fl;
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
p = (char *) &f;
|
|
||||||
}
|
|
||||||
gen1(*p++&0377);
|
|
||||||
for (i = argval-1; i; i--) {
|
|
||||||
gen1(*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++) {
|
|
||||||
gen1((fraction[i]>>8)&0377);
|
|
||||||
gen1(fraction[i]&0377);
|
|
||||||
}
|
|
||||||
#endif OWNFLOAT
|
|
||||||
#endif
|
|
||||||
}
|
|
||||||
|
|
||||||
/* as long as we generate assembler ...
|
/* as long as we generate assembler ...
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -20,145 +20,4 @@ int val;
|
||||||
return( val >= -128 && val <= 127);
|
return( val >= -128 && val <= 127);
|
||||||
}
|
}
|
||||||
|
|
||||||
con_float(str, argval)
|
#include <con_float>
|
||||||
char *str;
|
|
||||||
int argval;
|
|
||||||
{
|
|
||||||
#ifdef NOFLOAT
|
|
||||||
|
|
||||||
static int been_here;
|
|
||||||
if (argval != 4 && argval != 8)
|
|
||||||
arg_error("fcon", argval);
|
|
||||||
if (argval == 8)
|
|
||||||
gen4((FOUR_BYTES) 0);
|
|
||||||
gen4((FOUR_BYTES) 0);
|
|
||||||
if ( !been_here++)
|
|
||||||
{
|
|
||||||
fprint(STDERR, "Warning : dummy float-constant(s)\n");
|
|
||||||
}
|
|
||||||
#else
|
|
||||||
#define IEEEFLOAT
|
|
||||||
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) {
|
|
||||||
arg_error("fcon", argval);
|
|
||||||
argval = 8;
|
|
||||||
}
|
|
||||||
f = atof(str);
|
|
||||||
if (f == 0) {
|
|
||||||
if (argval == 8) gen4((FOUR_BYTES) 0);
|
|
||||||
gen4((FOUR_BYTES) 0);
|
|
||||||
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 */
|
|
||||||
gen1(f<0?0377:0177);
|
|
||||||
gen1(0377);
|
|
||||||
gen1(0377);
|
|
||||||
gen1(0377);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
if (i+j < -127) {
|
|
||||||
/* underflow situation */
|
|
||||||
gen1(f<0?0200:0);
|
|
||||||
gen1(0200);
|
|
||||||
gen1(0);
|
|
||||||
gen1(0);
|
|
||||||
return;
|
|
||||||
}
|
|
||||||
fl = ldexp(fl, i+j);
|
|
||||||
p = (char *) &fl;
|
|
||||||
}
|
|
||||||
else {
|
|
||||||
p = (char *) &f;
|
|
||||||
}
|
|
||||||
gen1(*p++&0377);
|
|
||||||
for (i = argval-1; i; i--) {
|
|
||||||
gen1(*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++) {
|
|
||||||
gen1((fraction[i]>>8)&0377);
|
|
||||||
gen1(fraction[i]&0377);
|
|
||||||
}
|
|
||||||
#endif OWNFLOAT
|
|
||||||
#endif
|
|
||||||
}
|
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue