From 7d42c7df89091db055ad77ef4bbfb64059858e52 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Wed, 12 May 2004 15:01:35 +0000 Subject: mapping feature for ported names svn path=/trunk/externals/miXed/; revision=1725 --- shared/common/binport.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'shared/common/binport.c') diff --git a/shared/common/binport.c b/shared/common/binport.c index 90eb4a1..e2c9d34 100644 --- a/shared/common/binport.c +++ b/shared/common/binport.c @@ -245,12 +245,12 @@ static int binport_readfloat(FILE *fp, float *fptr) } else if (ex || hi || lo) { - double d; + double dhi, dlo, dabs; ex -= 0x401e; - hi = ((hi - 0x7fffffff) - 1) + ((float)0x7fffffff + 1.); - lo = ((lo - 0x7fffffff) - 1) + ((float)0x7fffffff + 1.); - d = ldexp(hi, ex) + ldexp(lo, ex - 32); - *fptr = ((word[0] & 0x80) ? -(float)d : (float)d); + dhi = (double)((hi - 0x7fffffff) - 1) + ((float)0x7fffffff + 1.); + dlo = (double)((lo - 0x7fffffff) - 1) + ((float)0x7fffffff + 1.); + dabs = ldexp(dhi, ex) + ldexp(dlo, ex - 32); + *fptr = ((word[0] & 0x80) ? -(float)dabs : (float)dabs); } else *fptr = 0.; #ifdef BINPORT_DEBUG @@ -679,7 +679,7 @@ static int maxtext_nextatom(FILE *fp, t_atom *ap) else if (floatstate == 2) binport_setint(ap, atoi(buf)); else if (floatstate == 4 || floatstate == 5 || floatstate == 8) - binport_setfloat(ap, atof(buf)); + binport_setfloat(ap, (float)atof(buf)); else binport_setsymbol(ap, gensym(buf)); } -- cgit v1.2.1