projects
/
sxemacs
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Build Fix -- compatibility issue with newer autoconf
[sxemacs]
/
src
/
ent
/
ent-gaussian.c
diff --git
a/src/ent/ent-gaussian.c
b/src/ent/ent-gaussian.c
index
ea8e8ef
..
0a038ca
100644
(file)
--- a/
src/ent/ent-gaussian.c
+++ b/
src/ent/ent-gaussian.c
@@
-26,6
+26,11
@@
along with this program. If not, see <http://www.gnu.org/licenses/>. */
#include "lisp.h"
#include "sysproc.h" /* For qxe_getpid */
#include "lisp.h"
#include "sysproc.h" /* For qxe_getpid */
+#include "ent.h"
+#include "ent-float.h"
+#ifdef HAVE_MPFR
+#include "ent-mpfr.h"
+#endif
#include "ent-gaussian.h"
#ifdef HAVE_MPC
#include "ent-mpc.h"
#include "ent-gaussian.h"
#ifdef HAVE_MPC
#include "ent-mpc.h"
@@
-46,42
+51,30
@@
bigg_print(Lisp_Object obj, Lisp_Object printcharfun, int SXE_UNUSED(escapeflag)
}
static int
}
static int
-bigg_equal(Lisp_Object obj1, Lisp_Object obj2, int
depth
)
+bigg_equal(Lisp_Object obj1, Lisp_Object obj2, int
SXE_UNUSED(depth)
)
{
return bigg_eql(XBIGG_DATA(obj1), XBIGG_DATA(obj2));
{
return bigg_eql(XBIGG_DATA(obj1), XBIGG_DATA(obj2));
-
- /* less warnings */
- if (depth);
}
static unsigned long
}
static unsigned long
-bigg_hash(Lisp_Object obj, int
depth
)
+bigg_hash(Lisp_Object obj, int
SXE_UNUSED(depth)
)
{
return bigg_hashcode(XBIGG_DATA(obj));
{
return bigg_hashcode(XBIGG_DATA(obj));
-
- /* less warnings */
- if (depth);
}
static Lisp_Object
}
static Lisp_Object
-bigg_mark(Lisp_Object
obj
)
+bigg_mark(Lisp_Object
SXE_UNUSED(obj)
)
{
return Qnil;
{
return Qnil;
-
- /* less warnings */
- if (obj == Qnil);
}
static void
}
static void
-bigg_finalise(void *
header
, int for_disksave)
+bigg_finalise(void *
SXE_UNUSED(header)
, int for_disksave)
{
if (for_disksave)
signal_simple_error
("Can't dump an emacs containing "
"pseudo-gaussian objects",Qt);
{
if (for_disksave)
signal_simple_error
("Can't dump an emacs containing "
"pseudo-gaussian objects",Qt);
-
- /* less warnings */
- if (header);
}
static const struct lrecord_description bigg_description[] = {
}
static const struct lrecord_description bigg_description[] = {
@@
-135,7
+128,7
@@
Bufbyte *bigg_to_string(bigg g, int base)
Bufbyte *intg_str;
Bufbyte *imag_str;
int intg_len, imag_len;
Bufbyte *intg_str;
Bufbyte *imag_str;
int intg_len, imag_len;
-
int sign, neg;
+ int sign, neg;
intg_str = (Bufbyte*)bigz_to_string(bigg_re(g), base);
imag_str = (Bufbyte*)bigz_to_string(bigg_im(g), base);
intg_str = (Bufbyte*)bigz_to_string(bigg_re(g), base);
imag_str = (Bufbyte*)bigz_to_string(bigg_im(g), base);
@@
-205,7
+198,7
@@
void bigg_set_bigz_bigz(bigg g, bigz z1, bigz z2)
/* void bigc_set_bigg(bigc c, bigg g)
* {
/* void bigc_set_bigg(bigc c, bigg g)
* {
- * bigc_set_bigfr_bigfr(bigg_re(g), z1);
+ * bigc_set_bigfr_bigfr(bigg_re(g), z1);
* }
*/
* }
*/
@@
-454,7
+447,7
@@
Lisp_Object read_bigg_string(char *cp)
/* jump over a leading minus */
cp++;
}
/* jump over a leading minus */
cp++;
}
-
+
while ((*cp >= '0' && *cp <= '9'))
cp++;
while ((*cp >= '0' && *cp <= '9'))
cp++;