From 551b10f3a6d3758e62d7c0afc10aa37d150ffd9e Mon Sep 17 00:00:00 2001 From: ceriel Date: Fri, 23 Feb 1990 17:00:59 +0000 Subject: [PATCH] fixed for 2-byte machines --- mach/con_float | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/mach/con_float b/mach/con_float index d1cb48148..19d1c4004 100644 --- a/mach/con_float +++ b/mach/con_float @@ -92,7 +92,6 @@ float_cst(str, sz, buf) char *str, *buf; int sz; { - int i; int overflow = 0; flt_arith e; @@ -209,19 +208,19 @@ float_cst(str, sz, buf) con_float() { char buf[8]; - int rval = float_cst(str, argval, buf); + int rval = float_cst(str, (int)argval, buf); int i; if (rval == 1) { - fprintf(stderr,"float constant size = %d\n",argval); + fprintf(stderr,"float constant size = %d\n",(int)argval); 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) { fprintf(stderr, "Warning: overflow in floating point constant %s\n", str); } 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); } putc('\n', codefile); @@ -231,16 +230,17 @@ con_float() #ifdef CODE_EXPANDER con_float(str, argval) char *str; + arith argval; { char buf[8]; - int rval = float_cst(str, argval, buf); + int rval = float_cst(str, (int)argval, buf); int i; if (rval == 1) { 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]); } } -- 2.34.1