Mercurial > hg > xemacs-beta
diff src/number.c @ 1995:4e6a63799f08
[xemacs-hg @ 2004-04-07 03:48:58 by james]
Fix various ICC warnings and compilation errors.
| author | james |
|---|---|
| date | Wed, 07 Apr 2004 03:49:00 +0000 |
| parents | 9c872f33ecbe |
| children | ea0e08ca2c78 |
line wrap: on
line diff
--- a/src/number.c Wed Apr 07 02:44:08 2004 +0000 +++ b/src/number.c Wed Apr 07 03:49:00 2004 +0000 @@ -85,7 +85,7 @@ string_to_bignum(const Ibyte *str, Bytecount len, int base) { Lisp_Object b = make_bignum (0L); - return (bignum_set_string (XBIGNUM_DATA (b), str, base) < 0) + return (bignum_set_string (XBIGNUM_DATA (b), (const char *) str, base) < 0) ? Fsignal (Qinvalid_read_syntax, list3 (build_msg_string ("Invalid integer constant in reader"), @@ -398,6 +398,8 @@ #endif /* Catch unintentional bad uses of this function */ abort (); + /* NOTREACHED */ + return FIXNUM_T; } /* Convert NUMBER to type TYPE. If TYPE is BIGFLOAT_T then use the indicated @@ -513,7 +515,7 @@ switch (type) { case FIXNUM_T: - return Fround (number); + return Ftruncate (number); case BIGNUM_T: #ifdef HAVE_BIGNUM bignum_set_double (scratch_bignum, XFLOAT_DATA (number)); @@ -570,6 +572,8 @@ #endif /* HAVE_BIGFLOAT */ } abort (); + /* NOTREACHED */ + return Qzero; } /* This function promotes its arguments as necessary to make them both the