fixed for 2-byte machines
This commit is contained in:
parent
0ec452930f
commit
551b10f3a6
1 changed files with 8 additions and 8 deletions
|
@ -92,7 +92,6 @@ float_cst(str, sz, buf)
|
||||||
char *str, *buf;
|
char *str, *buf;
|
||||||
int sz;
|
int sz;
|
||||||
{
|
{
|
||||||
int i;
|
|
||||||
int overflow = 0;
|
int overflow = 0;
|
||||||
flt_arith e;
|
flt_arith e;
|
||||||
|
|
||||||
|
@ -209,19 +208,19 @@ float_cst(str, sz, buf)
|
||||||
con_float()
|
con_float()
|
||||||
{
|
{
|
||||||
char buf[8];
|
char buf[8];
|
||||||
int rval = float_cst(str, argval, buf);
|
int rval = float_cst(str, (int)argval, buf);
|
||||||
int i;
|
int i;
|
||||||
|
|
||||||
if (rval == 1) {
|
if (rval == 1) {
|
||||||
fprintf(stderr,"float constant size = %d\n",argval);
|
fprintf(stderr,"float constant size = %d\n",(int)argval);
|
||||||
fatal("bad fcon size");
|
fatal("bad fcon size");
|
||||||
}
|
}
|
||||||
fprintf(codefile,"!float %s sz %d\n", str, argval);
|
fprintf(codefile,"!float %s sz %d\n", str, (int)argval);
|
||||||
if (rval == 2) {
|
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);
|
||||||
}
|
}
|
||||||
fprintf(codefile, ".data1 0%o", buf[0] & 0377);
|
fprintf(codefile, ".data1 0%o", buf[0] & 0377);
|
||||||
for (i = 1; i < argval; i++) {
|
for (i = 1; i < (int)argval; i++) {
|
||||||
fprintf(codefile, ",0%o", buf[i] & 0377);
|
fprintf(codefile, ",0%o", buf[i] & 0377);
|
||||||
}
|
}
|
||||||
putc('\n', codefile);
|
putc('\n', codefile);
|
||||||
|
@ -231,16 +230,17 @@ con_float()
|
||||||
#ifdef CODE_EXPANDER
|
#ifdef CODE_EXPANDER
|
||||||
con_float(str, argval)
|
con_float(str, argval)
|
||||||
char *str;
|
char *str;
|
||||||
|
arith argval;
|
||||||
{
|
{
|
||||||
char buf[8];
|
char buf[8];
|
||||||
int rval = float_cst(str, argval, buf);
|
int rval = float_cst(str, (int)argval, buf);
|
||||||
int i;
|
int i;
|
||||||
|
|
||||||
if (rval == 1) {
|
if (rval == 1) {
|
||||||
argval = 8;
|
argval = 8;
|
||||||
rval = float_cst(str, argval, buf);
|
rval = float_cst(str, 8, buf);
|
||||||
}
|
}
|
||||||
for (i = 0; i < argval; i++) {
|
for (i = 0; i < (int)argval; i++) {
|
||||||
gen1(buf[i]);
|
gen1(buf[i]);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Reference in a new issue