Browse Source

fixed library order : fix for 2-byte machines

ceriel 34 years ago
parent
commit
0c95aa4b86

+ 8 - 7
modules/src/flt_arith/Makefile

@@ -11,13 +11,14 @@ LIBSUF = a
 
 LIBFLT = libflt.$(LIBSUF)
 
-SRC =	b64_add.c flt_ar2flt.c flt_div.c flt_nrm.c b64_sft.c flt_chk.c \
-	flt_flt2ar.c flt_str2fl.c flt_add.c flt_cmp.c flt_mul.c ucmp.c \
-	flt_modf.c flt_umin.c split.c
-OBJ =	b64_add.$(SUF) flt_ar2flt.$(SUF) flt_div.$(SUF) flt_nrm.$(SUF) \
-	b64_sft.$(SUF) flt_chk.$(SUF) flt_flt2ar.$(SUF) flt_str2fl.$(SUF) \
-	flt_add.$(SUF) flt_cmp.$(SUF) flt_mul.$(SUF) ucmp.$(SUF) \
-	flt_modf.$(SUF) flt_umin.$(SUF) split.$(SUF)
+SRC =	flt_ar2flt.c flt_div.c flt_flt2ar.c flt_modf.c flt_str2fl.c \
+	flt_cmp.c flt_add.c b64_add.c flt_mul.c flt_nrm.c b64_sft.c \
+	flt_umin.c flt_chk.c split.c ucmp.c
+
+OBJ =	flt_ar2flt.$(SUF) flt_div.$(SUF) flt_flt2ar.$(SUF) flt_modf.$(SUF) \
+	flt_str2fl.$(SUF) flt_cmp.$(SUF) flt_add.$(SUF) b64_add.$(SUF) \
+	flt_mul.$(SUF) flt_nrm.$(SUF) b64_sft.$(SUF) flt_umin.$(SUF) \
+	flt_chk.$(SUF) split.$(SUF) ucmp.$(SUF)
 
 .SUFFIXES:	.$(SUF)
 .c.$(SUF):

+ 1 - 1
modules/src/flt_arith/flt_ar2flt.c

@@ -31,7 +31,7 @@ flt_arith2flt(n, e, uns)
 	for (i = 64; i > 0 && n != 0; i--) {
 		flt_b64_sft(&(e->flt_mantissa),1);
 		e->m1 |= (n & 1) << 31;
-		n = (n >> 1) & ~(0x80 << 8*(sizeof(arith)-1));
+		n = (n >> 1) & ~(0x80L << 8*(sizeof(arith)-1));
 	}
 
 	if (i > 0) {

+ 1 - 1
modules/src/flt_arith/flt_div.c

@@ -57,7 +57,7 @@ flt_div(e1,e2,e3)
 		if (u_p[0] == 0 && u_p[1] < v[1]) continue;
 		temp = ((long)u_p[0] << 16) + u_p[1];
 		if (u_p[0] >= v[1]) {
-			q_est = 0x0000FFFF;
+			q_est = 0x0000FFFFL;
 		}
 		else if (v[1] == 1) {
 			q_est = temp;