d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

much improved version

Browse source
This commit is contained in:
ceriel 1989-08-01 16:40:28 +00:00
parent 94a4bbb268
commit c302ed167c
1 changed files with 99 additions and 73 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

172
mach/con_float
View file

@ -5,93 +5,89 @@
/* $Header$ */ /* $Header$ */
/* #define NOFLOAT for machines without floating point /*
#define ACKFLOAT for machines using the ACK floating point software #define CODE_GENERATOR for code generator
#define CODE_EXPANDER for code expander
#define IEEEFLOAT for machines using IEEE floating point format #define IEEEFLOAT for machines using IEEE floating point format
#define OWNFLOAT to use floating point format of machine on which #define PDPFLOAT for machines using the PDP-11 floating point format
the code generator runs If none of these are defined, the format of the machine on which the
If none of these are defined, PDP-11 format is generated. code generator runs is used.
Returns 1 if sz has an illegal value, 2 in case of overflow,
and 0 if all went well.
If neither IEEEFLOAT nor PDPFLOAT are defined, the return value is not
trustworthy.
*/ */
#ifdef IEEEFLOAT
#define USE_FLT
#endif
#ifdef PDPFLOAT
#define USE_FLT
#endif
#ifdef NOFLOAT #ifndef USE_FLT
con_float() { static int
float_cst(str, sz, buf)
static int been_here; char *str, *buf;
if (argval != 4 && argval != 8) int sz;
fatal("bad fcon size"); {
fputs(".data4\t", codefile); int i;
if (argval == 8)
fputs("0,", codefile);
fputs("0 !dummy float\n", codefile);
if ( !been_here++) {
fputs("Warning : dummy float-constant(s)\n", stderr);
}
}
#else /* NOFLOAT */
#include <ctype.h>
#ifndef OWNFLOAT
#include <flt_arith.h>
#endif /* OWNFLOAT */
con_float() {
int i, j;
char *p; char *p;
#ifdef OWNFLOAT
float fl; float fl;
double f; double f;
double atof(); double atof();
#else /* OWNFLOAT */
int overflow = 0;
flt_arith e;
char buf[8];
#endif /* OWNFLOAT */
if (argval!= 4 && argval!= 8) { if (sz!= 4 && sz!= 8) {
fprintf(stderr,"float constant size = %d\n",argval); return 1;
fatal("bad fcon size");
} }
fprintf(codefile,"!float %s sz %d\n", str, argval);
#ifdef OWNFLOAT
f = atof(str); f = atof(str);
if (argval == 4) { if (sz == 4) {
fl = f; fl = f;
p = (char *) &fl; p = (char *) &fl;
} }
else { else {
p = (char *) &f; p = (char *) &f;
} }
fprintf(codefile, ".data1 0%o", *p++ & 0377); for (i = sz; i; i--) {
for (i = argval-1; i; i--) { *buf++ = *p++;
fprintf(codefile,",0%o", *p++ & 0377); }
return 0;
}
#else /* USE_FLT */
#include <ctype.h>
#include <flt_arith.h>
int
float_cst(str, sz, buf)
char *str, *buf;
int sz;
{
int i;
int overflow = 0;
flt_arith e;
if (sz!= 4 && sz!= 8) {
return 1;
} }
#else /* OWNFLOAT */
flt_str2flt(str, &e); flt_str2flt(str, &e);
#if IEEEFLOAT+ACKFLOAT #ifdef IEEEFLOAT
if (argval == 4) { if (sz == 4) {
#endif #endif
e.flt_exp += 127; e.flt_exp += 127;
#ifndef IEEEFLOAT
e.flt_exp += 2;
#endif
if (e.flt_mantissa.flt_h_32 == 0) e.flt_exp = 0; if (e.flt_mantissa.flt_h_32 == 0) e.flt_exp = 0;
#if IEEEFLOAT+ACKFLOAT #ifdef IEEEFLOAT
if (e.flt_exp >= 255) { if (e.flt_exp >= 255) {
overflow = 1; overflow = 1;
e.flt_exp = 255; e.flt_exp = 255;
e.flt_mantissa.flt_h_32 = e.flt_mantissa.flt_l_32 = 0; e.flt_mantissa.flt_h_32 = e.flt_mantissa.flt_l_32 = 0;
} }
if (e.flt_exp <= 0) { if (e.flt_exp <= 0) {
#if IEEEFLOAT
flt_b64_sft(&(e.flt_mantissa), 1); flt_b64_sft(&(e.flt_mantissa), 1);
if (e.flt_exp < 0) { if (e.flt_exp < 0) {
flt_b64_sft(&(e.flt_mantissa), -e.flt_exp); flt_b64_sft(&(e.flt_mantissa), -e.flt_exp);
e.flt_exp = 0; e.flt_exp = 0;
} }
#else
e.flt_exp = 0;
e.flt_mantissa.flt_h_32 = e.flt_mantissa.flt_l_32 = 0;
#endif
} }
#endif #endif
buf[0] = (e.flt_sign << 7) | (e.flt_exp >> 1); buf[0] = (e.flt_sign << 7) | (e.flt_exp >> 1);
@ -99,21 +95,21 @@ con_float() {
((e.flt_mantissa.flt_h_32 & 0x7fffffff) >> 24); ((e.flt_mantissa.flt_h_32 & 0x7fffffff) >> 24);
buf[2] = e.flt_mantissa.flt_h_32 >> 16; buf[2] = e.flt_mantissa.flt_h_32 >> 16;
buf[3] = e.flt_mantissa.flt_h_32 >> 8; buf[3] = e.flt_mantissa.flt_h_32 >> 8;
if (argval == 8) { #ifndef IEEEFLOAT
if (sz == 8) {
buf[4] = e.flt_mantissa.flt_h_32; buf[4] = e.flt_mantissa.flt_h_32;
buf[5] = e.flt_mantissa.flt_l_32 >> 24; buf[5] = e.flt_mantissa.flt_l_32 >> 24;
buf[6] = e.flt_mantissa.flt_l_32 >> 16; buf[6] = e.flt_mantissa.flt_l_32 >> 16;
buf[7] = e.flt_mantissa.flt_l_32 >> 8; buf[7] = e.flt_mantissa.flt_l_32 >> 8;
flt_b64_sft(&(e.flt_mantissa), -56); flt_b64_sft(&(e.flt_mantissa), -56);
} }
else flt_b64_sft(&(e.flt_mantissa), -24); else
#if IEEEFLOAT+ACKFLOAT #endif
flt_b64_sft(&(e.flt_mantissa), -24);
#ifdef IEEEFLOAT
} }
else { else {
e.flt_exp += 1023; e.flt_exp += 1023;
#ifndef IEEEFLOAT
e.flt_exp += 2;
#endif
if (e.flt_mantissa.flt_h_32 == 0) e.flt_exp = 0; if (e.flt_mantissa.flt_h_32 == 0) e.flt_exp = 0;
if (e.flt_exp >= 2047) { if (e.flt_exp >= 2047) {
overflow = 1; overflow = 1;
@ -121,16 +117,11 @@ con_float() {
e.flt_mantissa.flt_h_32 = e.flt_mantissa.flt_l_32 = 0; e.flt_mantissa.flt_h_32 = e.flt_mantissa.flt_l_32 = 0;
} }
if (e.flt_exp <= 0) { if (e.flt_exp <= 0) {
#if IEEEFLOAT
flt_b64_sft(&(e.flt_mantissa), 1); flt_b64_sft(&(e.flt_mantissa), 1);
if (e.flt_exp < 0) { if (e.flt_exp < 0) {
flt_b64_sft(&(e.flt_mantissa), -e.flt_exp); flt_b64_sft(&(e.flt_mantissa), -e.flt_exp);
e.flt_exp = 0; e.flt_exp = 0;
} }
#else
e.flt_exp = 0;
e.flt_mantissa.flt_h_32 = e.flt_mantissa.flt_l_32 = 0;
#endif
} }
buf[0] = (e.flt_sign << 7) | (e.flt_exp >> 4); buf[0] = (e.flt_sign << 7) | (e.flt_exp >> 4);
buf[1] = ((e.flt_exp & 017)<< 4) | ((e.flt_mantissa.flt_h_32 >> 27) & 017); buf[1] = ((e.flt_exp & 017)<< 4) | ((e.flt_mantissa.flt_h_32 >> 27) & 017);
@ -143,7 +134,7 @@ con_float() {
flt_b64_sft(&(e.flt_mantissa), -53); flt_b64_sft(&(e.flt_mantissa), -53);
} }
#endif #endif
i = argval-1; i = sz-1;
if (! overflow && (e.flt_mantissa.flt_h_32 & 0x80000000)) for (; i>=0; i--) { if (! overflow && (e.flt_mantissa.flt_h_32 & 0x80000000)) for (; i>=0; i--) {
if ((buf[i] &0377) != 0377) { if ((buf[i] &0377) != 0377) {
buf[i]++; buf[i]++;
@ -152,14 +143,49 @@ con_float() {
else buf[i] = 0; else buf[i] = 0;
} }
if (overflow || i < 0) { if (overflow || i < 0) {
return 2;
}
return 0;
}
#endif /* USE_FLT */
#ifdef CODE_GENERATOR
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");
}
fprintf(codefile,"!float %s sz %d\n", str, argval);
if (rval == 2) {
fprintf(stderr, "Warning: overflow in floating point constant %s\n", str); fprintf(stderr, "Warning: overflow in floating point constant %s\n", str);
} }
for (i = 0; i < argval; i++) { fprintf(codefile, ".data1 0%o", buf[0] & 0377);
fprintf(codefile, for (i = 1; i < argval; i++) {
i != 0 ? ",0%o" : ".data1 0%o", fprintf(codefile, ",0%o", buf[i] & 0377);
buf[i]&0377);
} }
#endif /* OWNFLOAT */
putc('\n', codefile); putc('\n', codefile);
} }
#endif /* NOFLOAT */ #endif /* CODE_GENERATOR */
#ifdef CODE_EXPANDER
con_float(str, argval)
char *str;
{
char buf[8];
int rval = float_cst(str, argval, buf);
int i;
if (rval == 1) {
argval = 8;
rval = float_cst(str, argval, buf);
}
for (i = 0; i < argval; i++) {
gen1(buf[i]);
}
}
#endif /* CODE_EXPANDER */